Gros problème pour moi,petit pour vous

[ak59000]

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+

 

[Joshua14]

Bonsoir ak590000,

un

c.activate

devrait pouvoir t'aider. 😉

 

[ak59000]

Merci, ca marche !
super
puis je faire référence à deux cellule vers la gauche a partir de ca si oui comment ?
merci

 

[Joshua14]

Re

Pour l'aspect

référence à deux cellule vers la gauche

, soit tu veux faire reference à une cellule qui se situe à deux colonnes vers la gauche
dans ce cas

cells(c.row;c.column-2).activate

Si tu veux selectionner deux cellules

Range(c,cells(c.row,C.column-2)).select

J'espere que cela t'ira

 

[ak59000]

merci JOSHUA, pour ton aide
a+
bye