Bonjour

J'ai, dans une cellule une chaîne de caractères :

1;;OIA;IMPRI;20090527;151120;62;18962.35;;;;;;;;;;;;;;;;;;;;

Je voudrais par macro enlever tous les ";" qui sont en fin de chaîne.

avec ce code, cela ne marche pas :entête est le contenu de ma cellule.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
    entête = ActiveCell.Value
    longueur = Len(entête)
    For Point = 1 To longueur
    droite = Right(entête, 1)
    If droite = ";" Then
    droite = ""
    End If
    Next Point
Quelqu'un pourrait-il me venir en aide ?

Merci d'avance