[XL-2007] variable objet non definie

variable objet non definie

bonjour j'ai une erreur a ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim fl As Worksheet
Private Sub EffacerLigne_Click()     
    NoLigne = ScrollBar1.Value
 
    If MsgBox("La ligne " & NoLigne & " va être effacée, " & vbCrLf & _
        "les données seront définitivement perdues" & vbCrLf & "Êtes-vous sûr de vouloir faire ça ?", _
        vbYesNo, "EFFACEMENT DE LA LIGNE") = vbYes Then
        fl.Rows(NoLigne).ClearContents''''''''''''''''''''''''''''''''''''''''''''''erreur
 
    End If
 
 Range("c" & ligne).Value = 0
 Unload Me
 
End Sub

le message est le suivant variable objet ou variable de bloc with nopn definie
es que vous pouvez m'aider
j'ais bien NoLigne Renseigné
qu'es ceque j'ai pas déclare svp ? merci

Bonjour,

Tu as bien déclaré la variable Dim fl As Worksheet mais elle n'est pas initialisée
Code:

1 2 3 4 5 6 7 Private Sub EffacerLigne_Click() Set fl = Sheets("MaFeuille") '... '... '... End Sub

je doit etre deja fatigue merci:ccool: