Discussion :

[Eric93]

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

[ucfoutu]

Bonjour,

1) : RTrim te fera le boulot ... ou Trim, si tu veux aussi supprimer en dévut.

2) : Voir Split dans ton aide en ligne.

[ouskel'n'or]

Quelle version d'Excel as-tu ?
Split n'existe pas dans la version 97, mais pour les versions utltérieure, et comme le dit ucfoutu, c'est la solution à ton second pb

[Eric93]

Merci beaucoup de votre aide

[Jean-Pierre49]

Bonjour,

pour la première Question

Trim et fait F1

[Invité]

Bonjour

1 - Regardes du coté des fonctions RTrim, LTrim et Trim

2 - Pour trouver un caractére regardes du coté de InStr. Pour ton cas interresses toi à la fonction Split.

Starec

[bidou]

mouais, ca serait plus simple de mettre la chaine dans le cellule et de laisser redistribuer
Genre

Code :

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

1
2
3
 
Range("J10").Value = ligne
Range("J10").TextToColumns Destination:=Range("J10"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True

[ouskel'n'or]

mouais, ca serait plus simple de mettre la chaine dans le cellule et de laisser redistribuer
Genre

Code :

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

1
2
3
 
Range("J10").Value = ligne
Range("J10").TextToColumns Destination:=Range("J10"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True

Tu devrais venir plus souvent

[Eric93]

Je viens de voir la réponse de bidou, merci beaucoup, effectivement c'est beaucoup plus simple, ca m'évite toute mon code

[Eric93]

Arf, le problème de la solution de bidou, c'est que j'ai besoin de connaitre le nombre de colonnes crée, peut-on le connaitre ?