Microsoft 365 Transfert de listbox

[barnard]

Bonsoir à tous,

Je veux créer une commande, pour cela j'ai un formulaire de 2 pages.
la première me permet de remplir la feuille entête, le 2 pour le détail de la commande.
Sur la deuxième page, je renseigne les informations qui sont ensuite déverser dans une liste box puis transférer dans une feuille

Je galère depuis sur le code pour alimenter ma listebox et effectuer le transfert de donnée

Voir fichier joint

 

[cp4]

Bonjour Barnard,

J'ai ouvert ton fichier. Il se trouve qu'il comporte une collection de formulaire et pas un seul ne contient 2 pages. A moins que je n'ai pas compris. De quel formulaire s'agit-il?

A+

 

[barnard]

Bjr,
il s'agit du formulaire Ajout_commande
sur la page 2 Detail Commande

Cordialement

 

[cp4]

Il te manque le nombre de colonnes présentement ta listbox à 1 colonne par défaut.
Il faut ajuster le nombre soit dans les propriétés, soit dans l'initialisation du formulaire.

Private Sub UserForm_Initialize()
  Set f = Sheets("Table Catégorie")
  Set Rng = f.Range("G2:H" & f.[A65000].End(xlUp).Row)
  Me.Ctype.ColumnCount = 2
  Me.Ctype.ColumnWidths = "100;60"
  Me.Ctype.List = Rng.Value
    Me.ListBox1.ColumnCount = 10 'à ajuster à tes besoins'
End Sub

 

[barnard]

Merci,