Mise ne forme conditionnelle VBA
Stéphane
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai essayé de voir sur plusieurs post mais je n'arrive jamais à obtenir le résultat recherché. Je souhaite dans un tableau, même si je rajoute des lignes par la suite, que si ma cellule M3 contient "NON", alors les cellules B3 à M3 se colorient en gris. Avec la mise en forme conditionnelle je peux le faire mais j'aimerais l'automatiser pour que cela s'exécute directement sur tout le fichier, pas uniquement à la ligne 3, à l'aide de VBA.
Est-ce que quelqu'un pourrait m'aider avec le code VBA?
Merci d'avance! :)
J'ai essayé de voir sur plusieurs post mais je n'arrive jamais à obtenir le résultat recherché. Je souhaite dans un tableau, même si je rajoute des lignes par la suite, que si ma cellule M3 contient "NON", alors les cellules B3 à M3 se colorient en gris. Avec la mise en forme conditionnelle je peux le faire mais j'aimerais l'automatiser pour que cela s'exécute directement sur tout le fichier, pas uniquement à la ligne 3, à l'aide de VBA.
Est-ce que quelqu'un pourrait m'aider avec le code VBA?
Merci d'avance! :)
A voir également:
- Mise ne forme conditionnelle VBA
- Mise en forme conditionnelle excel - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Mise en forme tableau croisé dynamique - Guide
- Excel liste déroulante conditionnelle - Guide
1 réponse
Bonjour,
voir proposition ci joint . mise en couleur "à la volée"
https://www.cjoint.com/c/EKlhrJZRPM8
la macro dans le module feuil1
Michel
voir proposition ci joint . mise en couleur "à la volée"
https://www.cjoint.com/c/EKlhrJZRPM8
la macro dans le module feuil1
Option Explicit
'-----------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Integer
If Not Intersect(Target, Columns("M")) Is Nothing Then
Lig = Target.Row
If LCase(Target) = "non" Then
Range("B" & Lig & ":M" & Lig).Interior.ColorIndex = 15
Else
Range("B" & Lig & ":M" & Lig).Interior.ColorIndex = -4142
End If
End If
End Sub
Michel