Problème d'extraction de données

Version imprimable

Bonsoir,

Je tente de faire une macro qui extrait les données de 3 colonnes la "A", "B" et "C" en fonction des valeurs en "D" pour en faire trois autres listes en "E", "F" et "G". Donc les valeurs en "A" qui se retrouve en "D" sont effacé de la liste "A" pour créer une liste "E", "B" en "F" et "C" en "G". Pour la colonnes "A" tout semble fonctionner. La "B" ne fonctionne pas. La "C" se fait extraire la valeur mais n'efface pas la valeur. Pouvez-vous m'aider à trouver ce qui ne vas pas?
Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Extrairelesdoublons()
    Dim f1 As Worksheet
    Dim i As Long, DerLig_D As Long, DerLig_E As Long, DerLig_F As Long, DerLig_G As Long
    Dim Valeur As String
    Dim C As Object
 
    Set f1 = Sheets("Calcule")
    Application.ScreenUpdating = False
    DerLig_D = f1.[D100000].End(xlUp).Row
    For i = 3 To DerLig_D
        Valeur = f1.Cells(i, "D")
        Set C = f1.Columns("A:C").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole)
        If Not C Is Nothing Then
            If C.Column = 1 Then
                DerLig_E = f1.[E100000].End(xlUp).Row
                f1.Cells(DerLig_E + 1, "E") = f1.Cells(C.Row, "A")
                f1.Cells(C.Row, "A").Delete
            ElseIf C.Column = 2 Then
                DerLig_F = f1.[F100000].End(xlUp).Row
                f1.Cells(DerLig_F + 1, "F") = f1.Cells(C.Row, "B")
                f1.Cells(C.Row, "B").Delete
            ElseIf C.Column = 3 Then
                DerLig_G = f1.[G100000].End(xlUp).Row
                f1.Cells(DerLig_G + 1, "G") = f1.Cells(C.Row, "C")
                f1.Cells(C.Row, "C").Delete
            End If
        End If
    Next i
    Set f1 = Nothing
    Set C = Nothing
End Sub

04/12/2019, 07h24
unparia

Bonjour

Lorsque l'on parcourt de haut en bas en modifiant le nombre des lignes suivantes (ce qui est le cas que ce soit en supprimant ou en ajoutant une/des ligne(s)), on en bouleverse forcément la numérotation.
Pour éviter cela, on parcourt de bas en haut (For ... to ... step -1)

Commence par appliquer ce principe

Je ne suis par ailleurs pas certain d'avoir totalement cerné le but à atteindre, mais appelle à toutes fins ton attention sur le fait que la destruction d'une ligne étant celle des cellules de toutes ses colonnes, tu "perds" par exemple une occurrence en colonne Y d'une valeur qui, déjà trouvée en colonne X, a donné lieu à la suppression de la ligne en cours.
04/12/2019, 20h31
Miraie

Bonjour,

Merci unparia pour ta réponse. Je dois t'avouer que je suis encore débutant en VBA. Je comprends ce que tu me dis, mais, je ne sais comment l'appliquer. Pourrais-tu me donné un exemple ou me joindre un tuto qui me permettrais d'apprendre comment formuler afin de partir de bas en haut?

Pour ce que je tente de faire, je veux 3 colonnes ayant des valeurs entre 600 et 700 qui si, il se retrouve dans une autre colonne spécifique, ces donné sont extraite pour créer trois autres colonnes tout en les effaçant de leur colonne d'origine. J’espère être plus précis.