Private Sub CommandButton1_Click()
Static X%
X = X + 1
[I1] = Choose(X, "Devis", "Bon de commande", "Confirmation de commande", "Bon de livraison", "Facture")
If X = 5 Then X = 0
End Sub
simplement le demandeur aurait pu expliciter le contexte et l'usage prévu
Comme dirait le gars à la pipeBonsour®
il me semble qu'une liste de validation
- comporte un bouton
Sub a()
Debug.Print ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
End Sub
... sans autres explications toutes les élucubrations*** sont permises (SpinButton, ScrollBar, détection position du curseur etc...)
*** je suis assez friand de sortir des chemins battus
Private Sub ToggleButton1_Click()
[I1] = IIf(ToggleButton1, "Devis", "Facture")
End Sub [\Code]
* on peut même passer par le "tiers état" pour intercaler du "vide".