Discussion :

[babybell]

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

[DeaD78]

Coucou,

Code :

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

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+

[babybell]

Merci Dead78, ça fonctionne impec

Bonne fin de journée

[MiXinG]

Regarde ce qui n'allait pas dans ta boucle:

Code :

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

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

[Krovax]

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 :

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

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