VBA - DOUBLONS + CELLULES VIDES [Résolu/Fermé]

Signaler
Messages postés
21
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
20 février 2017
-
Messages postés
21
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
20 février 2017
-
Bonjour,

j'aurais besoin de vos lumières car je n'arrive pas à trouver la solution à mon problème malgré tous mes essais et tous les forums que j'ai lus.

J'ai un fichier avec 2 feuilles : 1 "onglet" commandes ou je colle les commandes extraites du mois et 1 onglet "categorie".

J'aimerais copier/coller sans doublons et sans cellules vides les colonnes E ("UNIVERS" et F("CATEGORIE") en cliquant sur un bouton "MAJ". Pour le copier/coller, j'ai trouvé une soluce mais pour le faire sans doublons et sans blancs, aucune solution ne fonctionne et j'en ai testé pas mal.

Voici le code que j'ai mis :

Option Explicit

Private Sub MAJ_click()

'VIDER LES COLONNES A ET B DE LA FEUILLE CATEGORIE
Worksheets("CATEGORIE").Range("A2:A65000").Clear
Worksheets("CATEGORIE").Range("B2:B65000").Clear

'REMPLIR LA COLONNE UNIVERS PAR LA COLONNE E DE LA FEUILLE COMMANDES
Worksheets("COMMANDES").Range("E2:E65000").Copy Worksheets("CATEGORIE").Range("A2")


'REMPLIR LA COLONNE CATEGORIE PAR LA COLONNE E DE LA FEUILLE COMMANDES
Worksheets("COMMANDES").Range("F2:F65000").Copy Worksheets("CATEGORIE").Range("B2")

'TRIER
Range("A2:B65000").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
True, Orientation:=xlTopToBottom

End Sub


Si vous pouviez m'aider sur cette affaire, ça serait vraiment sympa de votre part.

Dans l'attente de vos retours, n'hésitez pas si vous avez du question.

Merci à vous tous.

2 réponses

Messages postés
8535
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
9 avril 2021
1 650
Messages postés
21
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
20 février 2017

j'ai trouvé la réponse à ma question grace à boisgontier :

Option Explicit

Private Sub MAJ_click()

'VIDER LES COLONNES A ET B DE LA FEUILLE CATEGORIE
Worksheets("CATEGORIE").Range("A2:A65000").Clear
Worksheets("CATEGORIE").Range("B2:B65000").Clear

'REMPLIR LA COLONNE UNIVERS PAR LA COLONNE E DE LA FEUILLE COMMANDES
Sheets("COMMANDES").Range("E2:E65000").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("CATEGORIE").Range("A2"), Unique:=True

'REMPLIR LA COLONNE CATEGORIE PAR LA COLONNE E DE LA FEUILLE COMMANDES
Sheets("COMMANDES").Range("F2:F65000").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("CATEGORIE").Range("B2"), Unique:=True

'TRIER
Range("A2:A65000").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=True, Orientation:=xlTopToBottom

Range("B2:B65000").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=True, Orientation:=xlTopToBottom

End Sub

merci pour ce site