Incrémenter une valeur dans une zone de texte d'un USERfORM

Bonjour chers Internautes

J'aimerai créer un identifiant dans un formulaire qui s'incrémente automatiquement et qui est visible à l'agent de saisie grâce à VBA sur Excel 2010.

Pour ce faire, je comptais compter le nombre de cellules non vide auquel j'ajoute plus un et que j'insère dans la zone de texte .

J'ai créé la procédure Find_IdDI ()suivante

Dim IdDI as Integer

Sub Find_IdDI ()

IdDI = Application.WorkSheetFunction.CountBlank(Sheets("saisieTDO").Range("A:A)

End Sub

avec saisieTDO ma feuille d'insertion de valeur

et ensuite à ma zone de texte IdBoxt,

j'ai fait

IdBox.Text = IdDI

et là je ne vois rien

je ne sais pas comment effectuer cette manoeuvre

Merci et à très bientôt je l'espère

Bonjour

jubeal a écrit :

et là je ne vois rien

Pour compter les cellules non vides c'est CountA

IdDI = Application.WorkSheetFunction.CountA(Sheets("saisieTDO").Range("A:A)

Merci Banzai64

Mais le probleme reste irrésolue comment mettre cette valeur dans ma zone de texte de telle sorte que je la vois à chaque démarrage et à chaque suivant

Merci

Bonjour

Ton fichier serait bien utile

jubeal a écrit :

chaque démarrage

Si c'est de l'Userform, utilises la procédure Userform_Initialize