Copier une cellule dans un TextBox

Résolu/Fermé
viret1290
Messages postés
137
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
14 août 2022
- 4 mars 2021 à 14:00
 virus - 4 mars 2021 à 19:13
Bonjour,
J'ai une cellule avec plusieurs lignes.
J'aimerai mettre chaque ligne dans un TextBox différent.
Quelle est le code a faire, si c'est possible
Merci d'avance

1 réponse

cs_Le Pivert
Messages postés
7803
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2022
714
4 mars 2021 à 14:54
Bonjour,

Nous allons utiliser la méthode Split

tout d'abord trouver le nombre de lignes:


Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    Dim j As Integer
    'découpe la chaine en fonction des retours à la ligne vbLf
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(Range("A1"), vbLf) ' adapter la cellule
    
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'exécution de l'éditeur de macros
        Debug.Print Tableau(i)
        j = j + 1
    Next i
    MsgBox "Il y a : " & j & " lignes"
End Sub


ensuite suivant le nombre de lignes:

Sub test()
TextBox1.Value = Split(Range("A1"), vbLf)(0) 'adapter le cellule
TextBox2.Value = Split(Range("A1"), vbLf)(1)
TextBox3.Value = Split(Range("A1"), vbLf)(2)
End Sub


Voilà

0
j'ai encor une question dans TextBox il me met à la fin le symbole pie comment faire pour le faire disparaitre.
Autrement c'est génial
0