"variable non définie"

[petchy]

Le Forum
quand je click sur le bouton pour activé la macro,j'ai une erreur qui s'affiche "variable non définie"il ne trouve pas "supprimermsg",pourtant sur une autre aplli cela fonctionne,je ne comprends pas.

Private Sub XPButton4_Click()
Supprimermsg = MsgBox("Supprimer la ligne sélectionné ?", vbExclamation, _
"Opération irréversible !!!!")
If Supprimermsg = vbCancel Then
Else
Selection.ClearContents
Selection.Delete Shift:=xlUp
End If
End Sub

 

[Ti]

c'est tout simplement parce que tu n'as pas déclaré Supprimrmsg auparavant. Comme c'est une variable de type Variant, tu modifies ta macro comme ceci et ça marchera

Private Sub XPButton4_Click()
dim Supprimermsg

Supprimermsg = MsgBox("Supprimer la ligne sélectionné ?", vbExclamation, _
"Opération irréversible !!!!")
If Supprimermsg = vbCancel Then
Else
Selection.ClearContents
Selection.Delete Shift:=xlUp
End If
End Sub

 

[petchy]

salut le forum

merci TI ça fonctionne,désolé pour le retard je rentre du boulot.

@ plus
petchy