Copier une cellule dans un TextBox Résolu/Fermé

Question

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

cs_Le Pivert · Answer

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à

Copier une cellule dans un TextBox

1 réponse

Discussions similaires