Bonjour,

J'ai 2 questions portant sur les chaînes :

1/
Y aurais t-il un moyen simple de supprimer les blanc en fin d'une chaîne sans la balayer caractère par caractère en partant de la fin ?

2/
J'ai une chaîne comportant plusieurs données séparée par un point-virgule

Actuellement j'utilise le code suivant pour les récupérer et les affecter dans mes cellules (balayage de la chaîne ligne caractère par caractère) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Do Until pos > Len(ligne)
    cel = ""
    col = col + 1
    Do Until pos > Len(ligne) Or Mid(ligne, pos, 1) = ";"
        cel = cel + Mid(ligne, pos, 1)
        pos = pos + 1
    Loop
    pos = pos + 1
    Worksheets(feuille).Cells(lig, col).Value = cel
Loop
Y aurais t-il une instruction de chaîne qui permette de trouver la position du point-virgule dans ma chaîne afin d'éviter la boucle interne ?

De facon plus général une instruction permettant de trouver une chaine dans une autre chaîne

Merci