Modification code VBA- erreur exec 1004

Bonsoir à tous,

J'aurais souhaité votre aide pour la ligne d'un code vba

suite erreur execution '1004' >> cellule est protége en lecture seule.

[ Sub Transfert()

Dim ligne As Integer

Dim colonne As Byte

Dim cellule As Range

ActiveSheet.Unprotect

ligne = Worksheets("Base").Range("A65536").End(xlUp).Row + 1

For Each cellule In Worksheets("Fiche").Range("F5,C22,E9,E10,E11,F11,E15,E16,E17,E19")

colonne = colonne + 1

Worksheets("Base").Cells(ligne, colonne) = cellule <<<<<< ligne qui pose problème

Next cellule

ActiveSheet.Protect

End Sub ]

Merci à vous pour votre aide

Bonsoir

Je ne vois pas le souci... Quel est le nom de la feuille active à déproteger ?

Sinon le code comme ceci :

Dim ligne As Integer
Dim colonne As Byte
Dim cellule As Range
ActiveSheet.Unprotect
ligne = Worksheets("Base").Range("A65536").End(xlUp).Row + 1

For Each cellule In Worksheets("Fiche").Range("F5,C22,E9,E10,E11,F11,E15,E16,E17,E19")
    colonne = colonne + 1
    Worksheets("Base").Cells(ligne, colonne) = cellule.Value
Next cellule
ActiveSheet.protect

Cordialement

Bonsoir Dan

Bonsoir a tous

Les éléments vont de fiche vers (BASE qui est protégé).

suite à la modif =

erreur de compilation.

instruction incorrecte exterieur d'une procédure

Cdlt

re

Cela ne répond pas à la question posée.

Vous êtes sur quelle feuille lors de l'exécution du code. Sur Base ou sur Fiche ?

Désolée,

Je suis sur la feuille "Fiche"

re

Donc c'est la feuille Base qui est à déprotéger

Vous pouvez essayer comme ceci :

Dim ligne As Integer
Dim colonne As Byte
Dim cellule As Range
With Worksheets("Base")
    .Unprotect
    ligne = .Range("A65536").End(xlUp).Row + 1

    For Each cellule In Worksheets("Fiche").Range("F5,C22,E9,E10,E11,F11,E15,E16,E17,E19")
        colonne = colonne + 1
        .Cells(ligne, colonne) = cellule.Value
    Next cellule
    .Protect
End With

Merci de clôturer le fil en cliquant sur le V vert à coté du bouton EDITER lors de votre réponse

Cordialement

re,

J'ai encore un message d'erreur sur " With Worksheet ("Base")"

[ erreur de compilation : instruction incorrecte a exterieur d'1 procédure ]

Merci de votre aide

Cdlt

Re

Oui j'avais corrigé --> With Worksheets("Base")

Cordialement

Re,

le probleme persiste.

même erreur pour la même ligne

Désolée,

Cdlt

Re,

même erreur pour la même ligne

vérifiez :

• le nom de votre feuille afin de voir si vous n'avez pas un espace.
• comment est écrit le nom "Base" (majuscule, minuscule,...)

Si le problème persiste, mettez votre code complet ou mieux votre fichier en ligne sans données confidentielles

Cordialement

Bonsoir à tous,

Ci-joint le fichier avec le code dont le problème persiste toujours..

Encore merci pour votre aide

Cdlt

Re

Hum.... C'est normal votre problème si vous ne mettez pas le nom de la macro....

Juste avant Dim ligne As Integer mettez ceci par exemple SUB TEST()

Ensuite vous changez le nom TEST par ce que voulez

Crdlt

Bonsoir Dan,

Vraiment, un grand merci pour tout.

C'est super...

Cordialement