Discussion :

[filou80]

Bonjour à tous

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marot_r]

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+

[Menhir]

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.

[Thumb down]

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

[Philippe Tulliez]

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