Discussion :

[koeuf]

Bonjour,

je bute sur un problème avec les userform. je voudrais créer une fenêtre (listbox ou combobox) pour qu'on y fasse un copié-collé d'une liste (un item par ligne). cette liste serait ensuite récupérée et copiée dans différents tableaux après plusieurs traitements. je ne sais pas si cela est possible.
merci de m'éclairer

[Theze]

Bonjour,

Le "Copier" viendrait de où ? Une autre listBox, une cellule de feuille de calcul, etc..?

[koeuf]

le copié viendrait d'une autre feuille de calcul, voire d'un autre logiciel en se présentant comme ceci :
-item1
-item2
-...

bon, je progresse, j'ai déjà trouvé la propriété multiline de la textbox à mettre sur "true" et mon copié-collé est possible. il reste à vérifier que l'opération inverse fonctionne

[koeuf]

j'ai fini par trouver ! au prix de nombreuses recherches et compliations de trucs trouvés sur internet, je donne la procédure si ça peut intéresser quelqu'un :

- créer une textbox
- dans la propriété "multiline" de la textbox, choisir "true'
- dans la propriété "scrollbars" de la textbox, choisir "horizontal" ça, je ne crois pas que ce soit obligatoire
- créer un bouton et utiliser le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim montexte() As String
Dim Maligne As Integer
With TextBox1
   'Découpe le contenu de la textbox par ligne
   montexte = Split(.Text, vbCrLf)
   'Parcourt le tableau montext (=chaque ligne). Ubound renvoie le numéro du dernier élément du tableau
   For Maligne = 0 To UBound(montexte)
         'Ecrit chaque ligne dans la cellule correspondante
       Sheets("temp").Cells(Maligne + 3, 1).Value = montexte(Maligne)
 
    Next Maligne
End With

ça utilise la fonction split qui découpe du texte en morceaux et vbCrLf qui fait des retours chariots (car sinon le découpage se fait avec les espaces entre les mots), deux trucs que je vient de découvrir en plus de ubound.

si ça peut servir à une autre buse dans mon style !