Discussion :

[bartimeus35]

Bonjour à tous,
Dans une feuille excel j'ai 4 colonnes et je veux identifier les lignes qui ont exactement les même data ds les colonnes 1 à 4( et ds l'idéal les recopier ds un autre feuille)
J'ai pour le moment j'ai concaténé les colonnes 1 à 4 ds la colonne 5 et enuite je fais

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 RechercherDoublons()
 
 
  Dim i, j
 
premiere_ligne = 2
derniere_ligne = 2000
nb_trouves = 0
lignes = ""
 
  For i = premiere_ligne To derniere_ligne
 
    For j = i + 1 To derniere_ligne
 
      If Cells(i, 5) = Cells(j, 5) Then
 
        Cells(j, 1).Interior.Color = RGB(255, 0, 0)
 
lignes = lignes & " " & i
 
      End If
 
    Next j
 
  Next i
  MsgBox ("lignes avec des doublons " & lignes)
 
End Sub

Si au lieu de faire un check sur la colonne 5, je fais un check sur les 4 colonnes, ca dvient alors long...
Y a t il un moyen de faire l’équivalent acces d'un select distinct ***** et ensuite recopier le résultat ds une autre feuille ?

Any idea ?
Merci,

[Thumb down]

Bonjour,
pour recopier dans une autre feuille les valeurs sans doublons. dans la sub test j'ai choisi la feuille 1 vers la feuille 2 mais tu peux adapté à ton besoin!

il un moyen de faire l’équivalent acces d'un select distinct ***** et ensuite recopier le résultat ds une autre feuille ?

Code select distinct Feuille1 into Feulle2 :

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
Sub test()
With ThisWorkbook
    FiltreActif .Sheets("Feuil1").UsedRange, .Sheets("Feuil1").UsedRange, .Sheets("Feuil2").Range("A1"), True
End With
End Sub
Private Function FiltreActif(RangeSource As Range, CriterRange As Range, CopyRange As Range, Optional Unique As Boolean = True) As Boolean
FiltreActif = False
On Error Resume Next
 RangeSource.AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=CriterRange _
        , CopyToRange:=CopyRange, Unique:=Unique
        DoEvents
     FiltreActif Not CBool(Err)
        'MsgBox Err.Description
        On Error GoTo 0
End Function

[bartimeus35]

Merci de ta piste mais ce na fonctionne pas chez moi, cf pièce jointe.
Je suis perdu , sniff
Pour simplifier la suite de ce que je voudrais faire, je voudrais pouvoir écrire OUI dans la colonne 5 de mon exemple quand il s'agit d'un doublon et la recopier ds la feuil2
(on est sur un doublon si les data des 4 colonnees sont les mêmes)

Mille mercis,
François

[Philippe Tulliez]

Bonjour,
En espérant avoir bien compris le problème, je ferais ce travail avec Power Query

Les données sont dans un tableau structuré nommé "t_Data3"

Le code Power Query

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
let
    Source = Excel.CurrentWorkbook(){[Name="t_Data3"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"Ref", type text}, {"Libellé 1", type text}, {"Date 1", type date}, {"Date 2", type date}, {"Date 3", type date}, {"Date 4", type date}}),
    AddKey = Table.AddColumn(#"Type modifié", "Key", each Text.Combine({Text.From([Date 4], "fr-BE"), Text.From([Date 3], "fr-BE"), Text.From([Date 2], "fr-BE"), Text.From([Date 1], "fr-BE")}, "|"), type text),
    GroupedRows = Table.Group(AddKey, {"Key"}, {{"Count", each Table.RowCount(_), type number}}), // Group By et Count
    FilteredRows = Table.SelectRows(GroupedRows, each [Count] > 1), // Filtrage des lignes
    MergedTable = Table.NestedJoin(AddKey, {"Key"}, FilteredRows , {"Key"}, "NewColumn"),
    #"NewColumn développé" = Table.ExpandTableColumn(MergedTable, "NewColumn", {"Count"}, {"Count"}),
    #"Lignes filtrées" = Table.SelectRows(#"NewColumn développé", each ([Count] <> null)),
    #"Autres colonnes supprimées" = Table.SelectColumns(#"Lignes filtrées",{"Ref", "Libellé 1", "Date 1", "Date 2", "Date 3", "Date 4"})
in
    #"Autres colonnes supprimées"

Illustration de la table source à gauche avec une mise en évidence les colonnes avec doublons (2 doubles et 3 triples)

[bartimeus35]

Bonjour,
En espérant avoir bien compris le problème, je ferais ce travail avec Power Query

Les données sont dans un tableau structuré nommé

Je ne maitrie pas bien les tableaux structurés nommés, je vais creuser ..

Pour le moment j’avais du code que j'ai finalement voulu appeler depuis access , mon code est don devenu

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
30
31
32
Function analyse_avant_import()
 
 
    Dim i, j
    Dim premiere_ligne, derniere_ligne
 
    premiere_ligne = 2
    derniere_ligne = 1628
 
   With oWkb_src
    analyse_avant_import = "OK"
    For i = premiere_ligne To derniere_ligne
 
        For j = i + 1 To derniere_ligne
         Forms("F_Attente").Controls("lblApplication").Caption = "Ligne " & i & "--" & j
            If (.Sheets(onglet_src).Cells(i, Col_appli) = .Sheets(onglet_src).Cells(j, Col_appli)) And (.Sheets(onglet_src).Cells(i, COL_C_V) = .Sheets(onglet_src).Cells(j, COL_C_V)) And (.Sheets(onglet_src).Cells(i, COL_ITEM) = .Sheets(onglet_src).Cells(j, COL_ITEM)) Then
 
                .Sheets(onglet_src).Cells(j, col_ANALYSE) = "DOUBLON"
                .Sheets(onglet_src).Cells(i, col_ANALYSE) = "DOUBLON"
                analyse_avant_import = "NOK"
 
            End If
 
        Next j
 
    Next i
    End With
 
 
 
 
End Function

Le problème est que ce code appelé finalement depuis access ( je fais un import et je veux faire une vérif avant) met plus d'une minute pour passer de i à i+1, donc 1628 lignes, c'est ingérable.

pour utiliser Power Query, il faut forcément que l'on soit ds Excel.?

[Thumb down]

test ça

[Philippe Tulliez]

Bonjour François,

Pour simplifier la suite de ce que je voudrais faire, je voudrais pouvoir écrire OUI dans la colonne 5 de mon exemple quand il s'agit d'un doublon et la recopier ds la feuil2
(on est sur un doublon si les data des 4 colonnees sont les mêmes)

Ce n'est plus une exportation là

Une proposition en utilisant les variables tableaux et en supposant que la cinquième colonne a un titre et qu'il n'y a pas de formule dans la liste de données. A modifier éventuellement les deux constantes.

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
Sub t()
  Const SheetName As String = "Feuil1" ' Nom de la feuille
  Const StartCel As String = "A1"      ' Cellule de départ des données
  Dim r As Range
  Dim t1 As Variant, t2 As Variant, t3 As Variant
  Dim e As Long
  Set r = ThisWorkbook.Worksheets(SheetName).Range(StartCel).CurrentRegion
  With r
    Set r = .Offset(1).Resize(.Rows.Count - 1)
  End With
  t1 = r.Value
  ReDim t2(1 To UBound(t1))
  For e = LBound(t1) To UBound(t1)
    t2(e) = t1(e, 1) & t1(e, 2) & t1(e, 3) & t1(e, 4)
  Next
  For e = LBound(t1) To UBound(t1)
    t3 = Filter(t2, t2(e))
    t1(e, 5) = IIf(UBound(t3), "Oui", "")
  Next
  r = t1
  Set r = Nothing
End Sub

Pour en savoir plus sur les variables tableaux : Utiliser les variables tableaux en VBA Excel

[Pierre Dumas]

Bonjour

Deux remarques.

Concernant le VBA, je passerai par la méthode suivante :
je dpplique la feuille (plus rapide que de copier les cellules)
j'utilise le bouton : Données > Supprimer les doublons

C'est très rapide car il n'y a aucune boucle.


Concernant le PowerQuery, je passerai par une autre méthode en seulement deux étapes.
Je sélectionne toutes mes colonnes > Accueil > Conserver les doublons
Accueil > Supprimer les doublons

C'est un des exercices que je fais réaliser à mes stagiaires

En espérant que cela aide

Bonne journée

Pierre Dumas

[Tête de chat]

Bonjour,

pour le plaisir d'utiliser des formules :

Code :

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

=UNIQUE(LET(NB;NB.SI.ENS(Tableau1[C1];Tableau1[C1];Tableau1[C2];Tableau1[C2];Tableau1[C3];Tableau1[C3];Tableau1[C4];Tableau1[C4]);FILTRE(Tableau1;NB>1)))

Par regardé ce que ça donne en perf sur des gros volumes...

[Philippe Tulliez]

Bonjour,

Je ne maitrie pas bien les tableaux structurés nommés, je vais creuser ..

J'avais oublié d'indiquer le nom du tableau structuré qui est t_Data3

Chaque fois que vous réagissez c'est pour changer la version de votre demande.
A la base vous demandez d'exporter les lignes contenant des doublons répartis sur quatre colonnes dans une autre feuille d'excel, ensuite il faut indiquer dans une 5ème colonne de la même feuille le mot "oui" si la ligne contient un doublon toujours réparti sur 4 colonnes et maintenant les données proviennent d'Access ?

Pourriez vous être clair dans votre demande ?

Et pour répondre à votre question, oui, on peut depuis excel et avec Power Query charger des données provenant d'Access

[bartimeus35]

test ça

Salut Thumb down, c'est parfait, exactement mon besoin,
Puis je demander une faveur :
Que faut il faire si je veux indiquer par exemple DOUBLON dans le colonne 6 de ma feuil1 pour les lignes étant des doublons ?
Mille mercis,

François

[Thumb down]

Bonjour,
voila.

[bartimeus35]