[VBA E] Conserver le derniere valeur selectionné d'une combobox

Bonjour à tous

je voudrais savoir comment conserver la derniere valeur selectionner dans une liste d'une combobox apres avoir utilisé la commande "Unload Me" sur la user form pour effacer les donner des zone texte qui y sont integrer.

Voici le code du bouton ok de la user form (zone1):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

ActiveCell.Value = Reference.Text ActiveCell.Offset(0, 1).Value = designation.Text ActiveCell.Offset(0, 2).Value = nombre.Text ActiveCell.Offset(0, 4).Value = longueur.Text ActiveCell.Offset(0, 5).Value = largeur.Text ActiveCell.Offset(0, 8).Value = SensFil.Text ActiveCell.Offset(0, 9).Value = long1.Text ActiveCell.Offset(0, 10).Value = court1.Text ActiveCell.Offset(0, 11).Value = long2.Text ActiveCell.Offset(0, 12).Value = court2.Text ActiveCell.Offset(0, 13).Value = long3.Text ActiveCell.Offset(0, 14).Value = court3.Text ActiveCell.Offset(1, 0).Select Unload Me zone1.Show   End Sub

---

La combobox est sur la premiere ligne (reference)

Merci d'avance

Euh....
La conserver où ou dans quoi d'autre ?

C'est a dire que je selectionne une valeur dans la liste de la combobox et quand j'ai cliker sur le bouton ok de ma combobox, la combobox mais vide.

Alors je suis obligé de reselectionner la valeur, je voudrais que la combox conserve l'affiche de ma selection precedente.

Excuse moi... mais je ne comprends absolument rien à ce que tu as tenté d'exprimer !...
Il va falloir que tu le fasses avec précision, car nous ne sommes pas dans tes pensées...

je pense éventuellement ,qu'il faut mettre le text de ta combobox dans une variable mémoire,celle ci te permettra ,à la fin de l'exécution du bouton OK, de réinsere le text dans ta combobox! ;)

il y a surement un autre moyen! :lol:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

ActiveCell.Value = Reference.Text ActiveCell.Offset(0, 1).Value = designation.Text ActiveCell.Offset(0, 2).Value = nombre.Text ActiveCell.Offset(0, 4).Value = longueur.Text ActiveCell.Offset(0, 5).Value = largeur.Text ActiveCell.Offset(0, 8).Value = SensFil.Text ActiveCell.Offset(0, 9).Value = long1.Text ActiveCell.Offset(0, 10).Value = court1.Text ActiveCell.Offset(0, 11).Value = long2.Text ActiveCell.Offset(0, 12).Value = court2.Text ActiveCell.Offset(0, 13).Value = long3.Text ActiveCell.Offset(0, 14).Value = court3.Text ActiveCell.Offset(1, 0).Select

---

ce serait peut etre un peu mieux ainsi:

Code:

---

1 2 3 4 5

With ActiveCell .Value=Reference.Text .Offset(0, 1).Value = designation.Text ...

---

no ?;)

merci gootsu je pense que ça passe par quelque chose comme ça mais je ne sais pas comment le mettre en forme. Je sais qu'il existe la propriete "controlsource" mais je ne sais pas si c'est judicieu de l'utiliser dans ce cas.
Si quelqu'un peu faire avancé mon problème!

Merci egalement Commodore_Psykopate pour la simplification que tu me propose pour mon code.
C'est vrai que ça fait plus "Pro".

il faudrait que tu mettes dans une variable la valeur de l'index de la sélection de ton ComboBox au moment du onChange.
ensuite, tu viens te replacer sur l'index enregistré.

c'est vrai qu'on comprend mal ce que tu veux exactement...

psy :aie:

salut !

j'aimerais si possible que tu réexplique complétement et avec un tous petit peu plus de détails (beaucoup plus!! lol! :lol: ) Ce que tu veux faire, et avoir!
Ensuite on poura t'aider et on poura te dire si le choix de la propriété "controlsource" est judicieuse! ;)

en attendant!! A+;)

Ok je suis desolé pour moi ça semble si evident que j'ai du mal certainement à le developper.
Donc je m'y recolle.

j'ai une user formet dans cette user form une combobox, qui affiche une liste de reference.

http://www.developpez.net/forums/att...1&d=1150486944


