Discussion :

[kythi]

Bonjour,

J'ai 2 liste de nom trié de A à Z comme ceci :

colonne A | colonne B

arthur    | arthur
albert    | anthone
anthone   | beatrice
bernard   | bernard
michelle  | melanie
olivier   | michelle
          | olivier

Je veux en résultat une modification des colonnes A et B :

arthur    | arthur
albert    |
anthone   | anthone
          | beatrice
bernard   | bernard
          | melanie
michelle  | michelle
olivier   | olivier

Je ne sais comment procéder..

Avez-vous une idée svp ?
Merci c'est très urgent.

[Daniel.C]

Bonjour,

Essaie :

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
Sub test1()
Dim Plage As Range, Tabl, C As Range, Ligne As Long, I As Long
Set Plage = Range("A1", Cells(Rows.Count, 1).End(xlUp))
Tabl = Application.Transpose(Range("B1", Cells(Rows.Count, 2).End(xlUp)))
[B:B].ClearContents
For Each C In Plage
    If IsNumeric(Application.Match(C.Value, Tabl, 0)) Then
        C.Offset(, 1).Value = C.Value
    End If
Next C
Ligne = Plage.Rows.Count
For I = 1 To UBound(Tabl)
    If Not IsNumeric(Application.Match(Tabl(I), Plage, 0)) Then
        Ligne = Ligne + 1
        Cells(Ligne, 1) = Tabl(I)
    End If
Next I
Range("A1", Cells(Rows.Count, 1).End(xlUp)).Resize(, 2).Sort [A1], xlAscending
End Sub

[kythi]

tout d'abord, merci pour ton script,

C'est pas totalement sa,
en faite il me met tout les noms sur la colonne A sauf ceux qui étaient dans la colonne A et B.
Moi ce que je veux c'est pas qu'il transfère un nom de la A vers la B mais juste qu'il les aligne et que si il ne trouve pas de correspondance il laisse un blanc en face.

Me comprends-tu ?

[Daniel.C]

Pas sûr d'avoir compris, mais le résultat est celui que tu donnes, au tri près :

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
Sub test1()
Dim Plage As Range, Tabl, C As Range, Ligne As Long, I As Long
Set Plage = Range("A1", Cells(Rows.Count, 1).End(xlUp))
Tabl = Application.Transpose(Range("B1", Cells(Rows.Count, 2).End(xlUp)))
[B:B].ClearContents
For Each C In Plage
    If IsNumeric(Application.Match(C.Value, Tabl, 0)) Then
        C.Offset(, 1).Value = C.Value
    End If
Next C
Ligne = Plage.Rows.Count
For I = 1 To UBound(Tabl)
    If Not IsNumeric(Application.Match(Tabl(I), Plage, 0)) Then
        Ligne = Ligne + 1
        Cells(Ligne, 2) = Tabl(I)
    End If
Next I
Range("A1", Cells(Rows.Count, 1).End(xlUp)).Resize(, 2).Sort [A1], xlAscending
End Sub

[jouana]

3 colonne A,B et C

Et tu fais dans la colonnes C un rechercheV ensuite tu cache la colonne b

[kythi]

Une idée de la formule ?

[jouana]

Code :

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

1
2
 
=RECHERCHEV(A1; $B$1:$B$X; 1; FAUX)

Tu met ça dans C1 et tu tire la cellule sur ttes les cellules que tu veux

[Marc-L]

Bonjour kythi,

voici une méthode simple utilisant un dictionnaire.

Au préalable dans l'environnement VBA, Microsoft Scripting Runtime doit être coché dans le menu Outils, Références.

Exemple fonctionnant avec la feuille active, source & résultat à partir de la cellule A1 :

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
Sub ArrangeListe()
    Dim Liste As New Dictionary, Cel As Range
    P$ = "A1:B" & Cells(Rows.Count, 1).End(xlUp).Row
 
    For Each Cel In Range(P)
        V = Cel.Value
        If V > "" Then Liste.Item(V) = Liste.Item(V) + 1
    Next
 
    Application.ScreenUpdating = False
    Range(P).ClearContents
 
    For R& = 1 To Liste.Count
        Cells(R, 1) = Liste.Keys(R - 1)
        If Liste.Items(R - 1) > 1 Then Cells(R, 2) = Liste.Keys(R - 1)
    Next
 
    Liste.RemoveAll
    Application.ScreenUpdating = True
