Replace

[pat_herault]

Bonjour à tous,

Une enieme question sur la fonction replace, mais là je bloque sur un détail bête.
J'ai sous excel, une colonne avec des numéro de sécu. Je veux scanner toute la colonne et remplacer les 6 derniers chiffres par 111111.
j'ai essayé replace et mid mais rien ne fonctionne.

Quelqu'un aurait il une solution ?

Merci et bonne journée

 

[pedrag31]

Re : Replace

Bonjour pat_herault, bonjour le forum,

Voir exemple en PJ avec une formule...

En esperant que ce soit ce que tu attends.

Bonne journee,🙂

 

[Robert]

Re : Replace

Bonjour Pat, bonjour le forum,

Peut-être comme ça (à adapter pour la colonne) :

For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
    cel.Value = Mid(cel.Value, 1, 5) & "111111"
Next cel

Édition :

Bonjour Pedrag on s'est croisé.

 

[pat_herault]

Re : Replace

re bonjour à tous,

Merci à Pedrag31 et Robert.
Pedrag ta formule marche très bien mais j'avais omis de préciser sous VB.
Je te remercie, je la conserve pour une utilisation ultérieure.
Robert, c'est parfait ! ça fonctionne bien, je vais l'adapter à mes besoins.

Merci et bonne journée🙂

 

[kjin]

Re : Replace

Bonjour,
J'ai pas bu de pastaga (ça c'est pour Robert) et pourtant il me semble que les N° de sécu comportent 13 chiffres + la clé
Donc,

For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
    cel = Mid(cel, 1, Len(cel) - 6) & "111111"
Next cel
End Sub

A+
kjin