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
 

danielco

XLDnaute Accro
"14", c'est le numéro de la colonne "N" : "1" pour la colonne A, "2" pour la colonne B etc. Pour trouver le n° de la colonne, mets la formule :
=COLONNE()
dans une cellule.

Daniel
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas