Bonjour, cela fait une semaine que je bloque sur une macro.
Je suis plutôt débutant sur VBA.
J'aurai besoin d'un coup de pouce pour débloquer.
Ce que je veux faire :
1. Sélectionner la colonne A de la feuille "Copier liste ici" (liste de codes clients)
2. Trouver les codes dans la colonne BV de la feuille "Sheet3" (liste des commandes avec ou sans code)
3. Copier les lignes de la feuille "Sheet3" dont la colonne BV contient un code de la colonne A de la feuille "Copier liste ici" dans la feuille "Sheet4".
J'arrive à trouver, mais je bloque sur le copier. Je n'arrive pas à faire en sorte que la ligne de la cellule trouvée soit copiée. La macro me copie à chaque fois la première ligne de la feuille "Sheet3".
Voici le code que j'utilise (et qui ne fonctionne totalement pas pour le moment):
Dim ValeurCellule
Dim i
For i = 1 To 8000
Worksheets("Copier liste ici").Activate
Set ValeurCellule = Range("A" & i)
ValeurCellule.Select
Worksheets("Sheet3").Activate
Columns("BV").Select
On Error Resume Next
If Selection.Find(ValeurCellule, LookIn:=xlFormulas, LookAt:=xlPart).Activate = ValeurCellule Then
Rows(ActiveCell.Row).Select
Selection.Copy
Else:
Worksheets("Sheet4").Activate
Rows(i & ":" & i).Select
ActiveSheet.Paste
End If
On Error GoTo 0
Next i
Application.CutCopyMode = False
Worksheets("Sheet4").Activate
Application.CutCopyMode = False
J'arrive à faire le tri ensuite, donc pas de problème.
Ah oui, pour moi la fin de mon code (après Next i) ne sert à rien, mais je n'ai pas essayé de le supprimé. Si ça ne sert vraiment à rien, dîtes-le moi !
Merci d'avance de votre aide !