Message box macro

Bonjour à tous

Je suis bloqué sur une boite de dialogue, pourriez vous me dire où est le problème ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Importation_effacer() ' ' Importation_effacer Macro '   ' Rows("3:1048576").Select Selection.ClearContents Range("B3").Select   If MsgBox("Voulez vous vraiement effacer le contenu Importation ?", vbYesNo + vbCritical + vbDefaultButton2, "Attention") End If     End Sub

---

Merci par avance

@+ Filou

Bonjour.

Comment es-tu bloqué ?

1. Tu as une erreur ? Laquelle ? Sur quelle ligne ?
2. Tu n'as pas d'erreur mais le code ne fait rien ?
3. Tu n'as pas d'erreur mais le code ne fait pas ce que tu attendais ? Qu'attendais-tu ? Qu'as-tu eu ?
4. Autre chose ?

A+

La fonction MsgBox ne renvoie pas une valeur binaire mais un entier (dans ton cas, ce sera 6 ou 7).
Dans une condition, il faut donc ajouter un opérateur de comparaison.

De plus, dans une structure If, on met un Then après la condition.

Bonsoir,
if msgbox(etc..)=vbyes then

Bonjour,
En complément des réponses déjà données, je te conseille la lecture de ce tutoriel titré VBA EXCEL La MsgBox décortiquée