Discussion :

[ilovzelda]

Bonjour à tous,
Je dispose d'une cellule à liste déroulante (à l'aide de validation de données > liste).
J'aimerais pouvoir à l'aide d'une macro "haut" et d'une macro "bas" pouvoir naviguer dans la liste déroulante.
Mes connaissances en VBA étant insuffisantes pour cela, je m'adresse à vous afin de solliciter votre aide.
Merci!

[EngueEngue]

Code :

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

1
2
Listcontrol.SelectedIndex=Listcontrol.SelectedIndex+1
Listcontrol.SelectedIndex=Listcontrol.SelectedIndex-1

C'est ça que tu veux ?

[ilovzelda]

Cela doit être ça. Mais comment fais-je référence à la cellule concernée :
"J4" dans mon fichier, sur la feuille 'feuilleWE" ?

[EngueEngue]

Problème ton truc n'est pas une listbox mais une drop down list...
cela change la donne.. Je ne sais pas jouer avec ces choses là..

Solution si elle est statique.. construire un tableau dans ta macro et aller chercher l'indice du tableau puis mettre +1..

[Invité]

Voici un 'Work-around' pour ce que tu souhaites faire:

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
18
19
20
21
22
23
24
25
26
Option Explicit
 
'UP
Private Sub cmbDown_Click()
  Dim intPosition
  intPosition = RecupererIndice(Cells(1, 2))
  If intPosition - 1 >= 1 Then
    intPosition = intPosition - 1
    Cells(1, 2).Value = Application.Index(Range("liste_validation"), intPosition)
  End If
End Sub
 
'DOWN
Private Sub cmbUP_Click()
  Dim intPosition
  intPosition = RecupererIndice(Cells(1, 2))
  If intPosition + 1 <= Range("liste_validation").Cells.Count Then
    intPosition = intPosition + 1
    Cells(1, 2).Value = Application.Index(Range("liste_validation"), intPosition)
  End If
End Sub
 
'Récupérer Index
Private Function RecupererIndice(rngCell As Range) As Integer
  RecupererIndice = Application.Match(rngCell.Value, Range("liste_validation"), 0)
End Function

J'ai utilisé une plage nommée.
Un exemple de fonctionnement est donné en PJ.