Ajouter un Underscore

[maval]

Bonjour,

J'ai sur ma colonne "A" une liste de nom comme ceci:

56 231 - SAINT NOLFF
56 232 - SAINT PERREUX
56 233 - SAINT PHILIBERT
56 234 - SAINT PIERRE QUIBERON
56 237 - SAINT THURIAU
56 239 - SAINT VINCENT SUR OUST
56 263 - SAINTE ANNE D AURAY
56 209 - SAINTE BRIGITTE
56 220 - SAINTE HELENE
56 240 - SARZEAU
56 243 - SENE
56 251 - THEIX
56 260 - VANNES

qui peut être de 50 à 1500 noms j'aimerais lui ajouter un Underscore uniquement sur la parie alphabétique se qui donnerez ceci:

56 231 - SAINT_NOLFF
56 232 - SAINT_PERREUX
56 233 - SAINT_PHILIBERT
56 234 - SAINT_PIERRE_QUIBERON
56 237 - SAINT_THURIAU
56 239 - SAINT_VINCENT_SUR_OUST
56 263 - SAINTE_ANNE_D_AURAY
56 209 - SAINTE_BRIGITTE
56 220 - SAINTE_HELENE
56 240 - SARZEAU
56 243 - SENE
56 251 - THEIX
56 260 - VANNES

En VBA ou formule

Je vous remercie d'avance

Cordialement

Max

 

[ChTi160]

Bonjour maval

Est ce que tu vas utiliser ces Noms Modifiés dans une procédure ?
si oui pourquoi ne pas inclure la modification directement dans la procédure ?
je regarde et post
Bonne journée
Amicalement
Jean marie

 

[maval]

Salut Jean marie

Je te remercie oui je vais utiliser ces Noms Modifiés dans une procédure, parce que la procédure a mon avis est trop longue; donc je pense à la faire en deux temps
Bonne journée

 

[ChTi160]

Re
une approche
Bonne Journée
Amicalement
Jean marie

 

[ChTi160]

Re
joins cette procédure pour voir comment on peut faire

 

[cathodique]

un essai

Sub es()
Dim c As Range, dl As Integer
dl = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("a3:a" & dl)
c = Replace(c, " ", "_")
Next c
End Sub

 

[maval]

OK
au final je devrais avoir ceci

 

[ChTi160]

Bonjour Cath
Attention ! Le code postal n'est pas concerné je crois .
Bonne journée
Amicalement
Jean marie