Concaténer avec un zéro

Bonjour,
J'ai un petit problème tout bête et je ne comprends pas pourquoi ma macro ne fonctionne pas. Elle est toute simple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub AjoutDeZero()   Dim i As Integer Dim var As String   For i = 3 To 197 Cells(i, 5).Select var = Cells(i, 5).Value   ActiveCell.FormulaR1C1 = "=""0"" & var"   Next i   End Sub

---

Je veux dans une colonne de mon fichier, ajouter un 0 devant toutes les valeurs de ma colonne.
Quand les cellules sont de format standard ou nombre, j'obtiens #NOM??
Quand les cellules sont de format texte, j'obtiens ="0" & var

Je devrai obtenir : 016345987 par exemple (016...)

est-ce que ça vient d'un problème de format ou de ma formule ???

Merci de me répondre !!!

Avec tes cellules en format texte :

Code:

---

1 2 3 4

For i = 3 To 197 var = Cstr(Cells(i, 5)) Cells(i,5) ="0" & var Next i

---

cela devrait mieux marcher :king: