Discussion :

[fredsco21]

Bonjour,

Je suis nouveau sur ce forum, je m'inscrits à l'instant.

Je débute dans la création de MACRO et j'aurais besoin d'aide.

Vous trouverez ci-joint une MACRO que j'ai réussit à récupérer mais elle ne répond pas entièrement à mes attentes et je ne sais comment arriver au résultat que je souhaite.

Je m'explique :
1 - j'ai plusieurs centaines de lignes avec des infos différentes provenant d'un tableau qu'on nommera "tableau 1" : ligne 1 à 3 du fichier joint. la colonne C étant la plus importante, elle contient toujours un nombre à 16 chiffres.
2 - Ensuite je récupère d'un tableau 2, des centaines de lignes également, mais avec 1 seule colonne comprenant la série de 16 chiffres évoquée ci-dessus. A l'intérieur il peut y avoir des nombres identiques ou différents de ceux se trouvant dans la colonne C du tableau 1
3 - Mon souhait est de copier/coller le tableau 1, faire de même avec le tableau 2, en mettant les nombres à 16 chiffres des tableaux 1 et 2 dans la même colonne C.
4 - Enfin je souhaiterait que s'il y a deux ou plusieurs fois le même nombre à 16 chiffres, les lignes soient supprimées. Toutes les lignes avec le même nombre doivent disparaître contrairement aux doublons où il faut souvent garder un ligne.

Le problème avec la MACRO jointe est qu'elle compare toutes les données de chaque colonne et si les lignes ne sont pas tout à fait identiques, ils ne les suppriment pas. Ensuite il va mettre le résultat dans un second onglet ce qui me va bien.

J'espère avoir été clair. Si quelqu'un peut m'aider, je lui en serait reconnaissant.

Dernière chose existe t'il un outil, un logiciel d'aide à la "construction" de MACRO pour les débutants tels que moi ?

Merci par avance et bonne journée.

Fred.

[Daniel.C]

Bonjour,

Avec "Tableau 2" sur Feuil3 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub test()
  Dim C As Range, Plage As Range, Ligne As Long
  Application.ScreenUpdating = False
  Ligne = 1
  With Sheets("Feuil1")
    Set Plage = .Range("C2", .Cells(.Rows.Count, 3).End(xlUp))
  End With
  With Sheets("Résultat")
    For Each C In Plage
        Ligne = Ligne + 1
        .Cells(Ligne, 3).Resize(, 4).Value = C.Resize(, 4).Value
    Next C
  End With
  With Sheets("Feuil3")
    Set Plage = .Range("C2", .Cells(.Rows.Count, 3).End(xlUp))
  End With
  With Sheets("Résultat")
    For Each C In Plage
        Ligne = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
        .Cells(Ligne, 3).Value = C.Value
    Next C
    For i = .Cells(.Rows.Count, 3).End(xlUp).Row To 3 Step -1
        If Application.CountIf(.[C:C], .Cells(i, 3).Value) > 1 Then
            Rows(i).Delete
        End If
    Next i
  End With
  Application.ScreenUpdating = True
End Sub

[fredsco21]

Bonsoir Daniel,

Tout d'abord merci pour ta réponse.

Par contre, je dois faire une mauvaise manip car le résultat ne correspond pas à ce que j'attendais.

J'ai joins à ma réponse un autre fichier Excel où j'indique les conditions et le résultats attendu.

Si toutefois cela correspond à la macro de ta réponse, j'ai du faire une mauvais manip..

Merci encore pour ton aide.

Fred.

[mercatog]

Proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub SuprDoubl()
Dim LastLig As Long
Dim Plage As Range, c As Range
Dim Doublon As Boolean
 
Application.ScreenUpdating = False
With Worksheets("Résultat")
    .UsedRange.Clear
    Worksheets("Données de départ").UsedRange.Copy .Range("A1")
    LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row
    'on parcourt la colonne C et si doublon (NB.SI>1) on inscrit un X en colonne K
    Set Plage = .Range("C2:C" & LastLig)
    For Each c In Plage
        If Application.CountIf(Plage, c) > 1 Then
            Doublon = True
            c.Offset(, 8) = "X"
        End If
    Next c
    'S'il existe au moins un doublon, il y aura des lignes à supprimer
    'On fait un filtre automatique sur la colonne K contenant X
    'et on supprime les lignes visibles
    If Doublon Then
        .Range("K1:K" & LastLig).AutoFilter Field:=1, Criteria1:="X"
        .Range("K2:K" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilterMode = False
    End If
End With
End Sub

[patricktoulon]

bonjour
sinon je n'ai pas testé mais ca doit etre un peu comme ca tout en mémoire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub tri()
Dim tablo(2), tablo3, Nblignes
Set doublon = CreateObject("scripting.dictionnary")
tablo(1) = Sheets("Feuil1").Range("C2", Sheets("Feuil1").Cells(Sheets("Feuil1").Rows.Count, 3).End(xlUp))
nbligne = UBound(tablo(1))
tablo(2) = Sheets("Feuil3").Range("C2", Sheets("Feuil3").Cells(Sheets("Feuil3").Rows.Count, 3).End(xlUp))
nbligne = nbligne + UBound(tablo(2))
ReDim tablo3(Nblignes, 3)
For i = 1 To 2
For e = 0 To UBound(tablo(i))
If Not doublon.Exists(tablo(i)(e, 2)) Then
tablo3(a, 0) = tablo(i)(e, 0)
tablo3(a, 1) = tablo(i)(e, 1)
tablo3(a, 2) = tablo(i)(e, 1)
a = a + 1
End If
next e
next i
 
Sheets("Résultat").Cells(X, Y).Resize(UBound(tablo3), 3) = tablo3
End Sub

adapte le cells(x,y)

[fredsco21]

Bonjour Marcatog,

Super ta macro c'est exactement ce que je cherchais

C'est vraiment cool de pouvoir compter sur des gens sympa et efficace...

Est-ce que je peux abuser encore un peu ?

J'ai un autre fichier à traiter : (cf. doc Excel ci-joint).

Conditions : Si dans la colonne A j'ai deux fois le même compte à la suite et que dans la colonne D le nombre de commande pour ces deux comptes est égal à 0 ou 1 avoir la possibiliter de soit supprimer les deux lignes ou les colorer afin de les identifier (plus explicite dans le doc Excel).

N'étant pas encore très à l'aise avec les MACRO je ne sais pas s'il est possible quand on la lance d'avoir par exemple un pop up (tableau à cocher par exemple) proposant les deux choix Suppression des lignes ou coloriage des deux lignes.

Merci pour votre aide, je vais gagner un temps précieux..

Fred