je souhaite que la macro que j'ai d=E9velopp=E9 (avec l'aide =E9clair=E9 de
nombraux membres de ce groupe) soit active en permanence...
La macro c'est :
Sub test3()
For I =3D 1 To 4
If (Range("B" & I).Value =3D "oui" And Range("C" & I).Value =3D 0) Then
Range("A1").Interior.Color =3D RGB(255, 0, 0)
End
Else
Range("A1").Interior.Color =3D RGB(0, 255, 0)
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
*Bonjour wilf*, A part l'appeler sur un evenement chage ou selectionchange de la feuille, je vois pas 8-o
bonjour,
je souhaite que la macro que j'ai développé (avec l'aide éclairé de nombraux membres de ce groupe) soit active en permanence...
La macro c'est :
Sub test3()
For I = 1 To 4
If (Range("B" & I).Value = "oui" And Range("C" & I).Value = 0) Then Range("A1").Interior.Color = RGB(255, 0, 0) End Else Range("A1").Interior.Color = RGB(0, 255, 0) End If
Next End Sub
Fo faire quoi les amis.. ???
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour wilf*,
A part l'appeler sur un evenement chage ou selectionchange de la
feuille, je vois pas 8-o
bonjour,
je souhaite que la macro que j'ai développé (avec l'aide éclairé de
nombraux membres de ce groupe) soit active en permanence...
La macro c'est :
Sub test3()
For I = 1 To 4
If (Range("B" & I).Value = "oui" And Range("C" & I).Value = 0) Then
Range("A1").Interior.Color = RGB(255, 0, 0)
End
Else
Range("A1").Interior.Color = RGB(0, 255, 0)
End If
*Bonjour wilf*, A part l'appeler sur un evenement chage ou selectionchange de la feuille, je vois pas 8-o
bonjour,
je souhaite que la macro que j'ai développé (avec l'aide éclairé de nombraux membres de ce groupe) soit active en permanence...
La macro c'est :
Sub test3()
For I = 1 To 4
If (Range("B" & I).Value = "oui" And Range("C" & I).Value = 0) Then Range("A1").Interior.Color = RGB(255, 0, 0) End Else Range("A1").Interior.Color = RGB(0, 255, 0) End If
Next End Sub
Fo faire quoi les amis.. ???
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
*ReBonjour wilf*, ou peut etre sur : Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
bonjour,
je souhaite que la macro que j'ai développé (avec l'aide éclairé de nombraux membres de ce groupe) soit active en permanence...
La macro c'est :
Sub test3()
For I = 1 To 4
If (Range("B" & I).Value = "oui" And Range("C" & I).Value = 0) Then Range("A1").Interior.Color = RGB(255, 0, 0) End Else Range("A1").Interior.Color = RGB(0, 255, 0) End If
Next End Sub
Fo faire quoi les amis.. ???
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*ReBonjour wilf*,
ou peut etre sur :
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
bonjour,
je souhaite que la macro que j'ai développé (avec l'aide éclairé de
nombraux membres de ce groupe) soit active en permanence...
La macro c'est :
Sub test3()
For I = 1 To 4
If (Range("B" & I).Value = "oui" And Range("C" & I).Value = 0) Then
Range("A1").Interior.Color = RGB(255, 0, 0)
End
Else
Range("A1").Interior.Color = RGB(0, 255, 0)
End If
*ReBonjour wilf*, ou peut etre sur : Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
bonjour,
je souhaite que la macro que j'ai développé (avec l'aide éclairé de nombraux membres de ce groupe) soit active en permanence...
La macro c'est :
Sub test3()
For I = 1 To 4
If (Range("B" & I).Value = "oui" And Range("C" & I).Value = 0) Then Range("A1").Interior.Color = RGB(255, 0, 0) End Else Range("A1").Interior.Color = RGB(0, 255, 0) End If