End Sub

_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[jouana]

Bonjour,

Faire du VBA quand ce n'est pas nécessaire c'est un peu dommage après c'est au choix de chacun

[Invité]

Bonjour, test ça

[Marc-L]

Faire du VBA quand ce n'est pas nécessaire c'est un peu dommage après c'est au choix de chacun

Entièrement d'accord !

Mais ta formule ne donnant rien sur ma version et comme Daniel C n'a pas non plus proposé de formule,
au moins mon code répondait exactement à la problématique exposée, du moins le croyais-je …

En effet, je n'ai pas vu qu'il fallait conserver la colonne d'origine d'un nom unique.

Voici donc ma version en tenant compte :

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
26
27
28
29
Sub ArrangeListe()
    Dim Liste As New Dictionary, Cel As Range
    R& = Cells(Rows.Count, 1).End(xlUp).Row
    B& = Cells(Rows.Count, 2).End(xlUp).Row
     C = "A1:B" & IIf(B > R, B, R)
 
    For Each Cel In Range(C)
        If Cel.Value > "" Then _
            Liste.Item(Cel.Value) = IIf(Liste.Item(Cel.Value) > "", 2, "1:" & Cel.Column)
    Next
 
    Application.ScreenUpdating = False
    Range(C).ClearContents
 
    For R = 1 To Liste.Count
        C = Split(Liste.Items(R - 1), ":")
 
        If UBound(C) Then
            Cells(R, Val(C(1))) = Liste.Keys(R - 1)
 
        Else
            Cells(R, 1) = Liste.Keys(R - 1)
            Cells(R, 2) = Liste.Keys(R - 1)
        End If
    Next
 
    Liste.RemoveAll
    Application.ScreenUpdating = True
End Sub

Rappel : ce code ne fonctionne uniquement si Microsoft Scripting Runtime est bien coché dans les Références du menu Outils,
depuis la feuille active, source & résultat à partir de la cellule A1.


Nb : le résultat doit être identique si la procédure est lancée une deuxième fois avec la liste corrigée …


_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________
Les bourses ne témoignent pas l'état des économies, mais de la psychologie des investisseurs ! (Françoise Giroud)

[jouana]

Je retire ma réponse j'avais mal lu le sujet :/
Par contre intéressant je vais fouiller sur le sujet quand j'aurai un peu de tps

[kythi]

Et bien, merci d'alimenter le sujet en mon absence

J'ai donc développé ce dont j'avais besoin.

Je fais donc une copie de la colonne A et B pour pouvoir travailler dessus.
Etant donnée que les chaines de caractères A et B peuvent avoir des différences je fais des traitements avant.
- Je met tout en majuscule
- je retire les espaces inutile avant et après les nom prénom mais pas entre.
- je retire les accents

Ensuite je fais une première passe,
si le nom est sur la même ligne je le supprime de la colonne B.

Ensuite je fais une seconde passe en recherche dans la colonne B entière. Et je retire si j'ai trouvé le nom.

3eme passe, je note les noms restant dans une colonne nom erreurs.


Merci pour votre aide, même si au final je n'ai pas encore testé votre code.

[Daniel.C]

Bonjour,

et comme Daniel C n'a pas non plus proposé de formule

Ben non, la question a été posée dans le forum "Macros et VBA Excel".

[Marc-L]

Bonjour Daniel !

Loin de moi l'idée de te jeter la pierre mais je me doute dans le cas d'une solution sous le coude via formule directe sans VBA,
comme d'autres, tu l'aurais signalé !


________________________________________________
Quelle époque terrible que celle où des idiots dirigent des aveugles. (Shakespeare)

[Daniel.C]

Bonjour Marc-L,

Franchement, j'ai proposé une solution mais j'étais à côté de la plaque. Comme j'ai vu d'autres propositions (macros ou formules), je ne m'y suis plus investi.