colorier une cellule sous condition

Dans
'FORMAT'
'Mise en forme conditionelle'

Tu entre les caractéristiques que tu veut :

'La valeur de la Cellule'

'est plus grande'

'La valeur que tu veut'

Bonjour,

Ci-jointe une macro à coller dans un module.
Ensuite, sélectionner les cellules à étudier et indiquer la valeur de 'X' dans le inputbox. Toutes les valeurs de cellule qui sont égales à 'X' + 7*N seront vertes !

Sub e()
Dim c As Range
a = InputBox('X=', 'X')
For Each c In Selection
If Int((c.Value - a) / 7) - (c.Value - a) / 7 = 0 Then
c.Interior.ColorIndex = 4
End If
Next c
End Sub

Vekmort qui te souhaite une bonne fin de journée.

Salut,

Il me semble que ceci serait mieux :

Sélectionne la plage sur laquelle tu veux appliquer les motifs, par exemple A2:A10.
Menu Format / Mise en formule conditionnelle.
Au lieu de 'la valeur de callule est' tu chosis 'la formule est'
A côté tu tapes : =ET(A2=A1+7;MOD(A2;7)=0)
dans la même fenêtre, clique sur le bouton Format, puis sur l'onglet Motif.
Choisis la couleur / OK / OK.

Â+