Copier une cellule dans un TextBox
Résolu/Fermé
viret1290
Messages postés
138
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
12 octobre 2022
-
4 mars 2021 à 14:00
virus - 4 mars 2021 à 19:13
virus - 4 mars 2021 à 19:13
A voir également:
- Copier une cellule dans un TextBox
- Copier une vidéo youtube - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Super copier - Télécharger - Gestion de fichiers
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
4 mars 2021 à 14:54
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