Discussion :

[bastba]

Bonjour à tous,

Je souhaite ajuster la taille des colonnes de mon sous formulaire à son contenu en VBA.
En gros je souhaite automatiser le fait de faire un double clic sur la ligne entre deux colonnes qui ajuste la colonne à son contenu.

J'ai essayé de trouver ce code mais je n'y suis pas arrivé.

J'ai essayé :
Forms![Formulaire principal]![sousFormulaire].Form.colonne1.Width = 10 
Donc sans de "AutoResize" mais même cela ne fonctionne pas.
Correction : Cela fonctionne mais sur l'objet en mode création et non pas dans l'affichage

Pourriez-vous m'aider svp ?

Cdt

[EricDgn]

Bonjour,

Dans le code du sous-formulaire, mettre quelque chose de ce genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CNom_DblClick(Cancel As Integer)
   LargeurColonne
End Sub
 
Private Sub LargeurColonne()
   Debug.Print Me.Controls(ActiveControl.Name).ColumnWidth
   Me.Controls(ActiveControl.Name).ColumnWidth = Len(Me.Controls(ActiveControl.Name)) * 100
End Sub

CNom étant le nom de champ de la colonne.
Le Debug.Print ne sert que pour avoir une idée de la largeur de la colonne avant la modification de sa largeur.
Il faudrait ajouter du code pour que la largeur ne soit pas inférieure à 400 (soit environ 1cm)
Note: 1440 = 1 pouce = 2,54 cm

Bonne continuation

[bastba]

MErci beaucoup !
Mais il n'y a pas un AutoFit ou quelque chose comme ça ?
sinon pas grave je vais me débrouiller !

[EricDgn]

Je n'y avais pas pensé, et il y a effectivement un Autofit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   Me.Controls(ActiveControl.Name).ColumnWidth = -2

et il y a même un exemple dans la rubrique ColumnWidth de l'Aide !

Bonne continuation.

[bastba]

Super merci beaucoup de ton aide !
Mais comment tu trouves les infos ? je galère sur certains cas pour en trouver ces chiants ...

[EricDgn]

Simple: comme tout le monde ...je google, français et anglais.
Merci d'indiquer que la question est résolue.
Bonne continuation.

[bastba]

Ok ^^ Merci beaucoup !