Ajouter underscore

Bonjour

J'ai dans une colonne des noms composé et j'aimerai lui ajouter un Underscore.

Je joins un fichier exemple

Je vous remercie d'avance

Max

Bonjour,

=SUBSTITUE(A5;" ";"_")

?

Bonjour

Merci beaucoup est-il possible d'avoir la même chose en VBA ?

Max

Bonjour valmax, oyobrans, le forum,

Un essai par macro (ctrl+e pour exécuter le code)

Sub test()

 Dim i As Long, dl As Long

  Application.ScreenUpdating = False              'évite le scintillement de l'écran

  With Sheets("Feuil1")
   dl = .Range("A" & Rows.Count).End(xlUp).Row    'dernière ligne utilisée de la colonne A
    For i = 5 To dl                               'boucle de la ligne 5 à la dernière ligne utilisée
     .Range("B" & i).Value = Replace(.Range("A" & i), " ", "_")  'remplace espace par underscore
    Next i
  End With

  Application.ScreenUpdating = True
End Sub

Cordialement,

Bonjour xorsankukai

Super je viens de voir qu'il y a des noms avec un tiret comme ceci : grégory_besson-moreau

peut on les remplacer par un underscore.

Merci beaucoup

Max

Re,

Peut-être ainsi....

Sub test()

 Dim i As Long, dl As Long

  Application.ScreenUpdating = False              'évite le scintillement de l'écran

  With Sheets("Feuil1")
   dl = .Range("A" & Rows.Count).End(xlUp).Row    'dernière ligne utilisée de la colonne A
    For i = 5 To dl                               'boucle de la ligne 5 à la dernière ligne utilisée
    ' .Range("B" & i).Value = Replace(.Range("A" & i), " ", "_")  'remplace espace par underscore
   '  .Range("B" & i).Value = Replace(.Range("B" & i), "-", "_")  'remplace tiret par underscore
      .Range("B" & i).Value = Replace(Replace(.Range("A" & i), "-", "_"), " ", "_") 'remplace tiret et espace par underscore
    Next i
  End With

  Application.ScreenUpdating = True
End Sub

Cordialement,

Re,

Nickel je te remercie

Bonne soirée

Max

bonsoir,

une autre façon de faire,

    Application.ScreenUpdating = False
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    With Range("B1:B" & dl)
        .Value = Range("A1:A" & dl).Value
        .Replace " ", "_", lookat:=xlPart
        .Replace "-", "_", lookat:=xlPart
    End With
    Application.ScreenUpdating = True