Aligner Colonnes ListBox avec Textbox[RESOLU]

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 !

cathodique

XLDnaute Barbatruc
Bonsoir🙂,

J'utilise un code pour afficher un formulaire en plein écran. Je voudrais ajuster l'alignement des colonnes d'une ListBox avec des textboxs correspondantes placées au-dessus de celle-ci.

Lorsque j'utilise la propriété ColumnWidths, c-à-d en entrant des valeurs; les colonnes sont décalées suivants les dimensions de l'écran. Or, c'est très gênants visuellement. En ajustant par code, je pense que ça résoudra le problème.

Merci pour votre aide.
 

Pièces jointes

Bonsoir Cathodique, bonsoir le forum,

Je remplacerais les textboxes par une petite Listbox2 aux propriétés identiques à celle de ta ListBox1. Quand tu sélectionnes un élément de la ListBox1, tu renvoies les données de cet élément vers la ListBox2. Tu n'auras pas les séparations mais tu sera parfaitement aligné.
 
Bonjour Robert😉,

Mon formulaire est beaucoup plus fourni en contrôles. Dans le fichier joint, j'ai simplifié ce dernier. J'ai laissé juste ce qu'il faut pour illustrer mon problème. Les textboxs en question me servent à modifier la ligne sélectionnée dans la Listbox. Je ne peux donc pas adopter ta proposition.

Je te remercie.

Bonne journée.
 
Bonjour Cath
Bonjour le fil , le Forum
une approche (redimensionnement , alignement des Controls)
Edit : Tu peux modifier la couleur de fond et de texte des TextBox entêtes (Fond comme le Userform et le texte en Blanc)
Fichier changé.
jean marie
Bonjour Jean Marie😉,
Ce n'est pas du tout aligné ci-joint image
Capture.JPG

Merci pour l'essai.
Bonne journée.🙂
 
Désolé Boisgontier 😳, je n'avais pas rafraichi la page.
Justement, j'étais sur ton site et j'ai trouvé des exemples pour mettre en place des labels ajustés aux colonnes d'une listbox.
Par contre moi, je voudrais faire l'inverse, soit ajuster les colonnes par rapport aux textboxs.
Mais là, je ne sais pas comment m'y prendre.

Merci pour ton orientation. je vais essayer de m'y retrouver.

Bonne journée.😉
 
Bonjour.
Ce code à la fin de la UserForm_Activate a l'air pas mal :
VB:
   Dim TBx As MSForms.TextBox, I&, TCW$(0 To 7)
   For I = 0 To 7
      Set TBx = Me("TextBox" & Choose(I + 1, 2, 1, 5, 9, 8, 6, 7, 12))
      TCW(I) = TBx.Width & "pt"
      Next I
   Me.ListBox1.ColumnWidths = Join(TCW, ";")
 
Re
Une approche qui se base sur la Mise en forme des Controls d’entêtes du Userform.
nommés pour cela "Lbl_1" à "Lbl_8"
jean marie
Désolé @ChTi160 😳, un peu dépassé pour répondre à vos propositions.
En effet, ta solution est bonne. Je vais essayer de passer sur mon classeur de travail pour adapter et reviendrai aux nouvelles.

Tous mes remerciements à toi, @BOISGONTIER, @Dranreb et à tous ceux et celles qui auraient consulté cette discussion.

Bonne journée à vous.😉
 
Bonjour.
Ce code à la fin de la UserForm_Activate a l'air pas mal :
VB:
   Dim TBx As MSForms.TextBox, I&, TCW$(0 To 7)
   For I = 0 To 7
      Set TBx = Me("TextBox" & Choose(I + 1, 2, 1, 5, 9, 8, 6, 7, 12))
      TCW(I) = TBx.Width & "pt"
      Next I
   Me.ListBox1.ColumnWidths = Join(TCW, ";")
Merci beaucoup pour ta proposition, elle donne le même résultat que celle de @ChTi160 au post#8.
Bonne journée.
 
- 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
Retour