Couleur cellule par macro

Fox · 18 Juin 2003

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 · 18 Juin 2003

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 · 20 Juin 2003

Salut,

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

A+

Fox · 21 Juin 2003

bonjour à tous, cela fonctionne

merci encore pour la solution

Couleur cellule par macro

Fox

Guest

Robert

Guest

david447

Guest

Fox

Guest

Discussions similaires