Formule pour ajouter un caractère

Bonjour,

Je cherche une formule sous VBA pour ajouté le caractère "_" au début de la cellules si celle ci commence par un chiffre.

Par exemple 2015 => _2015

Merci d'avance
et désolé si ce n'est pas complet c'est mon 1er post ici

Bonjour

Pour que l'on puisse t'aider

Et que ce fichier soit représentatif de ton fichier original mais avec des données bidons...

Comme cela on peut savoir que quelle colonne il faut travailler à quelle ligne il faut commencer...

Fred

Bonjour

Dans l'exemple joint, on traite la colonne B

Code dans un Module associé à un bouton

Sub Modifie()
Dim Cel As Range, Val
For Each Cel In Range("B2", Range("B2").End(xlDown))
Val = Left(Cel, 1)
If Asc(Val) >= 48 And Asc(Val) <= 57 Then
Cel.Value = "_" & Cel.Value
End If
Next Cel
End Sub

Cordialement

Voici le fichier désolé je n'est pas l'habitude.

Dans la colonne type et année j'aimerais donc que le début de ma cellule commence par "_" et non par un chiffre.

Merci

Re bonjour

donc si le but est de convertir

en

et même chose pour la colonne Type, le code d'Amadéus fait le boulot il suffit de changer le 2e B2 par C2 dans son code

Sub Modifie()
Dim Cel As Range, Val
For Each Cel In Range("B2", Range("C2").End(xlDown))
Val = Left(Cel, 1)
If Asc(Val) >= 48 And Asc(Val) <= 57 Then
Cel.Value = "_" & Cel.Value
End If
Next Cel
End Sub

Fred

Bonjour,

Voici ma proposition avec une fonction personnalisée (et donc à utiliser sur feuille ou pas d'ailleurs) :

Function AJOUTER_UNDERSCORE(Chaine As String) As String

AJOUTER_UNDERSCORE = Chaine

If Chaine Like "#*" Then
    AJOUTER_UNDERSCORE = "_" & Chaine
End If

End Function

Cdlt,