Ajouter _ entre les mots

JCGL

XLDnaute Barbatruc

• 23 Avril 2017

• #2

Bonjour à tous,

Peux-tu essayer :

VB:

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

A+ à tous

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 23 Avril 2017

• #3

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Avril 2017

• #4

Bonjour à tous,

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

VB:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 23 Avril 2017

• #5

Re,

Je te remercie beaucoup Nickel
Bonne journée

 

Vote positif 0 Vote négatif