A
ak59000
Guest
Bonjour à toutes et à tous, je cherche à rendre une cellule active pour comparer sa valeur avec cela :
Private Sub CommandButton1_Click()
For Each c In Range('A1:a10')
If IsNumeric(c.Value) Then
If c.Font.ColorIndex = 3 And c.Value <0 Then
c.Font.ColorIndex = 5
c.Interior.ColorIndex = 42
End If
End If
Next c
End Sub
J'ai besoin de rendre active c
comment faire ?
merci par avance
a+
Private Sub CommandButton1_Click()
For Each c In Range('A1:a10')
If IsNumeric(c.Value) Then
If c.Font.ColorIndex = 3 And c.Value <0 Then
c.Font.ColorIndex = 5
c.Interior.ColorIndex = 42
End If
End If
Next c
End Sub
J'ai besoin de rendre active c
comment faire ?
merci par avance
a+