Erreur de compilation : Seuls des commentaires peuvent

Bonjour,

je suis très débutant dans le langage VBA, et j'essaye de choper des morceaux de code pour arriver à mes fins.

Mais j'ai toujours le message d'erreur suivant :

" Erreur de compilation : Seuls des commentaires peuvent apparaître après End Sub, End Function ou End Property."

Est ce que vous pourriez m'aider svp ?

Merci !

Private Sub valider_Click()
Dim L As Integer
    If MsgBox("Confirmez-vous l'insertion de cette nouvelle tache ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
    L = Sheets("04_liste_tache_sasie").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement ? la premiere ligne de tableau non vide

        Range("A" & L).Value = code
        Range("B" & L).Value = libelle
        Range("C" & L).Value = groupe
        Range("D" & L).Value = activite
'        Range("E" & L).Value = TextBox3
'        Range("F" & L).Value = TextBox4
'        Range("G" & L).Value = TextBox5
'        Range("H" & L).Value = TextBox6
'        Range("I" & L).Value = TextBox7
          End If
          End Sub

      Option Explicit

Private Sub ecran_Click()
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Range("A1").Select
ActiveSheet.Paste
Public Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)

End Sub

Mets le Option Explicit à la première ligne de ton code.

Edit: Le code de Jean-Eric est correct. Je n'avais pas vu le

Public Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)

End Sub

à la fin de ton code...

Bonjour,

Essaie ainsi :

Option Explicit
Public Declare Sub keybd_event Lib "user32" ( _
                               ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
                               ByVal dwExtraInfo As Long)

Private Sub valider_Click()
Dim L As Integer
    If MsgBox("Confirmez-vous l'insertion de cette nouvelle tache ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
        L = Sheets("04_liste_tache_sasie").Range("a65536").End(xlUp).Row + 1    'Pour placer le nouvel enregistrement ? la premiere ligne de tableau non vide

        Range("A" & L).Value = code
        Range("B" & L).Value = libelle
        Range("C" & L).Value = groupe
        Range("D" & L).Value = activite
        '        Range("E" & L).Value = TextBox3
        '        Range("F" & L).Value = TextBox4
        '        Range("G" & L).Value = TextBox5
        '        Range("H" & L).Value = TextBox6
        '        Range("I" & L).Value = TextBox7
    End If
End Sub

Private Sub ecran_Click()
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
    Range("A1").Select
    ActiveSheet.Paste
End Sub

ah oui super merci bcp !!

Je viens de comprendre d'ou vient mon erreur.

Du coup j'ai placé Option Explicit en haut de mon code, j'ai retrouvé des variables non définies,

et tout fonctionne !

Merci bcp !

André