XL 2016 [Resolu] Erreur 1004 sur ligne de code

Jauster

XLDnaute Occasionnel
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.

VB:
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 :
VB:
.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
 

Jacky67

XLDnaute Barbatruc
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.

VB:
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 :
VB:
.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
Code:
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

XLDnaute Occasionnel
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
VB:
ActiveSheet.Name = "CODESAP"

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

Jauster

XLDnaute Occasionnel
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.
 

Discussions similaires

Réponses
11
Affichages
396
Réponses
14
Affichages
618

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 822
dernier inscrit
holale