Menu ou liste déroulante dans userform

Bonjour à tous,

Dans mon projet en cours je désirerai adjoindre un menu ou une liste déroulant à mon projet.

Pourrait-on m'aiguiller?

Merci d'avance

Amicalement

Noel

Bonjour,

Tu fais dans une feuille3 ou autres ,ta liste de nom.

Puis dans le usreform tu choisis le contrôle_ Zone de liste modifiable,dans les propriétés du contrôle va dans

-Rowsource ,la tu tapes le nom de ta feuille3!A1:A12 (les cellules de ta liste)

le reste est comme les autres .

A +

Re,

Bonjour Henri,

Je te remercie de ton information ça fonctionne bien.

J'aurai plusieurs listes dans la même feuille avec des familles d'articles , comment diriger le combobox.

Exp j'ai plusieurs bouton d'où j'ouvre l'USERFORM avec le combobox: Patisserie-viennoiserie-boissons-vins & liqueur etc...

Comment faire en cliquant sur le bouton approprié qu'il me dirige sur la liste d'un de ces familles de produits.

Avec mes remerciements anticipés.

Amicalement

Noel

Bonjour,

La solution proposée par Henri est facile mais car elle provoque souvent des soucis puisqu'elle peut générer des bug dans le code lorsqu'on rend dynamique les plages de cellules concernées par la liste. Elle ne supporte pas non plus le nom des feuilles. Donc à éviter dans les USF même si elle est disponible pour les combobox ou Listbox

De plus elle ne fonctionne pas sous MAC.

Préfère lui la methode "Additem" qui fonctionne tant sous Windows que sous Mac.

Dans quelle feuille et colonne se trouve "Patisserie" etc... ??

Exemple d'un bout de code qui peut être utilisé à l'ouverture de l'USF :

For I = 3 To Sheets("Liste articles").Range("A65536").End(xlUp).Row
    With ComboBox1
        .AddItem Sheets("Liste articles").Range("A" & I)
    End With
Next I

La colonne A de la feuille Liste articles contiendrait tes données.

Vois aussi ce lien --> https://forum.excel-pratique.com/excel/erreur-propriete-rowsource-t5859.html et ma réponse du Lun Juin 09, 2008 6:55 pm.

Amicalement

Re,

Les éléments se trouveront dans une feuille nommée "vienn" j'aurai probablement plusieurs colonnes qui seront concernées.

C'est pour cela que j'avais demandé dans mon fil la possibilité que l'USERFORM prend en charge les famille de produits.vvoir précédente réponse)

Merci de ton aide

Amicalement

Noel

-- Mar Juil 13, 2010 4:20 pm --

Re,

Dan Ce bout de code "additem"que j'ai oublié je le place l'initialize?

a te relire

@+

Amicalement

Noel

re,

Dan Ce bout de code "additem"que j'ai oublié je le place l'initialize?

Exactement !

Amicalement

Re

Je vais faire les essais et je te tiens informé.

Merci

@+

Amicalement

Noel

-- Mar Juil 13, 2010 5:11 pm --

Re,

Dan je viens de faire des essais mon combox1 est vide.

Le bout de code j'ai mis à la fin de mon code initialize

Private Sub Saisie_Manuel_Initialize()
Voic l'exemple.
Flag = True
With Sheets("Article")
    DerLig = .[A65000].End(xlUp).Row
    .Range("A2:A" & DerLig).Name = "codes"
    .Range("B2:B" & DerLig).Name = "art"
    .Range("J2:J" & DerLig).Name = "prix"
    Me.Label5.Caption = Application.Index(.[art], Application.Match(Sheets("Caisse").Range("A1"), .[codes], 0))
    Me.TextBoxPrix = Format(Application.Index(.[prix], Application.Match(Sheets("Caisse").Range("A1"), .[codes], 0)), "#,##0.00 €")
End With
For I = 3 To Sheets("VIENN").Range("A65536").End(xlUp).Row
    With ComboBox1
        .AddItem Sheets("VIENN").Range("A" & I)
    End With
Next I
End Sub

Merci

@+

Amicalement

Noel

re,

Noel, c'est peut être une bete question mais tu es sûr d'avoir l'objet combobox dans ton USF ??

Bonour à tous,

Bonjour Dan,

Je reviens d'un tournoi de pétanque ce 14 Juillet, c'est pour cela que j'ai pris un peu de retard à te répondre.

Oui je suis sure d'avoir un combobox dans mon USERFORM. Pour te le prover Henri m'avait donner une solution qui marchait pour ROWSOURCE C'est bien la preuve que ce combobox existe.

A te relire

Amicalement

Noel