Code erreur 438

Bonjour à tous,

Je suis novice dans le VBA et je rencontre une difficulté sur un code, pourriez vous m'aider s'il vous plaît?

Voici mon soucis:

Je cherche à copier les données de certaine cellules de mon fichier sur la dernière ligne d'une deuxième feuille .

J'ai donc essayé d'abord avec une seule cellule (la E10 de la feuille 1) qui doit être copier sur la dernière cellule vide de la colonne B de la feuille "clients".

mais lorsque je lance la macro il m'affiche une erreur 438.

Pourriez vous m'indiquer ce qui ne va pas avec mon codage s'il vous plaît?

Merci d'avance pour votre aide.

Mélissa

Sub test()

 Dim lstrwb As Long
 Dim rwnum As Long

'Je désactive la protection de la feuille:
    ActiveSheet.Unprotect
'J'identifie l'onglet de collage:
    Set ws_clients = Worksheets("CLIENTS")

 'J'identifie la derniere cellule non vide de la colonne b:
    lstrwb = ws_clients.Range("B" & Rows.Count).End(xlUp).Row
    rwnumb = lstrwb + 1

'Je copie la cellule E10 de la page formulaire decouverte dans la premiere cellule vide en colonne B de la page clients:
    If Range("E10") <> "" Then  
        ActiveSheet.Range("E10").Copy ws_clients.rwnumb

        Else

        MsgBox "le nom n'est pas renseigné!"

    End If

'Je réactive la protection de la feuille:
    ActiveSheet.Protect

End Sub

Bonjour Tissaraz,

Pas de fichier joint = risque de réponse erronée ...

Dans le code, la ligne ActiveSheet.Range("E10").Copy ws_clients.rwnumb est incorrecte, "rwnumb" n'identifie pas une cellule mais le n° de la dernière ligne vide qui ne peut pas être utilisé comme propriété de l'objet Worksheet. Essaie ActiveSheet.Range("E10").Copy ws_clients.cells(rwnumb,2)

Cdlt,

Cylfo

Bonjour Cylfo,

Merci pour ton aide, grâce à toi j'y vois plus claire et vu que cela fonctionne je vais pouvoir continuer avec les autres cellules.

A bientôt