Doublons sur Excel
Fermé
durden35
Messages postés
7
Date d'inscription
mercredi 15 novembre 2006
Statut
Membre
Dernière intervention
26 juin 2007
-
6 mars 2007 à 12:06
locmare - 20 sept. 2007 à 12:53
locmare - 20 sept. 2007 à 12:53
A voir également:
- Doublons sur Excel
- Supprimer les doublons excel - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Calculer une moyenne sur excel - Guide
- Comment aller à la ligne sur excel - Guide
4 réponses
didier09
Messages postés
13
Date d'inscription
mercredi 28 février 2007
Statut
Membre
Dernière intervention
20 décembre 2007
36
7 mars 2007 à 22:40
7 mars 2007 à 22:40
Salut,
Si tes données sont dans la colonne A et que tu veut les copier sans doublons dans la colonne B, écrit la procédure suivante.
Sub SuppressionDoublons()
'Efface le contenue de la colonne B
Columns("B:B").Select
Selection.ClearContents
'Sélectionne la plage de la première à la dernière cellule non vide
Range("A1", Range("A1").End(xlDown)).Select
'copie la plage sélectionnée et la colle à partir de B1
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Trie la plage collée par ordre alphabétique
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B1").Select
'Suppression des doublons
'Déclaration des variables
Dim CelluleCourante As Range
Dim CelluleSuivante As Range
Set CelluleCourante = Range("B1")
'Boucle effectuée jusqu'à cellule vide
Do While Not IsEmpty(CelluleCourante) = True
Set CelluleSuivante = CelluleCourante.Offset(1, 0)
If CelluleSuivante.Value = CelluleCourante.Value Then
CelluleCourante.Select
Selection.Delete Shift:=xlUp
End If
Set CelluleCourante = CelluleSuivante
Loop
End Sub
Si tes données sont dans la colonne A et que tu veut les copier sans doublons dans la colonne B, écrit la procédure suivante.
Sub SuppressionDoublons()
'Efface le contenue de la colonne B
Columns("B:B").Select
Selection.ClearContents
'Sélectionne la plage de la première à la dernière cellule non vide
Range("A1", Range("A1").End(xlDown)).Select
'copie la plage sélectionnée et la colle à partir de B1
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Trie la plage collée par ordre alphabétique
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B1").Select
'Suppression des doublons
'Déclaration des variables
Dim CelluleCourante As Range
Dim CelluleSuivante As Range
Set CelluleCourante = Range("B1")
'Boucle effectuée jusqu'à cellule vide
Do While Not IsEmpty(CelluleCourante) = True
Set CelluleSuivante = CelluleCourante.Offset(1, 0)
If CelluleSuivante.Value = CelluleCourante.Value Then
CelluleCourante.Select
Selection.Delete Shift:=xlUp
End If
Set CelluleCourante = CelluleSuivante
Loop
End Sub
bernis7
Messages postés
8
Date d'inscription
jeudi 6 septembre 2007
Statut
Membre
Dernière intervention
16 mars 2008
10 sept. 2007 à 17:08
10 sept. 2007 à 17:08
Cette "procédure" ... où faut-il l'écrire???????
merci
merci
Landoltp
Messages postés
68
Date d'inscription
mercredi 1 août 2007
Statut
Membre
Dernière intervention
14 mars 2008
1
10 sept. 2007 à 20:04
10 sept. 2007 à 20:04
salut,
faut que t'aille dans le menu Outils, puis dans Macro et tu clique sur Visual Basic Editor. Une fois que t'as fait ça tu double clique sur la feuille à laquelle (à gauche dans Visual Basic Editor) tu veux affecter la macro et tu recopie le code dedans.
ensuite pour lancer la macro il te suffit de cliquer sur Macros (sous Macro dans le menu Outils) et tu clique sur la macro que tu viens de créer.
normalement ça devrait marcher.
faut que t'aille dans le menu Outils, puis dans Macro et tu clique sur Visual Basic Editor. Une fois que t'as fait ça tu double clique sur la feuille à laquelle (à gauche dans Visual Basic Editor) tu veux affecter la macro et tu recopie le code dedans.
ensuite pour lancer la macro il te suffit de cliquer sur Macros (sous Macro dans le menu Outils) et tu clique sur la macro que tu viens de créer.
normalement ça devrait marcher.
Merci beaucoup sa peu m'aider pour mon probléme aussi.
A la seul différence j'ai des valeurs avant et aprés la colonne A et B.
BOn je sais remplacer les colonne et j'en créer une autre c'est pas trés difficile, mais j'aimerais simplement que la line en doublons soit elle aussi suppprimée. Pourriez-vous modifier le code afin que cela ce fasse...
En vous remerciant.
A la seul différence j'ai des valeurs avant et aprés la colonne A et B.
BOn je sais remplacer les colonne et j'en créer une autre c'est pas trés difficile, mais j'aimerais simplement que la line en doublons soit elle aussi suppprimée. Pourriez-vous modifier le code afin que cela ce fasse...
En vous remerciant.