Lancer une macro sur l'action de plusieurs listes déroulante
Bonjour,
J'ai actuellement un fichier Excel qui gère les arrêts maladie dans mon secteur et j'aimerais qu'en selectionnant un motif d'arrêt cela me mette la ligne de mon tableau d'une certaine couleur.
Je sais le faire pour une cellule mais je n'arrive pas à faire quelque chose de simple pour toutes les cellules d'une même colonne.
Exemple concrêt :
En F6, dans ma liste (données/validation), je sélectionne Maladie et cela me mets la ligne (de B6 à N6) en rose. Si je selectionne en F6 la maladie professionnelle, cela me mets la ligne en vert grace au code suivant mis sur le VBA project de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F6").Value = "Maladie" Then Call Macrorose
If Range("F6").Value = "Maladie prof." Then Call Macroverte
End Sub
Sub Macrorose()
Range("B6:N6").Select
Selection.Interior.ColorIndex = 38
End Sub
Sub Macroverte()
Range("B6:N6").Select
Selection.Interior.ColorIndex = 35
End Sub
Par contre, je n'arrive pas à trouver comment faire simple pour exectuer une macro qui me permettrait de faire cela pour la cellule F7 qui changerait la couleur (sous les mêmes conditions "rose" et "vert") les cellules entre B7 et N7. Idem pour F8 avec les cellules entre B8 et N8 et ainsi de suite.
Je vous mets le tableau en exemple et vous remercie par avance pour votre aide.
Damien
Merci, Merci et Merci.
Quand je regarde ton code, je me dis "ouha" => c'est simple et super efficace !!!
Tu as fait un excellent travail et tu m'as fait gagné à mon cerveau pas mal d'heures de triturage
Bon week-end