formulaire " à tiroir "

[Hub]

Bonjour à tous,

Vous trouverez dans le fichier joint un exemple de ce que je souhaiterai.
Ca risque d'être un peu "tordu"

D'avance merci pour votre aide,

@+

 

[CPk]

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

 

[Hub]

Re : formulaire " à tiroir "

Bonjour CPK,

N'étant pas un pro du VBA, je ne vois pas comment utiliser/interpréter tes informations.

Merci quand même pour ton aide

@+

 

[CPk]

Re : formulaire " à tiroir "

Bonjour hub, je ne le suis pas non plus, j'ai quelques notions apprises ici et là.