XL 2021 de la colonne B, ne garder que les communes et cp à mettre en colonne C

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2023

• #2

Bonjour Lionel,
Si j'ai bien compris :

VB:

Sub Ville()
    Dim T, i
    T = [B1].CurrentRegion
    For i = 2 To UBound(T)
        Nom = Split(T(i, 1), "       ")
        T(i, 1) = Trim(Nom(UBound(Nom)))
    Next i
    [C1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub

 

Pièces jointes

• Test.xlsm

  31.7 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2023

• #3

Bjr et merci sylvanu
C'est nickel

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juin 2023

• #4

Bonjour Lionel, sylvanu,

Ou plus simplement :

VB:

Function Dernier(x As String) As String
Dernier = Trim(Mid(x, InStrRev(x, vbLf) + 1))
End Function

A+

 

Pièces jointes

• Dernier(1).xlsm

  42.3 KB · Affichages: 2

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2023

• #5

Bjr et merci Gérard,

Nickel aussi et effectivement plus court.

Me voilà avec 2 belles solutions...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Juin 2023

• #6

Bonjour le fil, @Usine à gaz , @sylvanu , @job75

Usine à gaz à dit:

i vous aviez la solution fonction ou vba, ça m'arrangerait bien....

Cliquez pour agrandir...

=SUPPRESPACE(DROITE(SUBSTITUE(B1;CAR(10);REPT(" ";255));255))
puis recopie vers le bas.
Test OK avec la chaine du 1er message

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 1 Juin 2023

• #7

Bonjour le fil
A mon tour, avec PQ, œuf corse....

 

Pièces jointes

• PQ_Communes.xlsm

  42.3 KB · Affichages: 2

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Juin 2023

• #8

Re

Histoire de saluer le kenvroad PQiste @Cousinhub
J'avais oublier aussi cette formule
=FILTRE.XML("<t><s>" & SUBSTITUE(B1;CAR(10);"</s><s>") &"</s></t>"; "//s[last()]")

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2023

• #9

Bsr JM
Merci d'être là.
Tes 2 formules fonctionnent nickel.
Merci à toi...

Bsr Cousinhub

J'ai pas compris comment tu fais. Je ne vois pas dans ton fichier...

Merci à tous

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 1 Juin 2023

• #10

Hi,
J'utilise Power Query (PQ pour les intimes), qui est un complément gratuit de µSoft pour les versions <2016, mais totalement intégré depuis, notamment dans ta version.
Cette fonctionnalité n'utilise pas le langage VBA, mais le langage M
Un clic droit dans la requête puis "Table/Modifier la requête" te permet d'ouvrir l'éditeur PQ.
Et en cliquant sur "Editeur avancé", tu peux voir le code :

PowerQuery:

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Texte extrait après le délimiteur" = Table.TransformColumns(Source, {{"Communes", each Text.AfterDelimiter(_, "#(lf)", {0, RelativePosition.FromEnd}), type text}}),
    #"Espaces supprimés" = Table.TransformColumns(#"Texte extrait après le délimiteur",{{"Communes", Text.Trim, type text}})
in
    #"Espaces supprimés"

Bref, c'était juste pour le fun, mais ce qu'il faut savoir, c'est que PQ permet de traiter de grosses (très grosses) bases de données, car non concerné par les limites d'Excel...
Bonne soirée

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 2 Juin 2023

• #11

Bjr Cousinhub, le Fil, le Forum

Merci pour tes explications.
Je n'utilise pas PQ mais faudra que je vois comment ça fonctionne.

 

Vote positif 0 Vote négatif