Ajouter un Underscore

maval · 15 Mai 2017

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 · 15 Mai 2017

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 · 15 Mai 2017

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 · 15 Mai 2017

Re
une approche
Bonne Journée
Amicalement
Jean marie

ChTi160 · 15 Mai 2017

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

cathodique · 15 Mai 2017

un essai

VB:

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 · 15 Mai 2017

OK
au final je devrais avoir ceci

ChTi160 · 15 Mai 2017

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

Ajouter un Underscore

maval

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

Discussions similaires