Utilisation d'une boucle pour afficher des élément d'un tableau

Question

Bonjour à tous je suis nouveau sur vba, et je voulais savoir s’il y’a u’e manière plus facile (avec une boucle évidemment) d’afficher le contenu d’un tableau,
Voici mon code
If média. Value= “AI” Then
Me. TextBox= Sheets(“feuill). Range(” AJ3") & vbcrlf & Sheets(“feuill). Range(” AJ4") Sheets(“feuill). Range(” AJ5")
Ça devient lourd si je dois faire la même opération jusqu’à 100 fois
Merci d’avance pour votre aide????

yg_be · Answer

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

Patrice33740 · Answer

Bonjour,

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

Utilisation d'une boucle pour afficher des élément d'un tableau

2 réponses

Discussions similaires

Newsletters