N
Nanard
Guest
Oui un Bourguignon, qui se présente, comme mon pseudo l'indique vous devinerez aisément mon prénom.
Je suis un true Bourguignon qui adore ce merveilleux site et par conséquent Excel...
41 ans et pas toutes ses dents, dentiste oblige...Je m'éclate sur ce site en proposant quelques appli et en essayant du mieux possible de répondre aux questions du forum.
Sub pésentation()
Dim moi As String
Dim plage As Range
Set plage = Range('A1:A10')
For Each moi In plage
moi.Select
If moi = 'nanard' Then Selection.Interior.ColorIndex = 3
Next moi
Range('A1').Select
End Sub
Un pt'i coup de rouge sur le nanard.....! Un conseil n'en abusez pas !
@+
Nanard
Message édité par: David_Xld, à: 03/06/2005 00:06
Je suis un true Bourguignon qui adore ce merveilleux site et par conséquent Excel...
41 ans et pas toutes ses dents, dentiste oblige...Je m'éclate sur ce site en proposant quelques appli et en essayant du mieux possible de répondre aux questions du forum.
Sub pésentation()
Dim moi As String
Dim plage As Range
Set plage = Range('A1:A10')
For Each moi In plage
moi.Select
If moi = 'nanard' Then Selection.Interior.ColorIndex = 3
Next moi
Range('A1').Select
End Sub
Un pt'i coup de rouge sur le nanard.....! Un conseil n'en abusez pas !
@+
Nanard
Message édité par: David_Xld, à: 03/06/2005 00:06