Discussion :

[modus57]

Bonjour à tous,

Je vous contact aujourd'hui car j'aurai besoin de faire une manip un peut spécifique et je fais appel à vous pour m’aider.

Contexte

J'ai trois UserForm qui contiennent chacun une ListBox, cependant ils ne sont pas appelés pour la même raison.

Comment créer une procédure ou une fonction commune pour déterminer par exemple le nombre de colonnes, leur largeur … ou d’autres propriétés sans avoir à la répéter dans chaque propriétés des 3 UserForm ??

Bien sûr créer une procédure pour chaque UserForm, c’est une solution basique, mais je souhaiterai testé une procédure générique ou commune à tous les formulaire du projet.

Voici le code dans chaque Private Sub UserForm_Initialize :

Code :

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

1
2
   MyUserform = "MyNameForm" …
   PropriétésListBoxUserForm

Et dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
Public MyNameForm As String
Sub PropriétésListBoxUserForm()
        MyNameForm.ListBox1.ColumnCount = 3
        MyNameForm.ListBox1.ColumnWidths = "70;70;70"
        MyNameForm.Entetes.ColumnCount = 3
        MyNameForm.Entetes.ColumnWidths = "70;70;70"
    End If
End Sub

Mais lorsque je charge un des trois UserForm j’ai le message suivant :
”Erreur de compilation” Argument non facultatif

D’où vient l’erreur ?

Après de multiples essais et recherches je ne trouve pas de solution.

Merci d’avance pour votre aide.

Sincères salutations @+.

[Nain porte koi]

Hello,

je pense (pas sûr) que la réponse serait dans un module de classe
https://tissotemmanuel.developpez.co...les-de-classe/

[Philippe Tulliez]

Bonjour,
Comme en principe les propriétés ColumnCount et ColumnWidths dépendent de la liste des données, il est tout à fait possible de prévoir une procédure placée dans un module standard avec comme arguments l'objet ListBox ou ComboBox et l'objet Range (liste de données qui doit être affichée dans le ListBox ou ComboBox

Exemple pour les arguments

Code :

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

1
2
3
Sub LoadListBox(ctrlListBox As Object, ByVal ListRange As Range)
  ' Ici le code
End Sub

[modus57]

Bonjour,

Merci pour vos réponses.

Nain porte koi je n’ai pas fait le test de passer par un module de classe, je ne suis pas certain que cela allégera le nombres de lignes de codes, si c’est pas le cas autant choisir une solution basique et créer une procédure pour chaque UserForm.

Mr TULLIEZ votre solution est plus intéressante mais je ne vois pas comment la mettre en œuvre avec un tableau structuré ?

Dans mon projet les trois UserForm contiennent chacun 1 ListBox (Entetes) pour les entêtes et 1 ListBox(ListBox1) pour les données ils sont appelés pour des raisons différentes.

La procédure commune doit définir les propriétés nombre et taille des colonnes des 2 ListBox au chargement de chaque UserForm.

Et récupérer dans la ListBox (Entetes) les noms de colonnes du tableau structuré avec cette ligne de code :

Code :

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

.entetes.List = Sheets("BDD").ListObjects(1).HeaderRowRange.Value

Si mes explication ne sont pas assez claires je peux joindre un classeur épuréde mon projet.

@+

[Philippe Tulliez]

Bonjour,
Je ne comprends pas trop que représente le ListBox pour les en-tête ?
On ne peux associer une ligne de titre à un ListBox ou ComboBox qu'à la seule condition d'utiliser la propriété RowSource de ces objets.
La solution que je peux proposer modifie les propriétés ColumnCount, ColumnWidths du ListBox défini par l'argument ctrlListBox et recalcule la propriété Width du UserForm où se trouve le ListBox ou ComboBox.

[modus57]

Voici une petite explication.

La ListBox (Entetes) sert uniquement pour afficher les noms des colonnes du tableau structuré (Tableau1) voici le code en dur pour l’UserForm1 à l’initialisation :

Code :

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

Me.Entetes.List = Sheets("BDD").ListObjects(1).HeaderRowRange.Value

Cette ListBox(Entetes) et la ListBox1 ont les mêmes nombre et tailles de colonnes.



J’utilise cette méthode qui me parait simple et plus intéressante à mettre en œuvre que des Labels ou TextBox à ajuster
pour les titres des colonnes de la Listbox1 ou la propriété ColumnHeads à True !