[VBA] Copier/coller en fonction de 2 mot-clés
V
Bonjour,
Dans l'onglet magasin j'ai 2 tableaux.
Le tableau de gauche sont toutes les pièces que doit commander le magasiner donc des pièces pour du stock, du préventif, curratif ect
Et celui de droite les actions currative où il y a besoin de commander des pièces.
L'objectif est de copier coller les valeurs (de manière automatique) se trouvant dans la colonne "L" pour les envoyer dans la colonne "AF" quand une valeur de la colonne "C" est égale à une valeur de la colonne "AA" .
Etant débutant dans le code VBA j'ai essayé mais j'ai un code erreur
Vous pouvez trouvé le code dans le module n°7 dans le sub copier
Merci d'avance
VegetaRIEN
Dans l'onglet magasin j'ai 2 tableaux.
Le tableau de gauche sont toutes les pièces que doit commander le magasiner donc des pièces pour du stock, du préventif, curratif ect
Et celui de droite les actions currative où il y a besoin de commander des pièces.
L'objectif est de copier coller les valeurs (de manière automatique) se trouvant dans la colonne "L" pour les envoyer dans la colonne "AF" quand une valeur de la colonne "C" est égale à une valeur de la colonne "AA" .
Etant débutant dans le code VBA j'ai essayé mais j'ai un code erreur
Vous pouvez trouvé le code dans le module n°7 dans le sub copier
Merci d'avance
VegetaRIEN
V
Bonjour
Est-ce qu'il y a quelqu'un qui pourrait m'aider car je bloque vraiment ?
Merci d'avance
R
Bonjour Vegetarien,
Sub copier()
Dim CodeSAPTab2 As String, CodeSAPTab1 As String
Sheets("Magasin").Select
derniereLigneTab1 = Range("C" & Rows.Count).End(xlUp).Row
derniereLigneTab2 = Range("AA" & Rows.Count).End(xlUp).Row
For i = 14 To derniereLigneTab2
CodeSAPTab2 = Range("AA" & i).Value
For j = 14 To derniereLigneTab1
CodeSAPTab1 = Range("C" & j).Value
If CodeSAPTab2 = CodeSAPTab1 Then
Range("L" & j).Select
Selection.Copy
Range("AF" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
j = j + 1
End If
j = j + 1
Next
i = i + 1
Next
End Subvoila qui devrait répondre à tes attentes.
je te joins le fichier pour que tu puisses tester, j'ai affecter la macro au bouton "copier avancement cdde".
cordialement,