Re : formulaire " à tiroir "
Bonjour, à tester.
Sub test()
a = 1
b = 1
While a <= 3
debut:
c = Application.WorksheetFunction.Choose(b, " d'un type ", " d'un autre type ")
If MsgBox("Y a t'il besoin" & c & a & " ?", vbYesNo) = vbYes Then
'*Adapter ici l'action à effectuer si la réponse est oui.
'
'
b = 2
GoTo debut
Else
a = a + 1
b = 1
End If
Wend
End Sub