Au démarrage ComboBox 2 vide.

[marcelio]

Bonjour le Forum,

Dans mon ComboBox1 j'ai 20 noms
Je peux changer les noms à volonté mais il faut que j'ai toujours 20 noms

Dans ma ComboBox 2 j'ajoute des noms qui ensuite j'ajoute à la ComboBox 1
toujours avec la ComboBox 2 je peux supprimer des noms que j'ai ajouter.

Mon problème :
Quand je n'ai pas encore ajouter de nom à la ComboBox 2, s'affiche le dernier nom de la liste de la ComboBox 1
Sur l'exemple c'est " Eté "
Or il faut absolument ne pas effacer un des 20 noms de la ComboBox 1
Je ne voudrais pas qu’un nom soit effacer par inadvertance.

1) Est il possible que rien ne soit afficher dans la ComboBox 2 avant de saisir un nouveau nom.
2) Et est il possible d'ajouter un tri croissant des noms ajouter à partir de X21

Je vous en remercie par avance.

Marcelio

 

[mécano41]

Bonjour,

Il me semble que, dans Ini :

Plage = Sheets("liste").Range("X21:X" & l + 1).Address

Cordialement

 

[marcelio]

Bonjour mécano41,
Merci pour ce code, cela est super.
Et pour le tri croissant à partir de la X21 à X50 auriez vous une solution.
Merci beaucoup
Marcelio

 

[mécano41]

Voici l'appli avec le tri...

(A noter que je ne désigne pas les feuilles par leur nom mais par leur CodeName qui, lui, ne change jamais sinon, en changeant le nom de feuille, le code ne fonctionne plus)

Cordialement

 

[marcelio]

Re,
Merci pour le code, mais j'ai une erreur en voulant ouvrir l'USF.
" erreur de Compilation :
Variable non définie "
xlSortOnValues en gras dans Private Sub Ini
Merci

 

[mécano41]

C'est probablement parce que je suis sous EXCEL 2010...j'ai fait écrire le code par l'enregistreur de macros et je l'ai adapté...Il faudrait que tu fasses toi-même la même opération ou que tu voies cela avec quelqu'un qui se souvient du code pour ta version...perso, j'ai oublié...Désolé!

Cordialement

 

[marcelio]

Ok merci de ton aide.
Bonne soirée à toi et au Forum
Marcelio

 

[mécano41]

Bonjour,

En attendant mieux, une version avec un tri par VBA, qui devrait fonctionner...

Cordialement

 

[marcelio]

Bonjour mécano41 et le Forum,
Merci merci pour ce code qui fonctionne super bien.
Je te souhaite une bonne fin d'après midi.
Cordialement
Marcelio