Autres Comment utiliser une boucle sur vba

[Ball]

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]

Bonjour Ball,

Par exemple :

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]

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]

Bonjour,

Essaie

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

 

[Ball]

Merci pour votre aide à tous, mais le programme signal toujours un beug

 

[tbft]

bonjour
Un bout de fichier serait le bien venue...

 

[danielco]

Merci pour votre aide à tous, mais le programme signal toujours un beug

Quel beug ? Sur quelle ligne ? Quel est le numéro et le libellé de l'erreur ?

Daniel

 

[Ball]

Voici un code d'exemple, pour le beug il mettais de beug 99

 

[danielco]

Mets la propriété MultiLine du textbox à true.

Daniel

 

[Ball]

Mets la propriété MultiLine du textbox à true.

Daniel

Il considère la 3eme ligne comme une erreur de compilation

 

[danielco]

Pas ici :

Quelle version d'Excel utilises-tu ?

Daniel

 

[Ball]

Pas ici :

Regarde la pièce jointe 1037424

Quelle version d'Excel utilises-tu ?

Daniel

Regarde par toi mm
Peux tu m'envoyer ton fichier stp ?

 

[Ball]

Escuse moi l'image n'avait pas charger

 

[Ball]

bonjour
Un bout de fichier serait le bien venue...

 

[danielco]

Regarde par toi mm
Peux tu m'envoyer ton fichier stp ?

Comment veux-tu que je regarde???????
Je mets mon fichier en PJ