numero ligne active...

[julien]

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 !!!

 

[PascalXLD]

Bonjour

pour ta ligne

i=activecell.row

Bon courage

 

[julien]

Merci Pascal76

A+

 

[julien]

Salut Pascal et forum

je reviens sur ce fil car je rencontre encore un leger probleme

dans un module je creer ;

Sub macro1()
Dim i as integer
dim j as integer
i = activecell.row - 5
j = activecell.row + 9

ActiveCell.Offset(0, 1).Value = Now()
ActiveCell.Offset(0, 2).Value = Now()

ActiveSheet.Shapes('CommandButton' & i).BackColor = &H80C0FF
ActiveSheet.Shapes('CommandButton' & j).Visible = True

End Sub

et dan ma feuille

Private Sub ComandButton1_Click()
Range('d6').select
macro1
End Sub


Mais ca bloque sur la ligne
ActiveSheet.Shapes('CommandButton' & i).BackColor = &H80C0FF

que se passe t il


merci

 

[Julien]

Re le forum, Michel...

On m'a dit que pour un tel fil il fallait que je demande aux meilleurs...
Je cite : Michel, Hervé, Pascal, Didier, etc... (j ai du en oublier un paquet là)...

Quelqu'un aurait une petite soluce pour moi???
Je nage complet... Enfin plutot je coule.. :sick:

Merci a tous ceux qui m'accorderont un peu de temps...

THX