Valeur textbox multiligne dans plusieurs cellules continues

[flint6593]

Bonjour à tous!

Voilà j'ai un petit souci. J'ai dans mon USF une Textbox en mulitligne avec:
.MultiLine = True
.EnterKeyBehavior = True (pour ENTREE plutot que ctrl+entrée)

J'aimerais pouvoir faire deux choses:
- copier les valeurs de chacunes des lignes dans une cellule différentes, mais prédéfini (de B1 à B30).

Avec une textbox normale, je fais: Range("Bxx")=TextBox14.Value

- Et ecrire dans la cellule A associée, une référence "REFMAG". Tous le temps la même.
Mais je ne veux pas de REFMAG sur mes 30 lignes si il n'y a que 3 référence en B?

J'espère avoir été claire...

Merci!!!!!!

 

[nyko283]

Re : Valeur textbox multiligne dans plusieurs cellules continues

Bonsoir flint, le forum,

Regarde ce fichier, j'ai mis plein de commentaires dans le code, dit mmoisi c'est bien ce que tu recerche.

 

[flint6593]

Re : Valeur textbox multiligne dans plusieurs cellules continues

Selut!

Vraiment sympa c'est ce que je recherchais!!!!
Et surtout avec tous les commentaires, comme ça je pourrais le faire évoluer au besoin!!!

Encore merci, bone soirée!😉😉😉😉😉😉😉😀😀😀😀😀😀😀

 

[flint6593]

Re : Valeur textbox multiligne dans plusieurs cellules continues

Coucou!!!
Je reviens vers vous car j'ai un petit souci!!!

Le prog fonctionne super bien, mais lorsque je le transforme en .csv (la finalité) alors là j'ai un gros soucis.
Voilà ce que j'ai:

REF02236;MAGEXT;6659665
REF02236;MAGINT;222563
REF02236;MAGFR;6559963
"REF02236;REFMAG;""225695"

"REF02236;REFMAG;""555898"

"REF02236;REFMAG;""666523"

"REF02236;REFMAG;""666985"

REF02236;REFMAG; Dernière ligne pas de soucis
"REF02236;ESSAIMAG;""rio"

"REF02236;ESSAIMAG;""riu"

"REF02236;ESSAIMAG;""rit"

REF02236;ESSAIMAG;ripDernière ligne pas de soucis

Je ne comprends pas pourquoi est-ce que ca fonctionne pour la dernière ligne de mon multichamp, alors que pour les autres ça me mets des " " ????
Savez-vous comment je pourrais les enlevers? J'ai cherché, mais pas réussi....

Merci!!!!!!!

 

[nyko283]

Re : Valeur textbox multiligne dans plusieurs cellules continues

Bonjour Flint,
J'ai modifié la ligne suivante:

Cells(i, 2) = Left(monTxt, InStr(monTxt, Chr(10)) - 1)

par :

Cells(i, 2) = Left(monTxt, InStr(monTxt, Chr(10)) - 2)

afin de supprimer la touche entrée mettait le bazar...

 

[flint6593]

Re : Valeur textbox multiligne dans plusieurs cellules continues

Ha vraiment merci!!!! J'avais essayé pas mal de truc, mais je ne comprenais pas pourquoi ca me posais problèmes en .csv alors que c'étais nickel en xls...

Encore une fois merci!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!