Bonjour,
Je travaille avec Excel 2003.
J'ai un problème de compteur que je n'arrive pas à régler.
Je dépose un fichier pour mieux expliquer le problème.
Prendre le fichier
ICI.
Si vous avez des craintes, voici le code que j'utilise avec donc 1 Label nommé "LabCompteur" + 1 CommandButton nommé "CmdOk" :
Private Sub UserForm_Initialize()
LabCompteur = Application.WorksheetFunction.Max(Range("A1:A" & [A65536].End(xlUp).Row))
LabCompteur = LabCompteur + 1
End Sub
Private Sub CmdOk_Click()
Dim c As Long
With Sheets("Feuil1")
c = .Range("A65000").End(xlUp).Row + 1
.Cells(c, 1) = LabCompteur
End With
Unload Me
End Sub
Si quelqu'un peut me donner un petit coup de main, ça serait sympa.
Merci d'avance.
JassBass