Couleur cellule par macro

[Fox]

Bonsoir le forum

Est-il possible par un macro qui se lance automatiquement à l'ouverture du fichier de réaliser la fonction suivante:


Si dans la cellule comprise entre C8 et Z8 une cellule contient le mot "Hol" mettre en couleur jaune les cellules de cette ligne entre la colonne B et Z

Exemple

En C8 j'ai le mot Hol donc les cellules entre B8 et Z8 seront en jaune
En C9 j'ai le mot Fail les cellules entre B8 et Z8 ne cha,geront pas de couleurs

Merci

 

[Robert]

Salut le Forum, Salut Fox

Il doit y avoir plus simple mais ça devrait te convenir. Copie ce code VBA dans "ThisWorkbook" pour qu'il s'exécute à l'ouverture de ton fichier

************************
Private Sub Workbook_Open()
'à toi de définir pour combien de lignes tu veux que ça marche
'dans cet exemple cela vérifie des lignes 1 à 10
For x = 1 To 10
For y = 3 To 26 'colonnes
If Cells(x, y).Value = "Hol" Then
Range(Cells(x, 2), Cells(x, 26)).Interior.ColorIndex = 6
Exit For
End If
Next y
Next x
End Sub
************************

Robert

 

[david447]

Salut,

Effectivement, pour aller plus vite, tu peux aussi utiliser la mise en forme conditionnelle à mon avis.

A+

 

[Fox]

bonjour à tous, cela fonctionne

merci encore pour la solution