Discussion :

[l0quito]

Bonjour le monde,

J'ai un programme qui compte les lignes d'un texte et le met dans des cellules excel en fusionnant le nombre de cellules exactes.
Pour cela je compte 100 caractère par lignes, mais le problème c'est que j'ai des erreurs quand je met des enter a mon texte.

Quelqu'un saurait comment compter les enter dans un texte?? merci

[tomlev]

La fonction Split sépare la chaine selon les caractères indiqués, et renvoie un tableau avec les chaines séparées. Tu n'as plus qu'à récupérer le nombre d'éléments du tableau...

[Faladin]

PTI, en rajoutant un enter tu rajoutes 2 character si je me rappelle bien, soit le chr(13) et chr(10), vérifie pour être certain.

[Danyel]

chr(13) et chr(10)

C'est effectivement les 2 codes chr$ pour le saut de ligne pour la majorite des fichiers texte, mais malheureusement ce n'est pas le format general et il n'est pas utilise à 100% (surtout pour les systemes autres que windows)

[Faladin]

Yoda a parlé!

Merci de la précision, je n'étais pas au courant

[l0quito]

Merci a tous pour votre aide voila comment j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
commsEnt = comms.Split(vbCrLf)
Ent = commsEnt.GetUpperBound(0)
note = tbxNoteMag.Text
NbCarNote = note.Length
 
For NbCarNote = NbCarNote To 100 Step -100
 'Fusion des cellules
 feuille.Range("A" & Ligne & ":G" & Ligne + 1).MergeCells = True
 Ligne= Ligne + 1
Next
feuille.Range("A" & Ligne& ":G" & Ligne+ Ent).MergeCells = True

Ligne est un compteur pour les lignes...