Discussion :

[Jabveneau]

Bonjour

J’ai une petite question dont je ne trouve pas la réponse sur les forums :
Travail sur Excel 2003 / sous Vista
Je souhaiterais remplie à partir d’une TextBox paramétrée à

Code :

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

1
2
multiline = true 
wordwrap = true

une cellule de feuille de calcul … jusque là : tout va bien
Puis repérer par VBA dans cette cellule ,les caractères non-imprimables de « retour-ligne » autrement dit le nombre de lignes de cette cellule nouvellement remplie , afin de pouvoir sélectionner le texte de l’une ou l’autre de ces lignes de la cellule pour , ensuite, pouvoir les inscrire dans des cellules distinctes

Je ne vois pas ce que ça change mais je précise quand même que je ne souhaite pas régler le format de la cellule en question sur

Alignement >> Renvoyer à la ligne automatiquement

J’ai essayé d’exposer de manière le plus synthétique possible mon problème, j’espère que vous pourrez me dépanner mais en tous cas,merci aux fins spécialistes qui pullulent sur ces forums et dont les connaissances encyclopédiques m’ont, à nombreuses reprises, permis de trouver la sortie de longs tunnels obscurs !!!

[fred65200]

bonjour,
une petite fonction qui compte le nombre de Chr(10) dans une cellule. À adapter

Code :

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

1
2
3
4
5
6
7
8
 
Function CompteChr10(maChaine As String)
cpt = 0
For i = 1 To Len(maChaine)
If InStr(i, maChaine, Chr(10)) Then cpt = cpt + 1
Next
CompteChr10 = cpt
End Function

cordialement

[Jabveneau]

merci beaucoup pour cette réponse .... j'ai commencé à tester ta proposition et ça devrait coller ....
Néanmoins , pour l'instant le résultat n'est pas encore conforme , car le code a tendance a annoncer un nombre de retour-ligne supérieur a la réalité visible... peu être un problème de boucle
L'ennui avec les caractères non-imprimables , c'est que les erreurs ne sautent pas aux yeux !!!
Mais bon .... grace à ta piste , je devrais m'en sortir et promis : je n'oublierais pas de clicker sur "résolu" dès que j'aurais avancer un peu plus vers la solution ...
encore merci

[pgz]

Bonjour.

Tu peux essayer cet amendement

Code :

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

1
2
3
4
5
6
7
Function CompteChr10(maChaine As String)
cpt = 0
For i = 1 To Len(maChaine)
If Mid( maChaine, i,1)= Chr(10)) Then cpt = cpt + 1
Next
CompteChr10 = cpt
End Function

Bon courage,

PGZ

[Jabveneau]

Merci beaucoup a vous deux
Avec "Mid" ça marche impeccable ....
Je vais donc continuer mon p'tit bonhomme de chemin jusqu'au prochain problème insurmontable ( pour le néophyte mal dégrossi que je suis ... )