Compteur dans userform
Bonjour le forum
Je rentre actuellement des numéros dans ma textbox via une combobox.
je voudrais créer un compteur qui serait placé dans mon Private sub_initialize pour remplacer
les valeurs de cette combobox et les placer automatiquement dans la textbox correspondante
en incrementant cette valeur à chaque réouverture de mon userform
pouvez vous m'aider s'il vous plait
merci
Je rentre actuellement des numéros dans ma textbox via une combobox.
je voudrais créer un compteur qui serait placé dans mon Private sub_initialize pour remplacer
les valeurs de cette combobox et les placer automatiquement dans la textbox correspondante
en incrementant cette valeur à chaque réouverture de mon userform
pouvez vous m'aider s'il vous plait
merci
1 réponse
-
Bonjour,
A chaque ouverture de l'UF, incrementez une variable declaree en Public si c'est seulement tant que le fichier excel est ouvert ou si ca doit incrementer sur ouverture du fichier excel (apres fermeture évidemment) incrementez une cellules dans une feuille et chargez la textbox avec cette cellule-
Bonjour f894009
j'ai bien déclaré ma variable en public as integer
comme cela
Public num As Integer
Private Sub UserForm_Initialize()
num = Range("B65536").End(xlUp).Row + 1
num = num + 1
MsgBox num
TextBox12.Value = num
.....
mais aucune incrémentation dans la colonne b de ma feuille
je suis vraiment nul -
@max850Bonjour,
Pourquoi ceci:num = Range("B65536").End(xlUp).Row + 1
Vous devez prendre une cellule c'est tout, l'incremente :
-lire la cellule
-faire+1
-ecrire la cellule
-mettre cette valeur dans la text box -
@f894009Bonjour f894009
Voici ce que je viens de faire et ça fonctionne
Private Sub UserForm_Initialize()
num = Format(Feuil4.Range("b7").Value + 1, "00000")
Range("B7").Value = num
TextBox12.Value = num
mais je voudrais que cette valeur s'inscrive sur la dernière ligne de ma feuil4
et non pas remplacer la valeur précédente
dans ma colonne b j'aurais en b7 1, en b8 2 etc
c'est ce que j'avais tenté de faire avec
num = Range("B65536").End(xlUp).Row + 1 -
@max850Re,
Pourquoi: et non pas remplacer la valeur précédente
Ce n'est pas incrémenter une cellule c'est changer de cellule a chaque fois -
@f894009je me suis mal exprimé alors
effectivement je change de cellule à chaque fois
mais en ajoutant + 1 à chaque fois
-
