Discussion :

[zoumzoum59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jmfmarques]

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

[zoumzoum59]

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.

[jmfmarques]

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...

[gootsu]

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!

[Commodore]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
With ActiveCell
   .Value=Reference.Text
   .Offset(0, 1).Value = designation.Text
...

no ?