Copier une cellule dans un TextBox [Résolu]

Signaler
Messages postés
128
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
25 mai 2021
-
 virus -
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

Messages postés
7416
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 juin 2021
637
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à

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