VBA Erreur 40036

[Arpette]

Bonjour à toutes et à tous, j'ai une erreur 40036 sur le code ci-dessous. Il fonctionnait bien jusqu'à une modification sur une feuille avec "Application.EnableEvents". J'ai tout supprimé et maintenant j'ai cette erreur.
Merci de votre aide
@+

Private Sub Valider_Click()
Dim dernLign As Long
Dim dernLign1 As Long
Application.ScreenUpdating = False
    With Sheets("Facture")
           
        If Me.LListeClients.List(Me.LListeClients.ListIndex) = VBA.String(9, "*") Then Exit Sub
        dernLign = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(dernLign, 1).Value = Me.LListeClients.List(Me.LListeClients.ListIndex)
        
        'On mémorise dans DernLign le numéro de la première ligne libre de la feuille Facture
        dernLign1 = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        'On met à jour la feuille Facture avec les données du Userform
        .Cells(dernLign1, 2).Value = LListeDonnées.List(Me.LListeDonnées.ListIndex)
    
    End With
  FListeClients.Hide
Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : VBA Erreur 40036

Bonjour,

comprends pas ceci :

= VBA.String(9, "*")

A priori cette fonction renvoie des caractères, tu ne peux l'utiliser dans ton test de l'instruction "if"...

bon après midi
@+

 

[Arpette]

Re : VBA Erreur 40036

Bonjour et merci Pierrot, je l'ai supprimé, mais j'ai toujours la même erreur.
Merci de votre aide.
@+

 

[Pierrot93]

Re : VBA Erreur 40036

Re,

sur quelle ligne cette erreur ??

 

[Pierrot93]

Re : VBA Erreur 40036

Re,

A noter, manque peut être un point sur cette ligne (devant rows) :

dernLign = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

 

[Arpette]

Re : VBA Erreur 40036

Re, ci-joint le fichier, je n'y comprends plus rien, j'ai copier le code dans un autre classeur, je n'ai plus le problème.
Merci de votre aide
@+

 

[Pierrot93]

Re : VBA Erreur 40036

Re,

tu as rajouté un argument "target1" à l'événement "change" de la feuille "facture", et ca lui plait pas trop... devrait être :

Private Sub Worksheet_Change(ByVal Target As Range)

 

[Arpette]

Re : VBA Erreur 40036

Re,
merci Pierrot, je suis tête en l'air.
Merci encore
@+