Item suivant sur combobox

Bonjour,

Voilà j'ai un problème qui peut être n'a pas de réponse en vba.
J'ai un combobox avec 26 items qui sont les lettres de l'alphabet.
Le première fois que l'on a à choisir un item, c'est forcément le premier (A), qui s'inscrit dans une cellule de mon classeur.
J'aimerais que la prochaine fois que l'on arrive sur ce combo, il sélectionne automatiquement l'item suivant (B dans ce cas, ou E si avant on était sur D).

Possible de désigner l'item suivant?

Bonjour à tous
Bonjour buhrne

Essaie comme ceci, si j'ai bien compris :

Code:

---

1 2 3 4

Private Sub CommandButton2_Click() TextBox1 = ComboBox1.Value ComboBox1.Value = Chr(Asc(ComboBox1.Value) + 1) End Sub

---

Eric

Bonjour, buhrne,

Si j'ai bien compris tes explications, ce devrait être du genre :

Code:

---

1 2 3 4

Private Sub ComboBox1_Enter() If ComboBox1.ListIndex = -1 Then ComboBox1.ListIndex = 0: Exit Sub ComboBox1.ListIndex = ComboBox1.ListIndex + 1 End Sub

---

EDIT :
Inutile de te dire que tu peux donner la préférence à l'utilisation de la sortie plutôt qu'à l'entrée dans ta Combobox(c'est ce que je ferais), avec exactement le même code

Re

Merci ucfoutu

Ta solution est exacte, alors que la mienne !!!!!

Eric

Bonjour à tous.

Une suggestion complémentaire :

Code:

---

1 2 3 4

Private Sub ComboBox1_Enter() If ComboBox1.Listindex = Combobox1.ListCount -1 Then ComboBox1.ListIndex = 0: Exit Sub ComboBox1.ListIndex = ComboBox1.ListIndex + 1 End Sub

---

PGZ

Hello pgz,
Et ça sert à quoi ? "If ComboBox1.Listindex = Combobox1.ListCount -1" ?
C'est une vraie question ;)
Oui parce que si le combo est vide on ne peut rien sélectionner et si rien n'est sélectionné, que le combo soit vide ou non, ComboBox1.ListIndex = -1.
Tu dis
A+

Citation:

---

Envoyé par ouskel'n'or

Hello pgz,
Et ça sert à quoi ? "If ComboBox1.Listindex = Combobox1.ListCount -1" ?
C'est une vraie question ;)
Oui parce que si le combo est vide on ne peut rien sélectionner et si rien n'est sélectionné, que le combo soit vide ou non, ComboBox1.ListIndex = -1.
Tu dis
A+

---

Bonjour Ousk.
La valeur listindex va de 0 à ListCount-1. DOnc si on est à la Listcount-1, soit la dernière valeur, il faut recommencer à 0.

Je m'égare?

PGZ

Tu dois avoir raison :aie:
Je viens de planter Excel en testant des trucs, Microsoft a été averti que vba n'a pas aimé ce que j'ai fait, même que mon anti-virus a supprimé le fichier :mouarf:
Bref, je n'ai pas envie de continuer dans cette voie :bug:
En attendant, je n'ai pas trouvé de solution pérenne... et je m'en moque !