XL 2016 [Resolu] Erreur 1004 sur ligne de code

  • Initiateur de la discussion Initiateur de la discussion Jauster
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
511
Réponses
11
Affichages
780
Retour