Macro avec option

Bonsoir Domy,


Essaie ceci : Ce n'est qu'un modèle ....!


'============================== Sub InsererUneProcédure()

Dim A As Variant, Ok As Boolean
Ok = False

Do
A = InputBox("Entrer le numéro correspondant à votre choix." & _
vbCrLf & vbCrLf & _
"1 - Copier la plage de cellules." & vbCrLf & _
"2 - Effacer la plage de cellules." & vbCrLf & _
"3 - Masquer les lignes.", vbInformation)


If A = "" Or Not IsNumeric(A) Or Len(A) > 1 Then
If MsgBox("Désirez-vous vraiment annuler l'opération ?", _
vbCritical + vbYesNo, _
"Annulation...") = vbYes Then
Ok = True
Exit Sub 'Sortir de la procédure
End If

ElseIf CInt(A) < 1 Or CInt(A) > 3 Then
MsgBox "Le numéro entré " & A & " est incorrect. Corriger." _
, vbCritical + vbOKOnly, "Attention"

Else
Select Case A
Case 1
Procedure1
Ok = True
Case 2
Procedure2
Ok = True
Case 3
Procedure3
Ok = True
End Select
End If

Loop Until Ok = True

End Sub

'============================== Sub Procedure1()

End Sub
Sub Procedure2()

End Sub
Sub Procedure3()

End Sub
'==============================

Salutations!



"Domy" <domy.v@wanadoo.fr> a écrit dans le message de news:eJlfjhjfDHA.2464@TK2MSFTNGP09.phx.gbl...
Bonjour,
Peut on creer une macro avec au milieu des option, qu'on choississe celle
que l'on veut et une fois l'option choisit, que la macro continue???

Car la je patoge vraiment, si qqun avec un exemple ou s'il connait un
endroit pour le telecharge cela m'arrangerias.

Merci d'avance