besoin d'une macro

Le
mattparisien59
Bonjour,

Je recherche une macro permettant de mettre toute la ligne en couleur "grise" lorsqu'il trouve le jour "Dimanche" dans la premiere colonne ("A1"). Merci pour votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michel MTO
Le #21544111
Bonjour,
Essaye çà :

Dim Plage As Range
Set Plage = Range("A:A")
With Plage
Set Dimanche = .Find("Dimanche")
If Not Dimanche Is Nothing Then
firstAddress = Dimanche.Address
Do
Rows(Dimanche.Row).Interior.ColorIndex = 15
Set Dimanche = .FindNext(Dimanche)
Loop While Not Dimanche Is Nothing And Dimanche.Address <>
firstAddress
End If
End With
End Sub

Michel

"mattparisien59" news:
Bonjour,

Je recherche une macro permettant de mettre toute la ligne en couleur


"grise"
lorsqu'il trouve le jour "Dimanche" dans la premiere colonne ("A1"). Merci


pour
votre aide
Publicité
Poster une réponse
Anonyme