Discussion :

[jksn_jk]

Bonjour,

j'ai un classeur excel dans lequel j'ai 2 colonnes avec des valeurs communes.

J'aimerais trier la 2ème colonne dans l'ordre d'apparition des valeurs dans la 1ère colonne, sachant qu'il est possible que toutes les valeurs ne soient pas présentes, cela va de soi.

Les valeurs présentes dans la colonne 1 et non présentes dans la colonne 2 sont à placer dans la colonne 2.

Les valeurs présentes dans la colonne 2 et présentes dans la colonne 1 sont à placer côte à côte.

Les valeurs présentes dans la colonne 2 et non présentes dans la colonne 1 sont à placer dans l'ordre initial d'apparition dans la colonne 2 à la fin de la colonne 2.

Remarque : il n'est pas possible d'avoir plusieurs fois la même valeur par colonne.

ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
colA    colB               colA    colB
----    ----               ----    ----
val1    val2               val1    val1    
val2    val3        =>     val2    val2
val3    val4               val3    val3
val4    val5               val4    val4
                                   val5

Je ne pratique pas le VBA assez fréquemment pour m'en sortir tout seul rapidement.

=> Pourriez-vous m'écrire la MACRO qui ferait cela ?

Merci beaucoup.

Cordialement,
JK.

[Invité]

L'enregistreur de macro est parfaitement capable de l'écrire!
un peut d’audace que diable!!

[jksn_jk]

Je ne sais pas enregistrer cette séquence pour la rendre utilisable.

Il se pourrait qu'il faille en effet utiliser une rechercheV, car les valeurs peuvent être n'importe où dans la pratique : dans le désordre le plus absolu.

Une âme charitable pour un bout de code ?

Cordialement,
JK.

[mercatog]

Quel est la version de ton Excel? C'est important

[jksn_jk]

Voici une copie d'écran qui comporte, j'espère, les informations nécessaires :



Cordialement,
JK.

Voici un fichier excel avec un exemple plus représentatif.

PS : j'ai oublié de préciser que #mot-cle# est concaténé aux valeurs qui existent dans la colonne 1 uniquement lorsqu'elles sont ajoutées à la colonne 2.

Cordialement,
JK.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub test()
Dim NB As Long
NB = ActiveWorkbook.Worksheets("VMAP_COLLATERAL").Range("A" & Rows.Count).End(xlUp).Row
TriSelect ActiveWorkbook.Worksheets("VMAP_COLLATERAL"), ActiveWorkbook.Worksheets("VMAP_COLLATERAL").Range("A2:A" & NB), xlAscending
TriSelect ActiveWorkbook.Worksheets("VMAP_COLLATERAL"), ActiveWorkbook.Worksheets("VMAP_COLLATERAL").Range("A2:A" & NB), xlDescending
 
NB = ActiveWorkbook.Worksheets("VMAP_COLLATERAL").Range("B" & Rows.Count).End(xlUp).Row
TriSelect ActiveWorkbook.Worksheets("VMAP_COLLATERAL"), ActiveWorkbook.Worksheets("VMAP_COLLATERAL").Range("B2:B" & NB), xlAscending
TriSelect ActiveWorkbook.Worksheets("VMAP_COLLATERAL"), ActiveWorkbook.Worksheets("VMAP_COLLATERAL").Range("B2:B" & NB), xlDescending
End Sub
 
Sub TriSelect(MySheet As Worksheet, MyRange As Range, Optional CroisantDeCroisant As Long)
   MySheet.Sort.SortFields.Clear
    MySheet.Sort.SortFields.Add Key:=Range( _
       Replace(MyRange(1, 1).Address, "$", "")), SortOn:=xlSortOnValues, Order:=CroisantDeCroisant, DataOption:= _
        xlSortNormal
    With MySheet.Sort
        .SetRange MyRange
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub