Ajouter _ entre les mots

[maval]

Bonjour,
Je suis à la recherche d'un code en VBA si possible pour ajouter "_" entre chaque mots.
C'est à dire: LA PETITE MARCHE = LA_PETITE_MARCHE
Je vous remercie d'avance

Cordialement

Max

 

[JCGL]

Bonjour à tous,

Peux-tu essayer :

Cells(1, 1) = Replace(Cells(1, 1), " ", "_")

A+ à tous

 

[maval]

Bonjour JL
Je te remercie sa fonctionne très bien. Comment ajouter sur toute la colonne.
Merci et bonne journée
Max

 

[JCGL]

Bonjour à tous,

Pour la colonne A, de la ligne 2 à la dernière cellule renseignée :

Option Explicit

Sub Underscore()
    Dim DerL&, Lig&
    DerL = Feuil1.Range("A" & Rows.Count).End(3).Row
    For Lig = 2 To DerL
        Cells(Lig, 1) = Replace(Cells(Lig, 1), " ", "_")
    Next Lig
End Sub

A+ à tous

 

[maval]

Re,

Je te remercie beaucoup Nickel
Bonne journée