Modifier la premiere valeurd'une case

Bonjour,

je n'ai pas trouve mon probleme sur le forum.

Je vous explique je j'ai une colonne avec 850 cases remplis les une sous les autres. La premiere valeurs de ses cases est toujours un 1.

Ex: A2 : 1775869

A3 : 1775836

A4: 1775611...

Je voudrai que le 1 en premier caractère dans chaque cases se transforme en un 2, mais pas les autres des cases.

Je ne sais pas comment faire.

Je vous remercie par avance.

Poloch

Essaie ceci :

Sub substit()
    Dim n%, i%, c
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            c = .Cells(i, 1).Value
            If Left(c, 1) = 1 Then Mid(c, 1, 1) = 2
            .Cells(i, 1).Value = c
        Next i
    End With
End Sub

Cordialement

Ferrand

Bonjour,

si ce ne sont que des références à 7 chiffres tu peux aussi faire ainsi :

• écrire 1000000 dans une cellule et la copier
• sélectionner ta plage
• collage spécial addition

eric

Merci pour vos deux réponses Eriiiic j'avais pensé a faire ca en faisant un copier coller de valeur mais je voulais savoir si il existait une autre methode.

MErci a vous deux.

Cordialement

je cloture ma demande.