magellan :
Je n'ai pas tout compris pour le coup. As tu une impression d'écran pour expliciter le besoin afin que nous puissions réfléchir à la question ?
Bonjour, merci.
Capture d'écran ci-jointe.
Vous devez être
connecté pour voir les images.
On voit une toupie en R1. Et une formule qui, avec la toupie, font apparaître en Q2 les noms d'une liste.
J'ai tapé cette liste aussi un peu plus bas, en Q11:Q15, pour qu'on les voie.
Notamment, lorsque je clique sur la toupie vers le haut (j'ai entouré la petite flèche de la toupie sur l'image), les noms défilent dans l'ordre de haut en bas, c'est à dire "Aquitaine", "Gironde", "Lot et Garonne" et ainsi de suite jusqu'en bas de la liste. J'ai indiqué cet ordre aussi par une flèche rouge vers le bas - la direction que je cherche à inverser, pour qu'elle suive plutôt la flèche verte : un clic sur la flèche entourée de la toupie devrait faire apparaître "Limousin" après "Charente", "Lot et Garonne" après "Limousin" etc. Et la même chose pour la flèche "bas" de la toupie qui devrait suivre la direction de haut de la liste en bas.
Dans un autre fichier qui est bien plus simple j'ai un command button qui fait apparaître une toupie et du code VBA qui permet d'avoir la toupie "renversée". Et je n'arrive pas à l'adapter à la toupie de mon fichier plus complex.
Vous devez être
connecté pour voir les images.
Voici le code :
Code:
Private Sub UserForm_Initialize()
With SpinButton1
.Min = -1
.Max = ComboBox1.ListCount - 1
.Value = .Max
End With
ComboBox1.Value = ""
End Sub
Private Sub ComboBox1_Change()
SpinButton1.Value = ComboBox1.ListCount - 2 - ComboBox1.ListIndex
End Sub
Private Sub SpinButton1_Change()
ComboBox1.ListIndex = ComboBox1.ListCount - 2 - SpinButton1.Value
End Sub