VBA - DOUBLONS + CELLULES VIDES

Résolu/Fermé

eideal Messages postés 21 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 20 février 2017 - Modifié par eideal le 8/07/2011 à 22:56
eideal Messages postés 21 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 20 février 2017 - 11 juil. 2011 à 21:17

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.

A voir également:

VBA - DOUBLONS + CELLULES VIDES
Supprimer les doublons excel - Guide
Doublons photos - Guide
Excel additionner des cellules - Guide
Verrouiller cellules excel - Guide
Excel compter cellule couleur sans vba - Guide

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
Modifié par Patrice33740 le 8/07/2011 à 23:22

Tout sur les doublons :

http://boisgontierjacques.free.fr/pages_site/Doublons.htm
Patrice

Réponse 2 / 2

eideal Messages postés 21 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 20 février 2017
11 juil. 2011 à 21:17

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Excel VBA : Derniere colonne utilisée

Excel VBA : Récupérer la valeur d'une cellule

Pb pour insérer lignes

VBA : Range avec références variables..

Discussions similaires

Newsletters