Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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
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.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.