VBA Regrouper des Lignes

[yusukens]

Bonjour

S'il vous plait ne riez pas de mon code, j'ai passé beaucoup de temps à trouver ces formules.

savez vous comment faire pour regrouper tous ce code en quelque ligne ?
j'ai essayé plusieur méthode mais je ne trouve pas.

Voici mon super code :

FormFicheClient.TextBox1.TextBox.AutoSize = False
FormFicheClient.TextBox1.WordWrap = True
FormFicheClient.TextBox1.ScrollBars = 2
FormFicheClient.TextBox1.MultiLine = True

FormFicheClient.TextBox2.TextBox.AutoSize = False
FormFicheClient.TextBox2.WordWrap = True
FormFicheClient.TextBox2.ScrollBars = 2
FormFicheClient.TextBox2.MultiLine = True

FormFicheClient.TextBox3.TextBox.AutoSize = False
FormFicheClient.TextBox3.WordWrap = True
FormFicheClient.TextBox3.ScrollBars = 2
FormFicheClient.TextBox3.MultiLine = True

FormFicheClient.TextBox4.TextBox.AutoSize = False
FormFicheClient.TextBox4.WordWrap = True
FormFicheClient.TextBox4.ScrollBars = 2
FormFicheClient.TextBox4.MultiLine = True

FormFicheClient.TextBox5.TextBox.AutoSize = False
FormFicheClient.TextBox5.WordWrap = True
FormFicheClient.TextBox5.ScrollBars = 2
FormFicheClient.TextBox5.MultiLine = True

FormFicheClient.TextBox6.TextBox.AutoSize = False
FormFicheClient.TextBox6.WordWrap = True
FormFicheClient.TextBox6.ScrollBars = 2
FormFicheClient.TextBox6.MultiLine = True

FormFicheClient.TextBox7.TextBox.AutoSize = False
FormFicheClient.TextBox7.WordWrap = True
FormFicheClient.TextBox7.ScrollBars = 2
FormFicheClient.TextBox7.MultiLine = True


FormFicheClient.TextBox1.Value = FormListeClient.LBListeClient.Column(0, FormListeClient.LBListeClient.ListIndex)
FormFicheClient.TextBox2.Value = FormListeClient.LBListeClient.Column(1, FormListeClient.LBListeClient.ListIndex)
FormFicheClient.TextBox3.Value = FormListeClient.LBListeClient.Column(2, FormListeClient.LBListeClient.ListIndex)
FormFicheClient.TextBox4.Value = FormListeClient.LBListeClient.Column(3, FormListeClient.LBListeClient.ListIndex)
FormFicheClient.TextBox5.Value = FormListeClient.LBListeClient.Column(4, FormListeClient.LBListeClient.ListIndex)
FormFicheClient.TextBox6.Value = FormListeClient.LBListeClient.Column(5, FormListeClient.LBListeClient.ListIndex)
FormFicheClient.TextBox7.Value = FormListeClient.LBListeClient.Column(6, FormListeClient.LBListeClient.ListIndex)

 

[Pierrot93]

Re : VBA Regrouper des Lignes

Bonjour yusukens,

peut être comme ceci :

Dim i As Integer
For i = 1 To 7
    With Me.Controls("TextBox" & i)
        .TextBox.AutoSize = False
        .WordWrap = True
        .ScrollBars = 2
        .MultiLine = True
        .Value = FormListeClient.LBListeClient.Column(i - 1, FormListeClient.LBListeClient.ListIndex)
    End With
Next i

bon après midi
@+

 

[wilfried_42]

Re : VBA Regrouper des Lignes

Bonjour

Edit Bonjour Pierrot

Ayant le meme code presqu mot pour mot j'ai effacé

 

[Pierrot93]

Re : VBA Regrouper des Lignes

Re, bonjour Wilfried

à noter tu peux enlever les lignes ci dessous, ce sont les propriétés par défaut du Textbox,ca raccourcira un peu...

        .TextBox.AutoSize = False
        .WordWrap = True

@+

 

[yusukens]

Re : VBA Regrouper des Lignes

A oui c'est beaucoup plus propre d'un coup.
Je savais qu'il y avait une histoire de boucle à l'intérieur mais je savais pas comment l'exploiter.

en tout cas merci a vous
(heuresement que j'ai pas mi mon code en entier car y'aurait eu des crises cardiaques)

 

[yusukens]

Re : VBA Regrouper des Lignes

j'ai essayé de comprendre l'utilisation du boucle,
il y'a une ligne que je retrouve pas dans l'aide de excel;
c'est :

Me.Controls

Pourquoi avoir mis "Me.Controls" au lieu de "FormFicheClient" ??

 

[Pierrot93]

Re : VBA Regrouper des Lignes

Re

"Me" represente ton objet USF "FormFicheClient", cela revient au même et c'est plus court à écrire...

@+

 

[yusukens]

Re : VBA Regrouper des Lignes

Ah d'accord, je comprend.
Je te remercie pour cette éclairement.