Discussion :

[xyrox]

Bonjour,

Je cherche à supprimer le 4eme caractère d'une chaine mais je ne trouve pas comment faire. Je sais identifier le 4eme caractère avec mid mais pour le supprimer je ne sais pas vraiment comment faire. j'avais pensé à un Replace mais il va me remplacer les autres chiffres de même valeur que ma var généré avec mid.

Auriez vous une solution à mon problème ?

Merci par avance.

[rvtoulon]

Bonjour,
tu peux récuperer les trois premiers caractère dans une variable, et le reste des caractères à partir du 5ème dans une autre variable.
Tu regroupes le tout et voilà. Pour l'exemple, un exte dans la cellule D3:

Code :

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

1
2
3
4
5
6
7
8
9
10
sub test()
ncar = Len(Range("D3"))
vcel = Range("D3").value
 
vcel1 = Left(vcel,3)
vcel2 = Mid(vcel, 5, ncar)
 
Range("D3").value = vcel1 & vcel2
 
End Sub

Essaye de l'adapter à tes besoins.

EDIT:
Ou plus directement:

Code :

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

1
2
3
4
5
6
7
sub test()
ncar = Len(Range("D3"))
vcel = Range("D3").value
 
Range("D3").value = Left(vcel,3) & Mid(vcel, 5, ncar)
 
End Sub

[Invité]

Bonjour

Une petite fonction :

Code :

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

1
2
3
Public Function SupCaract(IntCaract As Integer, strChaine As String) As String
    SupCaract = Left(strChaine, IntCaract - 1) & Right(strChaine, Len(strChaine) - IntCaract)
End Function

Exemple : supcaract(4,"Developpez") donne Devloppez

Philippe