erreur de compilation : variable non définie

[chinel]

Salut tout le monde !

voici mon code :

Private Sub CommandButton2_Click()
a = MsgBox("David veux-tu garder les données du plannning?", vbYesNo)
If a = vbYes Then
Sheets("Cal").Range("a1:n39").PrintPreview
End If
If a = vbNo Then
If Application.Dialogs(xlDialogPrinterSetup).Show Then
Range("a1:n39").PrintPreview

Range("a7:n11").ClearContents
Range("a7:n11").Interior.ColorIndex = 2

Range("a14:n18").ClearContents
Range("a14:n18").Interior.ColorIndex = 2

Range("a21:n25").ClearContents
Range("a21:n25").Interior.ColorIndex = 2

Range("a28:n32").ClearContents
Range("a28:n32").Interior.ColorIndex = 2

Range("a35:h39").ClearContents
Range("a35:h39").Interior.ColorIndex = 2

Sheets("Cal").Visible = False
'Cells.Interior.ColorIndex = xlNone

End If
End If
End Sub

le problème se trouve au niveau de "a=msgbox("...")"

pouvez-vous m'aider svp ! merci

 

[wilfried_42]

Re : erreur de compilation : variable non définie

Bonjour

Private Sub CommandButton2_Click()
[COLOR="Red"]Dim a as byte[/COLOR]
a = MsgBox("David veux-tu garder les données du plannning?", vbYesNo)
If a = vbYes Then

ou encore :

if MsgBox("David veux-tu garder les données du plannning?", vbYesNo)= vbYes Then
Sheets("Cal").Range("a1:n39").PrintPreview
else
If Application.Dialogs(xlDialogPrinterSetup).Show Then
Range("a1:n39").PrintPreview

 

[chinel]

Re : erreur de compilation : variable non définie

Wilfried 42 merci ton premier code fonctionne bien !
bonne journée, merci encore !!!!