Discussion :

[D.Mounir]

Bonjour,

j'ai fais pas mal de recherches, mais j'ai pas trouvé mon bonheur, qqu'un aurait une idée !!

je veux virer toutes les lettres d'une chaine et les remplacer par ma chaine "CP", suivi du nombre dans la chaine :
ex de ce que je veux :
- avant : CP 31100
- apres : C.P 31100
ou
- avant : Code postal 31300
- apres : C.P 31300
j'espere que j'etais clair

Merci par avance !!

[Invité]

Bonjour D.Mounir,

Si les 2 formats possibles sont toujours respectés vous pouvez copier ce code dans votre feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Change_Cp()
Dim pl, dl, i As Long
Dim c As Integer
Dim lg As Byte
Dim cp1, cp2, txt As String
 
'1ère ligne de données (modifier éventuellement)
pl = 2
'dernière ligne de données (modifier éventuellement)
dl = 300
'colonne contenant les données (modifier éventuellement)
c = 3
txt = "C.P "
 
For i = pl To dl
cp1 = Cells(i, c)
lg = Len(cp1)
If lg = 8 Then
cp2 = txt & Mid(cp1, 4, 5)
Else
cp2 = txt & Mid(cp1, 13, 5)
End If
Cells(i, c) = cp2
Next i
End Sub

Amicalement.