J
julien
Guest
Hello le forum
voici mon probleme
je voudrais qu'un bouton me fasse a peu pret ceci :
Private Sub CommandButton1()
Dim i as integer
i = 'je voudrais que i soit egale au numéro de la ligne de la cellule active
ActiveCell.Offset(0, 1).Value = Now()
ActiveCell.Offset(0, 2).Value = Now()
ActiveSheet.Shapes('CommandButton' & i).BackColor = &H80C0FF
' ou le commandbutton porte donc le meme n° que la ligne active
End Sub
MERCI A TOUS !!!
voici mon probleme
je voudrais qu'un bouton me fasse a peu pret ceci :
Private Sub CommandButton1()
Dim i as integer
i = 'je voudrais que i soit egale au numéro de la ligne de la cellule active
ActiveCell.Offset(0, 1).Value = Now()
ActiveCell.Offset(0, 2).Value = Now()
ActiveSheet.Shapes('CommandButton' & i).BackColor = &H80C0FF
' ou le commandbutton porte donc le meme n° que la ligne active
End Sub
MERCI A TOUS !!!