Remplacement d'un caractère

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:

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

Coucou,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim temp As String
temp = ""
 
temp = ActiveCell.Value
longueur = Len(temp)
For Point = 1 To longueur
    droite = Right(temp, 1)
    If droite = ";" Then
        temp = Mid(temp, 1, (longueur - 1))
        longueur = longueur - 1
    End If
Next
 
ActiveCell.Value = temp

Cela fonctionne maintenant.

A+

Merci Dead78, ça fonctionne impec

Bonne fin de journée

celui la devrait être mieu (je n'ai pas testé) (par habitude j'évite les accent dans les variable bcp de langage sont fait par les anglo saxon)
Code:

1 2 3 4 5 6 7 8 9 10 11 entete = ActiveCell.Value longueur = Len(entête) For i= longueur to 1 step -1 droite = right(entete, 1) If droite = ";" Then entete =left(entete ,len(entete)-1) else exit for End If Next i
edit : encore croisé, bon je file acheté ma pelote je te laisse en faire de même :aie:

Regarde ce qui n'allait pas dans ta boucle:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Pour point = 1 droite = Right(entête, 1) 'droite vaut le dernier caractère de entête soit ";" If droite = ";" Then 'on rentre donc dans la boucle droite = "" 'droite passe de ";" à "" End If Pour point = 2 droite = Right(entête, 1) 'droite vallait "" et vaut maintenant le dernier caractère de entête soit ";", car tu n'as pas modifié entête If droite = ";" Then 'on rentre donc dans la boucle droite = "" 'droite passe de ";" à "" End If etc etc
Tu modifiais ta variable qui te servait à stocker le caractère de droite de entête mais tu ne modifiais jamais entête, alors forcément à la fin quand tu regarde la valeur de entête, rien n'a changé! ;)