Utilisation d'une boucle pour afficher des élément d'un tableau
AnonymousX_7880
Messages postés
3
Statut
Membre
-
AnonymousX_7880 Messages postés 3 Statut Membre -
AnonymousX_7880 Messages postés 3 Statut Membre -
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????
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????
A voir également:
- Utilisation d'une boucle pour afficher des élément d'un tableau
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Télécharger gratuitement notice d'utilisation - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
2 réponses
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
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
Statut
Membre
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
