Doublons sur Excel
durden35
Messages postés
7
Statut
Membre
-
locmare -
locmare -
Salut!
J'ai ce genre de données sous excel :
A
A
A
B
B
B
B
ZZ
ZZ
ZZ
Je voudrais savoir si qqun sait comment je peux copier dans une autre colonne ces valeurs mais sans doublons
Merci par avance!
J'ai ce genre de données sous excel :
A
A
A
B
B
B
B
ZZ
ZZ
ZZ
Je voudrais savoir si qqun sait comment je peux copier dans une autre colonne ces valeurs mais sans doublons
Merci par avance!
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Doublons sur Excel
- Doublons photos - Guide
- Liste déroulante excel - Guide
- Supprimer doublons excel - Guide
- Trier sur excel - Guide
- Word et excel gratuit - Guide
4 réponses
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
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.
