Microsoft 365 [VBA] Liste déroulante assistée par un bouton/shape "Suivant"

ralph45

XLDnaute Impliqué
Bonjour @tou.te.s

En fichier joint, l'objet de mon interrogation...

Dans la "Feuil2", une liste de 10 références nommée par une plage "REFERENCES".
Celles-ci sont au format texte et ne se suivent pas systématiquement...

Dans la "Feuil1", une cellule validée par une liste déroulante classique qui permet de choisir une référence. Jusque-là, tout va bien...

Ce que je désirerai, c'est qu'en cliquant sur le Shape "Suivant", la référence change en affichant la suivante. tout en respectant l'ordre initial de la plage "REFERENCES".

Le petit plus, c'est qu'en arrivant en bout de piste, un message apparaisse du style "Vérification terminée !".
(NB : le fichier-exemple ne comporte que 10 références, mais à terme, il y en aurait des milliers [un peu plus de 80.000 de mémoire]).

Merci par avance de vos lumières ! ;):p
 

Pièces jointes

  • TEST_LD_ASSISTEE_BOUTON_SUIVANT.xlsx
    12.2 KB · Affichages: 11

job75

XLDnaute Barbatruc
Bonjour ralph45,

Affectez cette macro au bouton :
VB:
Sub Suivant()
Dim c As Range, R As Range, n&
Set c = [C3]
Set R = [REFERENCES]
If c <> "" Then n = Application.Match(c, R, 0): If n < R.Count Then c = R(n + 1)
If n >= R.Count - 1 Then MsgBox "Fin de liste"
End Sub
A+
 

Pièces jointes

  • TEST_LD_ASSISTEE_BOUTON_SUIVANT(1).xlsm
    18.7 KB · Affichages: 9

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs