Discussion :

[Invité]

Bonjour,

Le classeur en question contient des données confidentiels, vous comprendrez qu'il m'est impossible de le joindre à mon post.
Ce classeur est constitué de plusieurs feuilles avec une entête sur la ligne1 de A à AC, le nombre de lignes sur chaque feuille est variable et différent
(il peut y avoir des lignes vides). Je voudrai créer une nouvelle feuille sur laquelle je n'aurai ni de doublons, ni de lignes vides.
Par doublons , je veux dire des lignes identiques (c-à-d concaténation de toutes les cellules d'une ligne).

Je vous remercie beaucoup.

Cordialement,

[mercatog]

Dans un premier temps, copies toutes les données à la suite dans ta nouvelle feuille. Ensuite appliques RemoveDuplicates (à partir de Xl 2007)

[Philippe Tulliez]

Bonjour,
La première étape consiste à parcourir l'ensemble des feuilles du classeur et pour chaque feuille concernée, utiliser une procédure de suppression de lignes.
Exemple pour trois feuilles à supprimer.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ConcatenateSheet()
 Dim sht As Worksheet
 For Each sht In ThisWorkbook.Worksheets
  Select Case UCase(sht.Name)
   Case "FEUIL1", "FEUIL2", "DB" ' Feuilles à supprimer
      DeleteRow sht
  End Select
 Next
 Set sht = Nothing
End Sub

Autre exemple où toutes les feuilles doivent être traitées à l'exception des feuilles nommées Synthese et Menu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ConcatenateSheet()
 Dim sht As Worksheet
 For Each sht In ThisWorkbook.Worksheets
  Select Case UCase(sht.Name)
   Case "SYNTHESE", "MENU"
   Case Else
    DeleteRow sht
  End Select
 Next
 Set sht = Nothing
End Sub

Code de la procédure DeleteRow (suppression des lignes vides), en supposant que si la cellule de la colonne A est vide, la ligne l'est également

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub DeleteRow(sheet As Worksheet)
 Debug.Print sheet.Name
 Dim LastRow As Long
 If Len(sheet.Range("A1")) = 0 Then Exit Sub ' Pas de données
 With sheet
  LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
  On Error Resume Next
  .Range("A1:A" & LastRow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  On Error GoTo 0
 End With
End Sub

Nous supposons également que toutes les listes commencent à partir de la cellule A1
La deuxième étape consiste à rapatrier toutes les feuilles sur une seule (on suppose que toutes les feuilles concernées ont les mêmes étiquettes de colonnes.
Voir cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010)
La troisième étape consiste à supprimer les enregistrements en double.
Déclencher l'enregistreur de macro en utilisant la commande Supprimer les doublons du groupe Outils de données de l'onglet [Données] et retravailler le code.

[Invité]

Bonjour,

je vous remercie beaucoup, je vais utiliser les solutions de Philippe Tulliez.

Mon problème est résolu.

Merci encore à vous deux.

Cordialement,