XL 2016 [Resolu] Erreur 1004 sur ligne de code

[Jauster]

Bonjour le forum,

Lorsque j'essaye de debug ma macro en passant par F8, ma macro affiche une erreur :
Run-time error 1004 : Application-defined or object-defined error.

With Worksheets("MAJ")

DernLigne = .Range("B" & Rows.Count).End(xlUp).Row

.Range("C2").FormulaR1C1 = "=VLOOKUP(RC[-1],CODESAP!C[-2]:C[-1],2,0)"

   
    With .Range("C2:C" & DernLigne)
            .FillDown
            .Value = .Value
    End With
End With

Le code bloque sur cette partie :

.Range("C2").FormulaR1C1 = "=VLOOKUP(RC[-1],CODESAP!C[-2]:C[-1],2,0)"

et je ne sais pas pourquoi. Une erreur dans la syntaxe ?

CODESAP : Nom d'une feuille


Merci d'avance

 

[Roland_M]

bonjour tout le monde,

j'ai fait l'essai ! aucune erreur !

bien que je ne pige pas trop le but !?

as-tu bien vérifié le nom des feuilles !?
surtout celle-ci CODESAP sans le !

 

[Jacky67]

Bonjour le forum,

Lorsque j'essaye de debug ma macro en passant par F8, ma macro affiche une erreur :
Run-time error 1004 : Application-defined or object-defined error.

With Worksheets("MAJ")

DernLigne = .Range("B" & Rows.Count).End(xlUp).Row

.Range("C2").FormulaR1C1 = "=VLOOKUP(RC[-1],CODESAP!C[-2]:C[-1],2,0)"

 
    With .Range("C2:C" & DernLigne)
            .FillDown
            .Value = .Value
    End With
End With

Le code bloque sur cette partie :

.Range("C2").FormulaR1C1 = "=VLOOKUP(RC[-1],CODESAP!C[-2]:C[-1],2,0)"

et je ne sais pas pourquoi. Une erreur dans la syntaxe ?

CODESAP : Nom d'une feuille


Merci d'avance

Bonjour à tous,
Si les feuilles "MAJ" et "CODESAP" existent alors ceci devrait être suffisant

Sub test()
Dim DernLigne&

With Worksheets("MAJ")

DernLigne = .Range("B" & .Rows.Count).End(xlUp).Row

'.Range("C2:c" & DernLigne).FormulaR1C1 = "=VLOOKUP(RC[-1],CODESAP!C[-2]:C[-1],2,0)"
'ou
.Range("C2:c" & DernLigne).Formula = "=VLOOKUP(b2,CODESAP!a:b,2,0)"
.Range("C2:c" & DernLigne).Value = .Range("C2:c" & DernLigne).Value

End With
End Sub

 

[Jauster]

Bonjour,

Merci pour vos propositions mais l'erreur est toujours présente.
Le but de la macro est d'automatiser tout un processus pour mettre à jour un fichier (grâce à des extractions SAP) lors de sa première ouverture de la journée (Ce n'est ici qu'une petite partie de la macro).

Cette partie de la macro a pour but de cherche le code SAP attribué au code unique du produit (EAN)

La feuille existe car je la renomme dans un autre module

ActiveSheet.Name = "CODESAP"

Je vais voir comment faire pour Upload un fichier puisque le fichier est assez lourd et compliqué à anonymiser :S

 

[Jauster]

Re-bonjour,

Arg que je suis bête ^^ j'ai oublié de Unprotect avant de F8 puisque je protège mon fichier en fin de macro. Du coup le fichier était protégé contre les modifications.

Erreur d'inattention, désolé de vous avoir fait perdre votre temps.