initialisation spinbutton

[errog]

Bonjour,
J'ai bcoup de pb avec lesinitialisations des objets contenus dans un USF, par exemple , j'ai dans le module1 tapé

For j = 1 To 5
UserForm1.SpinButton1.Value = 1
UserForm1.Show
Tableau(j)=qq
Next j

et dans le USF1

Private Sub SpinButton1_Change()
qq = UserForm1.SpinButton1.Value
End Sub


Si je ne touche pas à spinbutton, la valeur est celle de l'itération précédente dans la boucle, or je voudrais qu'elle soit par défaut 1.

Merci 🙂

 

[errog]

Re : initialisation spinbutton

Merci fanfan38 ( et aux autres )
Ca marche du tonnerre et c'est beaucoup plus compact.
J'avais commencé a modifier ma macro dans cet esprit la et je m'en inspirerai pour les suivants.
Encore une fois merci:🙂🙂
eric

 

[errog]

Re : initialisation spinbutton

Bonsoir,
Juste pour info tout fonctionne vraiment a condition de placer l'incrémentation du compteur col avant la boucle For j = 1 to 5
( entre la saisie de la 1ere valeur du spinbutton et l'affichage du menu du 2eme critere )
Sinon c'est tout bon.
Juste une question Col.Value et Cint servent à quoi ? ( j'ai simplement utilisé
col = col +1 et ca fonctionne ).
Encore merci🙂

 

[fanfan38]

Re : initialisation spinbutton

Bonjour
J'ai ajouté un textbox dans ton userform(invisible). Je l'ai appelé col (d'où col.value)...
cint c'est pour convertir une chaine de caractères en nombre. Comme son nom le dit un textbox donne des chaines de caractères ...

A+ François

 

[errog]

Re : initialisation spinbutton

OK.Merci
eric