Dans un premier temps je voudrais quelle affiche la premiere reference de la liste en l'occurence ici "6_22_1a" (ci dessous)

http://www.developpez.net/forums/att...1&d=1150486944

Et dans un deuxieme temps apres avoir clicker sur le bouton "Ok" qui execute le code qui se trouve plus haut, je voudrais que la reference selectionné dans la liste, par exemple "6_22_2" reste affiché malgres avoir effacer les textbox par la commande "Unload Me". Car je relance tout de suite derriere la user form par "zone1.Show" qui reaparait avec les textbox vide mais aussi la combox reference.

Voila j'espere que c'est plus clair sinon j'essayerais de faire mieux la prochaine fois.

bonjour

Citation:

---

Dans un premier temps je voudrais quelle affiche la premiere reference de la liste en l'occurence ici "6_22_1a" (ci dessous)

---

tu peux utiliser

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Initialize() ' '... ' remplissage combobox ' '...   ' L'index 0 correspond à la première donnée contenue dans le Combobox Combobox1.Listindex = 0   End Sub

---

Citation:

---

Et dans un deuxieme temps apres avoir clicker sur le bouton "Ok" qui execute le code qui se trouve plus haut, je voudrais que la reference selectionné dans la liste, par exemple "6_22_2" reste affiché malgres avoir effacer les textbox par la commande "Unload Me"

---

dans un module standard , tu places

Code:

---

Public maVariable As String

---

puis dans l'UserForm "Zone de saisie" , tu ajoutes

Code:

---

1 2 3

Private Sub ComboBox1_Change() maVariable = ComboBox1 End Sub

---

bon week end
michel

merci SilkyRoad pour afficher la premiere reference de la liste à l'ouverture de la user form pas de souci ça marche.

Par contre pour afficher la reference selectionné dans la liste apres avoir validé et utilisé la commande unload sur la user form ça ne marche pas c'est toujours la premiere reference de la liste qui s'affiche.

Peut etre peut on recuperer le n° d'index de la reference selectionné pour reafficher la combobox avec la reference correspondant au deuxieme index.
Si ça peut fonctionner je veux bien essayer mais je ne sais pas recuperer l'index de la reference selectionné.


Merci

bonsoir

en lisant tes précédents messages , j'avais interprété que tu voulais récuperer le résultat d'un combobox dans une variable. Maintenant je comprend (peut etre à tort) que tu souhaites seulement recupérer l'index de ce ComboBox

dans ce cas, tu places dans un module standard :

Code:

---

Public maVariable As Integer

---

puis dans l'UserForm "Zone de saisie" , tu ajoutes

Code:

---

1 2 3

Private Sub ComboBox1_Change() maVariable = Combobox1.Listindex End Sub

---

bonne soiree
michel

Bonsoir SilkyRoad

je me demande si mon probleme n'est pas unload sur ma user form comment pourrais je effacer le contenu des textebox de la user form sans utiliser unload.

merci

bonjour

Code:

---

1 2	comment pourrais je effacer le contenu des textebox de la user form sans utiliser unload

---

tu peux essayer

Code:

---

TextBox1= ""

---

et pour boucler sur tous les TextBox du UserForm afin de les vider :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton2_Click() Dim Ctrl As Control   For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = "" Next End Sub

---

bonne journée
michel

bonjour SilkyRoad

Ca fonctionne mais j'ai un autre souci avec le code de la façon dont il a ete modifié.

Mon probleme est que quand j'utisais unload et que je relançais la user form je redemarrais automatiquement sur ma combobox reference qui etait active.

Alors que la quand je click sur mon bouton ok je reste dessus et je ne bouge plus, tous cela parceque je me deplace dans ma user form par la touche du clavier entrée car je trouve plus facile que la touche tabulation.

Donc apres avoir clicker sur le bouton ok est qu'il est possible de reactivé Ma combobox reference ?
Peut etre en utilisant la propriete tabindex qui la valeur de 1 dans ma user form ?

Bonjour

ajoute

Code:

---

1 2	comboboxReference.setfocus

---

après la vidange des textbox... en modifiant "comboboxreference" par le nom du contrôle qui doit recevoir le focus.

Ok?

Merci Pierre Fauconnier c'est exactement ce qui me fallait pour completer les informations que ma donnée SilkyRoad.

La je pense que ça fonctionne parfaitement.

Encore merci à vous deux.