Incrémenter un compteur dans UserFormRésolu

Question

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

cs_Jack · Accepted Answer

Salut
Et quel est ton problème ?
Que devrait-il se passer ?
Que ne se passe t-il pas ?
La seule chose que je vois c'est que Excel reconnait ton insertion comme un texte et pas comme un chiffre, mais il suffit d'utiliser la syntaxe correctement :
   .Cells(c, 1) = Val(LabCompteur.Caption)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_antom · Answer

Salut Jack et merci pour ta réponse.

Donc tu n'as pas téléchargé le fichier joint, et c'est vrai que je n'ai pas exposé le pb dans le fil, mais dans le fichier.

Le problème était qu'il incrémentait bien en cliquant sur le bouton "CmdOk" de l'UserForm, mais quand j'ouvrais à nouveau l'UserForm, il ne l'incrémentait pas dans le "LabCompteur".

Ex:
A1 -> 1
A2 -> 2
A3 -> 3
A4 -> 4
Je clique "CmdOk" et il affichait bien 5 dans  la cellule A5, mais quans je rouvrais l'Usf il affichait 5 dans le LabCompteur au lieu de 6 !

Mais grâce à toi ça joue maintenant.

Merci bien Jack et bonne journée !

JassBass

Incrémenter un compteur dans UserForm

2 réponses

Votre réponse

Discussions similaires