Titre du sujet : Re: Questions userform
par lannou le 28/07/2008 18:14:57
Bonsoir le forum! Bonsoir Didier!
Merci pour ta réponse Didier! Bien entendu, j'avais fait la première solution que tu m'as proposée. Mais comme tu le saits, ca ne marchais pas car mes combobox ne se chargeais pas la deuxième fois. J'ai donc reposter sur le forum pour savoir s’il y avait une astuce et apparemment, il n’y en a pas puisque tu m'as proposé ce à quoi je me doutais.
J'ai donc cherché dans ma macro du bouton "suivant". Dans cette macro, je change plusieurs fois d'onglet et je me suis aperçu qu'à la fin de ma macro j'étais sur un autre onglet qui n’était pas celui sur lequel ma userform s'initialisais. J'ai donc tout simplement rajouté dans "Private sub userform_initialise()" et "Private sub combobox1_change()" une ligne "Sheets("feuil1").select" pour qu'elle se réinitialise bien sur le bon onglet...
A partir de là, le tour était joué... et ca à marché! Lorsque je ré appuie sur le bouton suivant mes textbox sont vierges et mes combobox chargées! Hourra!
Option Explicit
Private Sub UserForm_Initialize()
' On actualise la liste de choix des n? de phase avec ceux qui ont d? ? rentr?:
Dim Cell As Range
Dim NoDupes As New Collection
Dim Item As Variant
Sheets("feuil1").select
On Error Resume Next
For Each Cell In Sheets("Feuil1").Range("A9:A2000")
NoDupes.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
' On ajoute les ?ments non dupliqu?dans la zone de liste de ComboBox3 :
For Each Item In NoDupes
ComboBox3.AddItem Item
Next Item
End Sub
Par contre, j'ai remarqué que les valeurs saisies par l’utilisateur ne se rentrent pas dans la feuille au fur et à mesure qu’il appuie sur le bouton « suivant » mais se chargent dans la feuille à la toute fin s’il appuie sur le bouton annuler pour arrêter de rentrer des valeurs.
Bien entendu, à la fin de ma macro j’ai marqué le code de la première solution (à savoir« unload me » puis « userform1.show ») tandis que mon bouton « annuler » à juste pour code « unload me » .
Sauriez vous pourquoi ?
Merci à vous!
++
Lannou
| 
Didier FOURGEOT