Discussion :

[buhrne]

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?

[edelweisseric]

Bonjour à tous
Bonjour buhrne

Essaie comme ceci, si j'ai bien compris :

Code :

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

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

Eric

[ucfoutu]

Bonjour, buhrne,

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

Code :

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

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

[edelweisseric]

Re

Merci ucfoutu

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

Eric

[pgz]

Bonjour à tous.

Une suggestion complémentaire :

Code :

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

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

[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+