Recopie automatique

Question

Bonjour à tous, je recherche de l'aide pour créer une macro me permettant la chose suivante

Par exemple j’ai sur la feuille 1 un tableau avec une liste de la totalité des personnes

A2 : nom1, B2 : prénom1, C2 : age1, D2 : 1

A3 : nom2, B3 : prénom2, C3 : age2, D3 : 2

A4 : nom3, B4 : prénom3, C4 : age3, D4 : 3

A5 : nom4, B5 : prénom4, C5 : age4, D5 : 1

A6 : nom5, B6 : prénom5, C6 : age5, D6 : 3

Les chiffres dans la colonne D correspondent au groupe auquel vont appartenir chaque personne.

Une feuille 2 avec un tableau colonne A: nom, colonne B: prénoms et colonne C: age

Une feuille 3 avec un tableau colonne A: nom, colonne B: prénoms et colonne C: age

Mon but et de recopier les cellules de la ligne 2 de ce tableau dans les cellules de la ligne 2 du tableau feuille 2 (groupe 1)

Les cellules de la lignes 3 dans les cellules de la ligne 2 du tableau feuille 3 (groupe 3)

Et ainsi de suite en fct du chiffre en colonne D(feuille 1)

Voilà

Merci

J'ai commencé mon code comme ça mais je bloque

Sub Triage()

Dim i as Integer

Worksheets("Feuil1").select

For i = 4 To 8

If Range("D" & i).Value = 1 Then

Worksheets("Feuil1").Range("A2:C2").Copy _

Destination:=Worksheets("Feuil2").Range("A2:C2")

End If

If Range("D" & i).Value = 2 Then

Worksheets("Feuil1").Range("A3:C3").Copy _

Destination:=Worksheets("Feuil3").Range("A2:C2")

End If

If Range("D" & i).Value = 3 Then

Worksheets("Feuil1").Range("A4:C4").Copy _

Destination:=Worksheets("Feuil4").Range("A2:C2")

End If

End Sub

Andre13 · Answer

Pas trop compris ton truc que tu voulais réaliser Débutant que je suis, il faut déclaré la variable 'i' après pas trop compris je laisse à un Pro te venir en aide ci-joint le fichier crdlt, André...