Comment afficher le contenu d'une colonne dans le textbox
Résolu/Fermé
A voir également:
- Comment afficher le contenu d'une colonne dans le textbox
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Déplacer une colonne excel - Guide
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Figer une colonne excel - Guide
3 réponses
ptitpanda
Messages postés
65
Date d'inscription
dimanche 5 août 2012
Statut
Membre
Dernière intervention
8 avril 2023
8
8 déc. 2020 à 23:38
8 déc. 2020 à 23:38
Bonsoir,
Voici un morceau de code pour réaliser ce que tu demandes:
ATTENTION: n'oublie pas de mettre "multiline" à TRUE dans les propriétés de ton textbox
En espérant que cela te convienne
Bonne nuit
Voici un morceau de code pour réaliser ce que tu demandes:
Private Sub UserForm_Activate()
TextBox1.Value = ""
For Each valeur In Range("a1:a7") 'A adapter selon le nbre de lignes et la lettre de ta colonne
TextBox1.Value = TextBox1.Value & Cells(valeur.Row, 1) & vbCr
Next valeur
End Sub
ATTENTION: n'oublie pas de mettre "multiline" à TRUE dans les propriétés de ton textbox
En espérant que cela te convienne
Bonne nuit
ptitpanda
Messages postés
65
Date d'inscription
dimanche 5 août 2012
Statut
Membre
Dernière intervention
8 avril 2023
8
Modifié le 9 déc. 2020 à 18:10
Modifié le 9 déc. 2020 à 18:10
Bonjour,
voici l'explication:
Bonne soirée
voici l'explication:
Private Sub UserForm_Activate()
TextBox1.Value = "" 'vide la textbox à chaque chargement du userform (au - c'est toujours à jour)
For Each valeur In Range("a1:a7") 'A adapter selon le nbre de lignes et la lettre de ta colonne
TextBox1.Value = TextBox1.Value & Cells(valeur.Row, 1) & vbCr 'remplit
'la textbox en reprenant la valeur s'y trouvant et en rajoutant la nouvelle
'valeur(cellule suivante de la colonne "A") et ajoute un retour à la ligne (vbCr)
Next valeur
End Sub
Bonne soirée
9 déc. 2020 à 11:20
Svp vous pouvez m'expliquer ligne par ligne ce que fait votre code? Parceque il y a certaines fonctions que je ne comprends pas comme VbCr.