Discussion :

[Jusomi31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

[zandru]

Avec tes cellules en format texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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