Replace

pedrag31

XLDnaute Occasionnel

• 2 Septembre 2009

• #2

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,🙂

 

Pièces jointes

• Replace111111.xls

  14.5 KB · Affichages: 45

Dernière édition: 2 Septembre 2009

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 2 Septembre 2009

• #3

Re : Replace

Bonjour Pat, bonjour le forum,

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

Code:

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é.

 

Vote positif 0 Vote négatif

P

pat_herault

Guest

• 2 Septembre 2009

• #4

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🙂

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 2 Septembre 2009

• #5

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,

Code:

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

 

Vote positif 0 Vote négatif