Copier une cellule dans un TextBox
Résolu
viret1290
Messages postés
141
Date d'inscription
Statut
Membre
Dernière intervention
-
virus -
virus -
A voir également:
- Copier une cellule dans un TextBox
- Comment copier une vidéo youtube - Guide
- Aller à la ligne dans une cellule excel - Guide
- Super copier - Télécharger - Gestion de fichiers
- Excel cellule couleur si condition texte - Guide
- Retrouver un copier-coller android - Guide
1 réponse
Bonjour,
Nous allons utiliser la méthode Split
tout d'abord trouver le nombre de lignes:
ensuite suivant le nombre de lignes:
Voilà
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à
Autrement c'est génial