J'ai dans ma colonne "A", plus pécisément de "A1:A200" une série de chiffre
et j'aimerais pouvoir supprimer tous les chiffres qui sont à double, ou à
triple, etc...Exemple : en A2 j'ai 125125, en A6 j'ai 125125, en A15 j'ai
125125 et j'aimerai conserver que la ligne 2 ou la célule A2.
Données > filtre élaboré > extraction sans doublon....
AV
papou
Bonjour Regarde du côté de Données, Filtre, Filtre Elaboré et l'option Extraction sans doublons. Cordialement Pascal
"Michel" a écrit dans le message de news:
Bonjour,
J'ai dans ma colonne "A", plus pécisément de "A1:A200" une série de chiffre et j'aimerais pouvoir supprimer tous les chiffres qui sont à double, ou à triple, etc...Exemple : en A2 j'ai 125125, en A6 j'ai 125125, en A15 j'ai 125125 et j'aimerai conserver que la ligne 2 ou la célule A2.
Merci de votre aide
Michel
Bonjour
Regarde du côté de Données, Filtre, Filtre Elaboré et l'option Extraction
sans doublons.
Cordialement
Pascal
"Michel" <Michel@discussions.microsoft.com> a écrit dans le message de news:
1B569779-3DCF-438E-891D-DBA1A66553EB@microsoft.com...
Bonjour,
J'ai dans ma colonne "A", plus pécisément de "A1:A200" une série de
chiffre
et j'aimerais pouvoir supprimer tous les chiffres qui sont à double, ou à
triple, etc...Exemple : en A2 j'ai 125125, en A6 j'ai 125125, en A15 j'ai
125125 et j'aimerai conserver que la ligne 2 ou la célule A2.
Bonjour Regarde du côté de Données, Filtre, Filtre Elaboré et l'option Extraction sans doublons. Cordialement Pascal
"Michel" a écrit dans le message de news:
Bonjour,
J'ai dans ma colonne "A", plus pécisément de "A1:A200" une série de chiffre et j'aimerais pouvoir supprimer tous les chiffres qui sont à double, ou à triple, etc...Exemple : en A2 j'ai 125125, en A6 j'ai 125125, en A15 j'ai 125125 et j'aimerai conserver que la ligne 2 ou la célule A2.
Merci de votre aide
Michel
...Patrick
si tes données ont une colonne libre juste à droite voici ce que j'utilise ...
Bye
Sub ValUniquesACote() ' PlageSrc As Range, CellDest As Range) 'Extrait les valeurs uniques d'une colonne et les renvoie 'dans une autre, à partir de CellDest tiré d'un code de F. Signonneau (pense-je) Dim Arr1, Elt, Arr2(), Coll As New Collection, i As Integer 'If PlageSrc.Columns.Count > 1 Then Exit Sub ' Mais possible sur 2 colonnes 'Arr1 = PlageSrc.Value Arr1 = Selection.Value Dim Colo Dim Line Dim err Colo = Selection.Column Line = Selection.Row For Each Elt In Arr1 On Error Resume Next Coll.Add Elt, CStr(Elt) If err.Number = 0 Then ReDim Preserve Arr2(1 To Coll.Count) Arr2(Coll.Count) = Elt End If On Error GoTo 0 Next For i = 1 To Coll.Count If IsEmpty(Cells(Line, Colo + 1)) Then Cells(Line + i, Colo + 1).Value = Coll.Item(i) Else MsgBox ("cellule voisine non vide") MsgBox Coll.Item(i) End If Next Application.Transpose (Arr2) End Sub
Sub MenuCell() Dim Ctrl For Each Ctrl In Application.CommandBars("Cell").Controls Ctrl.Enabled = True Next With Application.CommandBars("Cell").Controls.Add(msoControlButton) .Caption = "Unique à droite" .BeginGroup = True .FaceId = 252 .OnAction = "ValUniquesACote" End With End Sub
Sub Efface_ClicDroit() On Error Resume Next Application.CommandBars("Cell").Controls("Unique à droite").Delete End Sub
"Michel" a écrit dans le message de news:
Bonjour,
J'ai dans ma colonne "A", plus pécisément de "A1:A200" une série de chiffre et j'aimerais pouvoir supprimer tous les chiffres qui sont à double, ou à triple, etc...Exemple : en A2 j'ai 125125, en A6 j'ai 125125, en A15 j'ai 125125 et j'aimerai conserver que la ligne 2 ou la célule A2.
Merci de votre aide
Michel
si tes données ont une colonne libre juste à droite voici ce que j'utilise
...
Bye
Sub ValUniquesACote() ' PlageSrc As Range, CellDest As Range)
'Extrait les valeurs uniques d'une colonne et les renvoie
'dans une autre, à partir de CellDest tiré d'un code de F. Signonneau
(pense-je)
Dim Arr1, Elt, Arr2(), Coll As New Collection, i As Integer
'If PlageSrc.Columns.Count > 1 Then Exit Sub ' Mais possible sur 2 colonnes
'Arr1 = PlageSrc.Value
Arr1 = Selection.Value
Dim Colo
Dim Line
Dim err
Colo = Selection.Column
Line = Selection.Row
For Each Elt In Arr1
On Error Resume Next
Coll.Add Elt, CStr(Elt)
If err.Number = 0 Then
ReDim Preserve Arr2(1 To Coll.Count)
Arr2(Coll.Count) = Elt
End If
On Error GoTo 0
Next
For i = 1 To Coll.Count
If IsEmpty(Cells(Line, Colo + 1)) Then
Cells(Line + i, Colo + 1).Value = Coll.Item(i)
Else
MsgBox ("cellule voisine non vide")
MsgBox Coll.Item(i)
End If
Next
Application.Transpose (Arr2)
End Sub
Sub MenuCell()
Dim Ctrl
For Each Ctrl In Application.CommandBars("Cell").Controls
Ctrl.Enabled = True
Next
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Unique à droite"
.BeginGroup = True
.FaceId = 252
.OnAction = "ValUniquesACote"
End With
End Sub
Sub Efface_ClicDroit()
On Error Resume Next
Application.CommandBars("Cell").Controls("Unique à droite").Delete
End Sub
"Michel" <Michel@discussions.microsoft.com> a écrit dans le message de news:
1B569779-3DCF-438E-891D-DBA1A66553EB@microsoft.com...
Bonjour,
J'ai dans ma colonne "A", plus pécisément de "A1:A200" une série de
chiffre
et j'aimerais pouvoir supprimer tous les chiffres qui sont à double, ou à
triple, etc...Exemple : en A2 j'ai 125125, en A6 j'ai 125125, en A15 j'ai
125125 et j'aimerai conserver que la ligne 2 ou la célule A2.
si tes données ont une colonne libre juste à droite voici ce que j'utilise ...
Bye
Sub ValUniquesACote() ' PlageSrc As Range, CellDest As Range) 'Extrait les valeurs uniques d'une colonne et les renvoie 'dans une autre, à partir de CellDest tiré d'un code de F. Signonneau (pense-je) Dim Arr1, Elt, Arr2(), Coll As New Collection, i As Integer 'If PlageSrc.Columns.Count > 1 Then Exit Sub ' Mais possible sur 2 colonnes 'Arr1 = PlageSrc.Value Arr1 = Selection.Value Dim Colo Dim Line Dim err Colo = Selection.Column Line = Selection.Row For Each Elt In Arr1 On Error Resume Next Coll.Add Elt, CStr(Elt) If err.Number = 0 Then ReDim Preserve Arr2(1 To Coll.Count) Arr2(Coll.Count) = Elt End If On Error GoTo 0 Next For i = 1 To Coll.Count If IsEmpty(Cells(Line, Colo + 1)) Then Cells(Line + i, Colo + 1).Value = Coll.Item(i) Else MsgBox ("cellule voisine non vide") MsgBox Coll.Item(i) End If Next Application.Transpose (Arr2) End Sub
Sub MenuCell() Dim Ctrl For Each Ctrl In Application.CommandBars("Cell").Controls Ctrl.Enabled = True Next With Application.CommandBars("Cell").Controls.Add(msoControlButton) .Caption = "Unique à droite" .BeginGroup = True .FaceId = 252 .OnAction = "ValUniquesACote" End With End Sub
Sub Efface_ClicDroit() On Error Resume Next Application.CommandBars("Cell").Controls("Unique à droite").Delete End Sub
"Michel" a écrit dans le message de news:
Bonjour,
J'ai dans ma colonne "A", plus pécisément de "A1:A200" une série de chiffre et j'aimerais pouvoir supprimer tous les chiffres qui sont à double, ou à triple, etc...Exemple : en A2 j'ai 125125, en A6 j'ai 125125, en A15 j'ai 125125 et j'aimerai conserver que la ligne 2 ou la célule A2.
