Bonjour à tous,
Je m'explique
J'ai un multipage dans lequel je veux à la fin de la saisie initialiser certains controls.
Mon problème c'est que dans une des comboBox j'applique à l'initialisation du userform des valeurs comprise entre 1 et 20
Par la suite il y a une saisie :
et à la fin je veux réintialiser la valeur de la combo :
Mon souci c'est qu'il me dis qu'il y a une imcompatibilité de type, je le comprend puis que j'applique des valeurs numérique et la je lui renvoie une valeur nulle, du coup le
fonctionne en boucle sans pouvoir s'appliquer.
Y'a t'il un moyen pour contourner tout ca ?
Merci à vous tous !
Julien
Je m'explique
J'ai un multipage dans lequel je veux à la fin de la saisie initialiser certains controls.
Mon problème c'est que dans une des comboBox j'applique à l'initialisation du userform des valeurs comprise entre 1 et 20
Code:
Private Sub UserForm_Initialize()
For i = 1 To 20
Multipage.ComboBox3.AddItem (i)
Multipage.ComboBox4.AddItem (i)
Next i
End Sub
Code:
Private Sub ComboBox3_Change()
MsgBox "Merci d'indiquer maintenant les cuves de départ de l'assemblage"
For i = 1 To ComboBox3.Value
Multipage.Controls("ASSdep" & i).Visible = True
Multipage.Controls("ASSdepQT" & i).Visible = True
Multipage.Controls("Lab" & i).Visible = True
Multipage.Controls("Labe" & i).Visible = True
Next i
End Sub
et à la fin je veux réintialiser la valeur de la combo :
Code:
Multipage.ComboBox3 = ""
Multipage.ComboBox4 = ""
Mon souci c'est qu'il me dis qu'il y a une imcompatibilité de type, je le comprend puis que j'applique des valeurs numérique et la je lui renvoie une valeur nulle, du coup le
Code:
Private Sub ComboBox3_Change()
Y'a t'il un moyen pour contourner tout ca ?
Merci à vous tous !
Julien