perenthian
XLDnaute Nouveau
Bonjour,
je voudrais créer une boite de dialogue avec 3 boutons "all" "manual" et "cancel", et lorsqu'on clique sur l'un d'eux, ils vont chercher des infos différentes (efface les données de la colonne et arrêt de la macro pour cancel).
Voici mon code :
Cependant cela ne marche pas :
si je clique sur cancel, le boite de dialogue apparaît 3 fois comme le nombre de boutons.
Et impossible de sortir du format yes no cancel.
Je suis preneur d'un petit coup de main ;-)
Merci
je voudrais créer une boite de dialogue avec 3 boutons "all" "manual" et "cancel", et lorsqu'on clique sur l'un d'eux, ils vont chercher des infos différentes (efface les données de la colonne et arrêt de la macro pour cancel).
Voici mon code :
Code:
If MsgBox("Chose a type", vbYesNoCancel, "Information for RAO") = vbYes Then
number = InputBox("how many headings do you want to draw", "number of RAO", "number of RAO")
Worksheets("General1").Activate
Range("D10") = "Headings (°) to draw"
For i = 1 To number
Value = InputBox("enter a value of the heading to draw (in ascending order)", "Headings", "heading")
Range("D" & i + 10) = Value
' head(i - 1) = Range("D" & i + 10)
Next i
ElseIf MsgBox("Chose a type", vbYesNoCancel, "Information for RAO") = vbNo Then
'
ElseIf MsgBox("Chose a type", vbYesNoCancel, "Information for RAO") = vbCancel Then
Range("D:D").ClearContents
End
End If
Cependant cela ne marche pas :
si je clique sur cancel, le boite de dialogue apparaît 3 fois comme le nombre de boutons.
Et impossible de sortir du format yes no cancel.
Je suis preneur d'un petit coup de main ;-)
Merci