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