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

[ralph45]

Bonjour @tou.te.s

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

1° 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...

2° 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...

3° 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".

4° 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 ! 😉😛

 

[job75]

Bonjour ralph45,

Affectez cette macro au bouton :

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+

 

[ralph45]

Bonsoir @job75,

Mais c'est que cela m'a l'air impeccable, tout cela.
Je n'ai rien à redire, hormis un énorme merci ! 😉 👍

Je clos le sujet. Encore bravo !!