Je suis novice et je bloque pour copier/coller automatiquement des données.
J'ai besoin de repérer certaines lignes d'un tableau de données en fonction de la valeur d'une des colonnes (mon critère étant dans la 6ème colonne), de copier une partie des lignes (les 6 premières colonnes) et de les coller dans une autre feuille.
Sachant que mon tableau de données est mis à jour plusieurs fois par mois, je voudrais aussi éviter les doublons lors des mises à jour.
Ci-dessous, le code que j'avais commencé à faire mais qui ne fonctionne pas (et qui ne prend pas en compte l'aspect mise à jour/doublons).
Quelqu'un peut-il m'aider??
EN vous remerciant par avance.
- Code: Tout sélectionner
Sub Equip42()
For i = 1 To 10000
If Left(Worksheets("extract").Range("F" & i), 13) = "Equip42" Then
LastRow = (Worksheets("Equip42").Range("A1").SpecialCells(xlCellTypeLastCell).Row)
For j = 1 To 6
Sheets("extract").Cells(i, j).Select
Selection.Copy
Selection.Paste Destination:=Worksheets("Equip42").Cells(LastRow, j+1)
Next j
End If
Next i
End Sub