Modifier niveau dans une liste à l'aide d'une macro

Version imprimable

13/08/2013, 11h02
ilovzelda

Modifier niveau dans une liste à l'aide d'une macro

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!

Code:

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

C'est ça que tu veux ?

13/08/2013, 11h51
ilovzelda

Cela doit être ça. Mais comment fais-je référence à la cellule concernée :
"J4" dans mon fichier, sur la feuille 'feuilleWE" ?
13/08/2013, 12h14
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..

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

Code:

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.