Discussion :

[operaq]

Bonjour,

Je recherche une fonction pour rapprocher deux colonne automatiquement par rapport à certaines conditions;

Dans mon fichier, il y a deux colonnes adresse (adresse et complément d'adresse), cependant dans ma colonne adresse je peux parfois rencontrer "xx rue" et retrouver la suite dans complèment d'adresse.

Ainsi existe il une fonction pour rapprocher automatiquement les deux colonnes si dans ma colonne adresse les données se termine par "rue" "allée" "chemin" etc... ?

(je n'arrive pas à insérer de pièce jointe pour donner un exemple plus clair...)

merci par avance.

[Daniel.C]

Bonjour,

Si j'ai bien compris, avec tes adresses en colonne A et B, résultats en colonne C :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim C As Range, Rues As Variant
Rues = Array("rue", "avenue", "clos", "mail", "chemin") 'etc
For Each C In Range([A1], Cells(Rows.Count, 1).End(xlUp))
    If IsNumeric(Application.Match(Split(C, " ")(UBound(Split(C, " "))), Rues, 0)) Then
        C.Offset(, 2) = C.Value & " " & C.Offset(, 1).Value
    End If
Next C
End Sub

[operaq]

Ca fonctionne parfaitement! merci!

Par contre j'ai du mal à tout comprendre afin de l'ajuster parfaitement.

[Daniel.C]

"Split(C, " ")" découpe la chaîne en autant de sous-chaînes séparées par des espaces; par exemple :

Code :

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

Tablo= UBound(Split("20 rue de la Ferté Senneterre", " "))

donne le tableau suivant :



"UBound(Split(C, " ")" donne le numéro d'indice le plus haut de Tablo.

"Split(C, " ")(UBound(Split(C, " "))" donne donc le dernier mot.

"Application.Match" est l'équivalent de la fonction Excel EQUIV. On cherche donc si ce mot figure dans la liste de mots définis dans "Rues". Si l'on obtient une valeur numérique, c'est que le mot y figure, sinon on a une erreur.

[operaq]

Bonjour,

je me permet de ré-ouvrir ce sujet, car je n'arrive vraiment pas à remanier ce code pour l'ajuster à ce dont j'ai besoin;

J'aimerais simplement que la macro considères les colonnes "E" et "F" au lieu des colonnes "A" et "B".
Dans un désir complet, j'aimerais que les données regroupées ne soient pas copier mais coupé, ainsi couper directement les valeurs de "F" dans la colonne "E" au lieu d'ajouter l'ensemble dans une nouvelle colonne.

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim C As Range, Rues As Variant
Rues = Array("rue", "avenue", "clos", "mail", "chemin") 'etc
For Each C In Range([E1], Cells(Rows.Count, 5).End(xlUp))
    If IsNumeric(Application.Match(Split(C, " ")(UBound(Split(C, " "))), Rues, 0)) Then
        C.Value = C.Value & " " & C.Offset(, 1).Value
        C.Offset(, 1).Value = ""
    End If
Next C
End Sub