Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 CHANGER LA COULEUR DE FOND DE CELLULES AVEC CONDITIONS

ABDELHAK

XLDnaute Occasionnel
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
 

Pièces jointes

  • M_D.xlsm
    120.5 KB · Affichages: 6

sousou

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…