Manip de chaînes

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:

---

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

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.

Bonjour,

pour la première Question

Trim et fait F1

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

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 ;)

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

Code:

---

1 2 3

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

---

Merci beaucoup de votre aide

Citation:

---

Envoyé par bidou

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

Code:

---

1 2 3

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

---

---

:king:

Tu devrais venir plus souvent :lol:

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

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 ?

Résolu ou non ? ;)

Au cas où...

Code:

---

NbCol = UBound(Split(Ligne, ";")) + 1

---

ou range("J10",range("J10").End(xlToright)).Columns.Count

Super merci, oui c'est résolu avec la méthode bidou

Pour le nombre de colonne j'ai aussi trouvé :

Code:

---

NbCol = Worksheets(feuille).UsedRange.Columns.Count

---

Merci