Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Comment utiliser une boucle sur vba

Ball

XLDnaute Nouveau
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 X. Value= “M” 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
 

Ikito

XLDnaute Occasionnel
Bonjour Ball,

Par exemple :

VB:
For i = 3 To [TonNombreDeRépétitions] 'i de 1 jusque ...
    '[TonTraitement]'
    Me. TextBox= Sheets(“feuill). Range(” AJ" & i) & vbcrlf & Sheets(“feuill). Range(” AJ" & i+1) Sheets(“feuill). Range(” AJ" & i+2) 
Next 'Correspond à i = i + 1'
 

job75

XLDnaute Barbatruc
Bonjour Ball, bienvenue sur XLD, salut Ikito,

Pour afficher un tableau dans un UserForm le plus simple est d'utiliser une ListBox.

Très nombreux exemples sur le forum.

A+
 

danielco

XLDnaute Accro
Bonjour,

Essaie
VB:
With Sheets("feuil1")
  If X.Value = “M” Then
    Me.TextBox.Text
    For i = 3 To 102
      Me.TextBox.Text = Me.TextBox.Text & .Cells(i, "AJ").Value
    Next i
  End If
End With

Remplace 102 par ta limite supérieure.

Daniel
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…