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

VBA Regrouper des Lignes

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

yusukens

XLDnaute Occasionnel
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 :
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)
 
Trier par date Trier par votes
Re : VBA Regrouper des Lignes

Bonjour yusukens,

peut être comme ceci :

Code: 
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
@+
 
Vote positif 0 Vote négatif
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...

Code: 
        .TextBox.AutoSize = False
        .WordWrap = True

@+
 
Vote positif 0 Vote négatif
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)
 
Vote positif 0 Vote négatif
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" ??
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Intégration d'un fichier ".txt" avec des lignes tabulées
2
Réponses
17
Affichages
474
Oneida
N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
398
Hecatonchire
H
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
578
chinel
  • Résolu(e)
XL 2019 Définition des fonctions volatiles et propriété Saved
Réponses
13
Affichages
403
job75
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
127
Eric 888
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
826
nat54
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
452
CDALE
C
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
817
thunder23
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
  • Résolu(e)
Microsoft 365 VBA : Break line méthode
Réponses
3
Affichages
263
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
827
patricktoulon
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
664
Chaton77
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
430
Dranreb
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
819
KRUG WOO
K
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
411
lestoiles1
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
895
picc
P
D
  • Question Question
Microsoft 365 Macro pour conditionner une réponse selon des hypothèses
Réponses
3
Affichages
319
Phil69970
  • Résolu(e)
XL 2010 inhiber evenement
Réponses
13
Affichages
738
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…