Copier une cellule dans un TextBox
Résolu/Fermé
viret1290
virus - 4 mars 2021 à 19:13
- Messages postés
- 137
- Date d'inscription
- samedi 17 août 2013
- Statut
- Membre
- Dernière intervention
- 14 août 2022
virus - 4 mars 2021 à 19:13
A voir également:
- Copier une cellule dans un TextBox
- Copier couleur cellule excel - Forum - Excel
- Excel copier une cellule si condition ✓ - Forum - Excel
- Copier une cellule excel dans une autre feuille avec condition ✓ - Forum - Excel
- Excel copier plusieurs cellules dans une seule ✓ - Forum - Excel
- Copier la valeur d'une cellule sous condition ✓ - Forum - Programmation
1 réponse
cs_Le Pivert
4 mars 2021 à 14:54
- Messages postés
- 7803
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 14 août 2022
4 mars 2021 à 14:54
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à
4 mars 2021 à 19:13
Autrement c'est génial