Microsoft 365 CHANGER LA COULEUR DE FOND DE CELLULES AVEC CONDITIONS

[ABDELHAK]

Bonjour à tous
Je sollicite votre aide afin de me réaliser une énième petite macro.
Dans le fichier joint à la colonne B, de la cellule B7983 à la cellule B1 le contenu de celles-ci sont (1) ou elles sont vides.
J’aimerais que la macro change toutes les 6 cellules en commençant par la cellule B7983 le fond sans remplissage par un fond vert tout en conservant la valeur de celle-ci.
Exemples :
La cellule B7978 à la valeur 1. Conserver la valeur 1 et changer uniquement le fond de la cellule en fond vert.
La cellule B7972 est vide. Elle doit rester vide et changer uniquement le fond de la cellule en fond vert.
La cellule B7966 à la valeur 1. Conserver la valeur 1 et changer uniquement le fond de la cellule en fond vert.
La cellule B7966 est vide. Elle doit rester vide et changer uniquement le fond de la cellule en fond vert.
Et ainsi de suite jusqu’à la cellule B1.
En espérant avoir été claire.
D’avance merci
ABDELHAK

 

[sousou]

Bonjour
essai ceci
Sub fond()
rep = InputBox("Ligne de départ", "", 7978)
If rep = "" Then Exit Sub
While rep > 1
ActiveSheet.Cells(Val(rep), 2).Interior.Color = RGB(0, 255, 0)
rep = rep - 6
Wend


End Sub

 

[ABDELHAK]

Bonjour sousou,
Je viens d'essayer les lignes de codes que vous m'avez envoyées et c'est juste parfait.
Merci de m'avoir aider. C'es hyper efficace !!!
Et encore merci.
A+
ABDELHAK