Textbox vers Excel [Résolu]

juliocasa 4 Messages postés mercredi 23 février 2005Date d'inscription 4 mars 2005 Dernière intervention - 28 févr. 2005 à 11:06 - Dernière réponse : juliocasa 4 Messages postés mercredi 23 février 2005Date d'inscription 4 mars 2005 Dernière intervention
- 28 févr. 2005 à 18:55
Bonjour a tous,

je souhaite importer les valeurs de plusieurs Textbox multilignes vers un fichier Excel.
Par exemple:
-afficher dans la colonne A les valeurs contenues dans Textbox1 (1ere ligne du textbox dans la case A1, 2eme ligne ds A2...);
-afficher dans la colonne B les valeurs contenues dans Textbox2 (1ere ligne du textbox dans la case B1, 2eme ligne ds B2...);
- etc

Pour l instant j arrive a importer les valeurs des textbox, mais elles sont toutes dans la 1ere case (par exemple toutes les valeurs du textbox1 sont dans A1). Comment faire pour mettre une valeur par ligne?

Merci par avance,

Julio
Afficher la suite 

2 réponses

Meilleure réponse
mrdep1978 402 Messages postés jeudi 25 novembre 2004Date d'inscription 7 juin 2009 Dernière intervention - 28 févr. 2005 à 17:05
3
Merci
Il faut d'abord découper le contenu de ta textbox, chaque ligne étant délimitée par vbCrlf (Chr(10 & Chr(13)) = saut de ligne

Private Sub CommandButton1_Click()


Dim ls_Text() As String
Dim li_Ligne As Integer
With TextBox1
'Découpe le contenu de la textbox par ligne
ls_Text = Split(.Text, vbCrLf)
'Parcourt le tableau ls_Text (=chaque ligne). Ubound renvoie le numéro du dernier élément du tableau
For li_Ligne = 0 To UBound(ls_Text)
'Ecrit chaque ligne dans la cellule correspondante
Feuil1.Cells(li_Ligne + 1, 1).Value = ls_Text(li_Ligne)
Next li_Ligne
End With


End Sub

Merci mrdep1978 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 80 internautes ce mois-ci

juliocasa 4 Messages postés mercredi 23 février 2005Date d'inscription 4 mars 2005 Dernière intervention - 28 févr. 2005 à 18:55
0
Merci
Merci beaucoup mrdep1978, cela m'a été d'une grande aide!

Julio

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.