Colorer une plage de cellules sous conditions

Bonjour,

Je cale sur un codes VBA afin de colorer en vert pale une plage de cellules sous condition a savoir :

Dans ma feuille se trouve en AM4 une liste déroulante de 0 à 50

Dans la meme feuille une plage de cellules allant de AI6 à AO80 soit des lignes de AI6 à AO6 etc......

Donc mon souhait est le suivant :

Si AM4 = 1 alors AI6 à AO6 = vert

Si AM4 = 2 alors AI6 à AO6 + AI7 à AO7 = vert ( ligne d'en dessous )

Si AM4 = 3 alors AI6 à AO6 + AI7 à AO7 +AI8 à AO8 = vert ( ligne d'en dessous )

etc...etc....etc.... jusqu'a AI6 à AO80

Merci pour votre aide

Cordialement

Bonjour,

Tu peux obtenir ce résultat avec une MFC

A+

Bonjour Bigben

Avec un Code de Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("AM4")) Is Nothing Then
Range("AI6:AO56").Interior.ColorIndex = xlNone
Range("AI6", Range("AI6").Offset(Range("AM4").Value - 1, 6)).Interior.ColorIndex = 5
End If
End Sub

J'ai mis AO56 parce que si ta liste déroulante en AM4 va de 1 à 50, tu n'iras pas plus loin.

Tu modifieras si-besoin

Cordialement

Un grand merci

ca marche

vous etes des champions

Merci à vous