"variable non définie"

petchy · 8 Juin 2003

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 · 8 Juin 2003

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 · 9 Juin 2003

salut le forum

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

@ plus
petchy

"variable non définie"

petchy

Guest

Ti

Guest

petchy

Guest

Discussions similaires