Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

vba - récupéré une liste trié et sans doublons

4 réponses
Avatar
Franck
Bonjour,
J'ai une proc=E9dure sql qui me retourne des valeurs de type string dans
deux colonnes (Colonne A =3D Type, Colonne B =3D Element).

Par mesure de s=E9curit=E9 (comme je ne suis pas ma=EEtre de la proc=E9dure
sql pr=E9c=E9demment cit=E9e), je souhaiterais r=E9cup=E9rer mes deux
colonnes tri=E9es Alphabetiquement.

Exemple.
Colonne A - Colonne B
Type1 - Element 2
Type1 - Element 1
Type3 - Element 1
Type2 - Element 2

Et je voudrais arriver =E0
Type1 El1
Type1 El2
Type2 El2
Type3 El1

Bref, un tri sur deux colonnes et sans doublons...

Je me gratte la t=EAte pour trouver un moyen rapide et performant pour
arriver =E0 cela (si tant est que ce ne soit pas tout simple).

Alors si vous avez des suggestions, je suis preneur.

merci d'avance.

4 réponses

Avatar
Franck
J'ai honte pour les fautes dans le titre...
Avatar
ChrisV
Bonjour Franck,

En supposant que les données se situent en Feuil1!A1:Bxx

Sub zaza()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
On Error Resume Next
With Sheets("lisTSD")
.Delete: Sheets.Add.Name = "lisTSD"
Sheets("Feuil1").[A1].CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=[A1], Unique:=True
[A1].CurrentRegion.Sort Key1:=[A2], _
Order1:=xlAscending, Key2:=[B2], _
Order2:=xlAscending, Header:=xlGuess
End With
End Sub


ChrisV


"Franck" a écrit dans le message de news:

Bonjour,
J'ai une procédure sql qui me retourne des valeurs de type string dans
deux colonnes (Colonne A = Type, Colonne B = Element).

Par mesure de sécurité (comme je ne suis pas maître de la procédure
sql précédemment citée), je souhaiterais récupérer mes deux
colonnes triées Alphabetiquement.

Exemple.
Colonne A - Colonne B
Type1 - Element 2
Type1 - Element 1
Type3 - Element 1
Type2 - Element 2

Et je voudrais arriver à
Type1 El1
Type1 El2
Type2 El2
Type3 El1

Bref, un tri sur deux colonnes et sans doublons...

Je me gratte la tête pour trouver un moyen rapide et performant pour
arriver à cela (si tant est que ce ne soit pas tout simple).

Alors si vous avez des suggestions, je suis preneur.

merci d'avance.
Avatar
Franck
Merci beaucoup ^^
Avatar
ChrisV
Comment qui dit déjà JP...
ce fut avec plaisir que nous fumes à tes côtés, Franck...


ChrisV


"Franck" a écrit dans le message de news:

Merci beaucoup ^^