For Each c In Sheets("A").[A1].CurrentRegion
If c.Value = "" Then c.Value = "-"
If IsNumeric(Left(c.Value, 1)) Then c.Value = "_" & c.Value
Next c
Aucune solution c'est le meme . peut etre ma versio d excel produit cette erreur.Euh! C'est le votre, la PJ #25.
J ai cette solution que tu propose mais ce que je demande ce qu avec une base de donne de milliers de ligne et une operatrice de saisie qui entre les donnes via une formulaire .... pff . Comment faire resoudre ca au lieu de mettre une lettre devant.Ca m'étonnerait. ( bien qu'étant sous XL2007, je n'ai jamais rencontré ce souci )
Essayez cette PJ.
Si je trouve quelque chose qui commence par un chiffre alors je le fais précéder de "_"
Dans ce cas on ne traite que des chaines de caractères. Chez moi ça marche, évidemment :
Regarde la pièce jointe 1142128
For Each c In Sheets("A").[A1].CurrentRegion
If c.Value = "" Then c.Value = "-"
If IsNumeric(Left(c.Value, 1)) Then c.Value = "_" & c.Value
Next c