A voir également:
- Utilisation d'une boucle pour afficher des élément d'un tableau
- Tableau word - Guide
- Utilisation chromecast - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Télécharger gratuitement notice d'utilisation - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, peut-être ainsi:
Dim cl As Range, texte As String
texte = ""
For Each cl In Sheets("feuill").Range("AJ3:AJ102")
texte = texte + vbcrlf + CStr(cl)
Next cl
Me.TextBox=texte
AnonymousX_7880
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
Merci beaucoup, je m'en vais tout de suite essayer le code
Bonjour,
Par exemple:
Voir cet excellent cours VBA gratuit pour débutants :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
Par exemple:
Option Explicit
Sub Test()
Dim rng As Range
Dim tbl As Variant
Dim txt As String
If média.Value = “AI” Then
Set rng = Worksheets("Feuil1").Range("AJ3:AJ52")
tbl = Application.Transpose(rng.Value)
txt = Join(tbl, vbCrLf)
Me.Textbox = txt
End If
End Sub
Voir cet excellent cours VBA gratuit pour débutants :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
