Discussion :

[papyvon]

Bonjour,

J'ai une base qui va de A1 à AI4670.
Les entetes de colonnes sont bien sur sur la ligne 1.

Voila le debut du code de mon userform:

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
   Set f = Sheets("bd") 
   der_ligne = f.Range("A1").End(xlDown).Row
   Set Rng = f.Range("A2:AI" & der_ligne)
   NomTableau = "Tableau1"
   ActiveWorkbook.Names.Add Name:=NomTableau, RefersTo:=Rng
    '----
    Me.ListBox1.RowSource = Rng.adress

Et là j'ai le message:

Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet

J'ai cherché sur plusieurs autres forums, sans trouver de solution qui fonctionne.
La propriété Columnheads est bien à True sur mon userform.
Merci de me dire ou je fais l'erreur .

[Philippe Tulliez]

Bonjour,

Code :

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

Me.ListBox1.RowSource = Rng.adress

Address serait préférable comme orthographe et j'ajouterais qu'il est plus qu'indiqué de définir l'adresse complète Rng.Address(External:=True)

[MarcelG]

Bonjour papyvon, Bonjour Philippe,

Pour ma part, je considère ce processus comme désuet.

Sur une table de données, l'incrémentation du contrôle s'effectuerait en 1 seule ligne.

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Sub essai_list()
 
With usf_p
        .Lalisteb.List = Worksheets(1).Range("T_montablo[id]").Value
        .Show
End With
 
End Sub

L'avantage est que la présence de nouveaux enregistrements dans ta table n'affectera en rien la ListeBox. Ses items s'en trouveront automatiquement mis à jour.

[Philippe Tulliez]

Bonjour Marcel,

Pour ma part, je considère ce processus comme désuet.
Sur une table de données, l'incrémentation du contrôle s'effectuerait en 1 seule ligne.

Bien entendu, je ne programme pas non plus comme cela et je n'utilise que les tables structurées pour stocker les données.
Je n'ai fait que répondre à une demande spécifique mais j'avoue que j'aurais dû ajouter qu'il y avait une meilleure solution et donner un exemple mais vu l'heure tardive, j'avais d'autres choses à faire.

[MarcelG]

Hé pas de problème, Philippe, tu penses bien!

Mon message était adressé à notre ami, en tenant compte que plusieurs membres peuvent consulter la discussion.

Qui plus est, j'ai appris sur la propriété Address ()

Pour info, à cette heure là, j'ai les doigts de pied écartés, un verre à la main, devant une bonne série.

[papyvon]

Bonjour Marcel,

Bien entendu, je ne programme pas non plus comme cela et je n'utilise que les tables structurées pour stocker les données.
Je n'ai fait que répondre à une demande spécifique mais j'avoue que j'aurais dû ajouter qu'il y avait une meilleure solution et donner un exemple mais vu l'heure tardive, j'avais d'autres choses à faire.

Merci pour vos conseils: l'erreur a disparu.
Concernant vos commentaires, ils sont sans doute justifiés, mais je dois dire que cette partie de mon userform concernant le remplissage de la listbox est un code que j'ai trouvé sur un forum. Comme il me donnait les resultats que je voulais, je n'y ai pas fait de modifications. Mais je vais tacher de mettre en oeuvre la solution recommandée par MarcelG.

Merci beaucoup à tous les deux.

[MarcelG]

Salut,

2 tutoriels à consulter
Présentation des tableaux structurés
Les tableaux structurés et VBA

Et bien sûr les différentes discussions sur ce forum.

Bonne continuation et à bientôt.

[papyvon]

Salut,

2 tutoriels à consulter
Présentation des tableaux structurés
Les tableaux structurés et VBA

Et bien sûr les différentes discussions sur ce forum.

Bonne continuation et à bientôt.

Merci beaucoup