Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 659
Nombre de snippets : 2085
Connexion

Supprimer sur place les doublons d'une colonne

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 03/03/2007 21:34:36 et initié par mortalino [Liste]
Vue : 8763
Catégorie(s) : Maths, Trucs & Astuces, Divers
Langages dispo pour ce code :
- VBA
Proposer ce code dans un autre langage



Langage : VBA
Date ajout : 03/03/2007
Posté par mortalino [Liste]
Private Sub SupprimeDoublons(FeuilleATraiter As  String, ColonneATraiter As  Byte)
Dim i As Integer, j As Integer, DLV1 As Integer
DLV1 = Sheets(FeuilleATraiter).Columns(ColonneATraiter).Find("", , , , xlByRows, xlNext).Row - 1
For i = DLV1 To 2 Step -1
    For j = i - 1 To 1 Step -1
        If Sheets(FeuilleATraiter).Cells(i,  ColonneATraiter).Value = Sheets(FeuilleATraiter).Cells(j, ColonneATraiter).Value  Then _
            Sheets(FeuilleATraiter).Cells(j, ColonneATraiter).Delete  Shift:=xlUp
    Next j
Next i
End Sub
Sub EXEMPLE_UTILISATION()
' SUPPRESSION  des valeurs en doublon de la colonne A de la Feuille 1
Call SupprimeDoublons("Feuil1", 1)
End Sub

Snippets en rapport avec : Excel, Suppression, Valeurs, Doublons

24/11/2009 - Tester si une feuille Excel est protégée

04/07/2009 - Ajouter une ligne à une listview (items multiples)

08/06/2009 - Connexion à un fichier excel comme base de données

31/05/2009 - Chercher un mot ou une partie d'un mot dans une colonne d'une feuille excel

27/11/2008 - Ouvrir un fichier modèle excel, l'altérer, enregistrer les manipulations sous un autre nom

14/10/2008 - Pseudo CheckBox

02/10/2008 - Effacer tout les TextBox contenus dans une feuille EXCEL

04/09/2008 - Ouvrir un fichier excel dans une nouvelle session si la session existante contien déjà un fichier ouvert

13/07/2008 - Exporter facilement des données en Excel

07/07/2008 - Supprimer les doublons d'un tableau de chaines



Codes sources en rapport avec : Excel, Suppression, Valeurs, Doublons

{Visual Basic, VB6, VB.NET, VB 2005} SUPPRESSION DES DOUBLONS DANS PLAGE EXCEL
Liminaire : La méthode Range.AdvancedFilter Action:=xlFilterInPlace, Unique:=True proposée par ...

{SQL} SUPPRESSION DE DOUBLONS
C'est une suite de requêtes qui permettent de supprimer les doublons d'une table. Il y en a d'autre ...

{Visual Basic, VB6, VB.NET, VB 2005} QUELQUES FONCTIONS SUPPLÉMENTAIRES POUR EXCEL
Quelques fonctions comme supprimer les espaces entre les mots, conversion majuscule/minuscule, reche...

{Visual Basic, VB6, VB.NET, VB 2005} MACRO COMPLÉMENTAIRE DE DÉDOUBLONNAGE POUR EXCEL
Cette macro permet de dédoublonner une base excel en fonction de colonnes ou en-têtes de colonnes ch...

{Visual Basic, VB6, VB.NET, VB 2005} ALGORITHME DE TRI À BULLES
Algo de tri à bulles : permet de trier un fichier texte de A à Z avec suppression des doublons :)...

{Visual Basic, VB6, VB.NET, VB 2005} LIEN HYPERTEXTE SOUS EXCEL EN PARTAGE
Création de liens hypertextes sous excel lorsque le classeur est en partage. En effet, lorsque le c...

{Visual Basic, VB6, VB.NET, VB 2005} DÉMINEUR VBA EXCEL
Un petit démineur en VBA Excel avec lageur, hauteur et nombre de mine variable ...

{Visual Basic, VB6, VB.NET, VB 2005} VBA EXCEL AFFICHER UN NUANCIER DES COULEURS AFIN DE CHOISIR UN CODE COLORINDEX A METTRE DANS LE VBA
Cette routine génère dans la feuille active un nuancier des codes couleurs d'Excel (attention de ...

{Visual Basic, VB6, VB.NET, VB 2005} OUVRIR TOUS LES FICHIERS EXCEL D'UN DOSSIER ET DE SES SOUS-DOSSIERS
Petite macro permettant de choisir un dossier puis de parcourir le dossiers et ses sous-dossiers afi...

{Visual Basic, VB6, VB.NET, VB 2005} ÔTER LA PROTECTION D'UNE FEUILLE GRACE À UN BUG D'EXCEL
On savait à quel point excel est une passoire, mais de là à trouver une telle faille !!! Et oui, ...