ACCES PREMIUM Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives: Navigation sans publicités Option "No Tracking" Option "Mode Incognito" (sur le forum) Option "Dark Mode" Comme son nom l'indique, la mise en forme conditionnelle (abrégée en MFC) est une mise en forme appliquée sous certaines conditions. Commençons avec quelques exemples de MFC "prêtes à l'emploi". Sélectionnez les cellules cibles et choisissez la MFC « Supérieur à... »: Entrez une valeur limite (ici, 50'000) et choisissez une mise en forme. La mise en forme est alors appliquée à toutes les valeurs supérieures à 50'000. En choisissant la MFC « 10 valeurs les plus élevées... », la mise en forme sera appliquée sur les 10 valeurs les plus élevées de la plage de cellules. Vous pouvez ensuite définir le nombre de valeurs à mettre en évidence (ici, 5) ainsi que la mise en forme. Les 5 valeurs les plus élevées sont alors mises en forme. Exemple avec les barres de données: Exemple avec les nuances de couleur: Exemple avec les jeux d'icônes:
marc Bonjour à vous tous Je cherche à faire une mise en forme conditionnelle sur 4 conditions. J'ai trouvé ce code sur le web que j'ai modifié. Le hic, c'est que dans mon fichier, j'ai plus d'une plage, alors comment modifier le code Range ("G2:G23), par les cellules sélectionnés?. Et est-ce que quelqu'un à un meileur code que celui-ci? Merci de votre aide Marc Voici le code: Private Sub Worksheet_Change(ByVal Target As) If Not Intersect(Target, Range("G2:G23")) Is Nothing Then With Target Select Case Case Is > 12 lorIndex = 3 Case is > 7 lorIndex = 44 Case is > 5 lorIndex = 6 Case is > 0 lorIndex = 33 End Select End With End If End Sub
Et mille excuses pour une réponse si tardive, je n'avais pas mon portable ce week-end. 19/05/2014, 11h53 #5 Quand j'utilise l'enregistreur de macro, j'obtiens: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Macro1 () ' ' Macro1 Macro Range ( "D8") Type:=xlCellValue, Operator:=xlNotEqual, _ Formula1:= "=Sauvetage! $D$8" rmatConditions (). SetFirstPriority With rmatConditions ( 1). Interior. PatternColorIndex = xlAutomatic. ThemeColor = xlThemeColorDark2. TintAndShade = -9. 99481185338908E-02 rmatConditions ( 1). StopIfTrue = False End Sub Je ne vois pas trop bien comment généraliser la formule. Par macro, il est possible d'installer la MFC sur chaque cellule de donnée mais il doit être plus simple de modifier Range et Formula1. Là, je bloque. 19/05/2014, 12h03 #6 Envoyé par BrisChri Je crois que je me suis mal fait comprendre. Quand je parlais de "mise en formes conditionnelle classique", je ne parlais pas de faire ça à la main ou de le faire une seule fois pour avoir un résultat papier.
Sub Keep_Format() 'UpdatebyExtendoffice20181128 Dim xRg As Range Dim xTxt As String Dim xCell As Range On Error Resume Next If > 1 Then xTxt = dressLocal Else End If Set xRg = putBox("Select range:", "Kutools for Excel", xTxt,,,,, 8) If xRg Is Nothing Then Exit Sub For Each xCell In xRg With xCell =. ttern = ttern If ttern <> xlNone Then tternColorIndex = tternColorIndex. = End If. Interior. TintAndShade = erior. TintAndShade tternTintAndShade = tternTintAndShade End With Next End Sub 3. presse F5 pour exécuter le code, et une boîte de dialogue apparaît pour sélectionner une plage pour supprimer la mise en forme conditionnelle. Voir la capture d'écran: 4. Cliquez OK, les règles de mise en forme conditionnelle ont été supprimées de la plage spécifiée mais conservent le format. Voici un outil pratique - Kutools pour Excel, vous pouvez mettre en forme rapidement et facilement des cellules en fonction de critères sans aucune formule par son Sélectionnez des cellules spécifiques utilitaire.
J'espère que tu vois où je veux en venir. Merci beaucoup pour cette réponse. Elle répond exactement à mes attentes. Je n'ai plus de problèmes. Merci encore! CescoCorp.