Liste déroulante

tototiti2008

XLDnaute Barbatruc

• 4 Août 2010

• #2

Re : Liste déroulante

Bonjour Antho35,

à intégrer dans le code de l'Userform :

Code:

Private Sub UserForm_Initialize()
    With ThisWorkbook.Worksheets("Liste")
        For i = 2 To .Range("C65536").End(xlUp).Row
            UserForm1.ComboBox1.AddItem .Range("C" & i).Value
        Next i
    End With
End Sub

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 4 Août 2010

• #3

Re : Liste déroulante

Bonjour,

Voir PJ

Private Sub UserForm_Initialize()
Me.ComboBox1.List = [Liste].Value
End Sub


Nom de champ
Liste =DECALER(liste!$A$2;;;NBVAL(liste!$A:$A)-1;3)



JB

 

Pièces jointes

• listechoix(1).xls

  25.5 KB · Affichages: 92

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 4 Août 2010

• #4

Re : Liste déroulante

Si je prend la derniére solution,

Dans mon formulaire je me retrouve avec le numéro automatique (1.2.3.4.....) Je veux moi le libéllé du service c'est à dire Service A, Service B,...

Comment fait t-on dans ce cas la

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Août 2010

• #5

Re : Liste déroulante

Bonjour BOISGONTIER,
Re,

avec la solution de Jacques, redéfinit le nom Liste comme ça :

Nom de champ
Liste =DECALER(liste!$C$2;;;NBVAL(liste!$A:$A)-1;1)

 

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 4 Août 2010

• #6

Re : Liste déroulante

Re,

Cela fonctionne avec l'explication de tototiti2008, cependant, autres point, il y aura sur ce forumailaire d'autre Zone de liste, même principe avec d'autres onglet, comment fait t-on ?

Autres point ce forulaire ira une fois cliquer sur Ok alimenter un tableau excel, le formulaire devra se réinitialiser à chaque fois.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Août 2010

• #7

Re : Liste déroulante

Re,

si tu veux utiliser la solution de Jacques, il faut créer des noms Liste1, Liste2, Liste3... etc pour chaque Combobox

Pour la réinitialisation, a priori un simple

Code:

Combobox1.Text = ""

suffit

 

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 4 Août 2010

• #8

Re : Liste déroulante

Euh qui est Jacques, et avec l'autres solution, car je suis partie avec celle là.

Merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Août 2010

• #9

Re : Liste déroulante

Re,

Jacques BOISGONTIER, l'incontournable qui a fait un merveilleux site sur Excel :

Formation Excel VBA JB

à mettre immédiatement dans les favoris 😉

 

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 4 Août 2010

• #10

Re : Liste déroulante

Merci,

Une vrai mine d'info se truc là, beau travail.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Août 2010

• #11

Re : Liste déroulante

Re,

Donc au bout, tu as utilisé la solution avec le nom Liste ou celle que j'avais proposé au départ ?

Si tu as compris l'utilisation de DECALER, c'est sans doute plus simple avec le nom Liste

 

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 4 Août 2010

• #12

Re : Liste déroulante

Je suis parti sur ta premiére idée. Un peu de mal avec la fonction décaler. Pour ta premiére idée j'ai remplacer les "varaibles" et mis tout bout à bout, mais VBA rencontre des erreurs.

A l'orrigine le fichier fait plus de 12Mo, beaucoup trop volumineux pour être mis ici.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Août 2010

• #13

Re : Liste déroulante

Re,

ça te donne un truc comme ça alors ?

Code:

Private Sub UserForm_Initialize()
    With ThisWorkbook.Worksheets("Liste")
        For i = 2 To .Range("C65536").End(xlUp).Row
            UserForm1.ComboBox1.AddItem .Range("C" & i).Value
        Next i
        For i = 2 To .Range("B65536").End(xlUp).Row
            UserForm1.ComboBox2.AddItem .Range("B" & i).Value
        Next i
    End With
End Sub

 

Vote positif 0 Vote négatif

A

Antho35

XLDnaute Occasionnel

• 5 Août 2010

• #14

Re : Liste déroulante

Bonjour,

Euh non, puisqu'il s'agit d'un autre onglet excel. donc une autres liste.

Merci.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Août 2010

• #15

Re : Liste déroulante

Bonjour,

Bon, un truc comme ça alors ?

Code:

Private Sub UserForm_Initialize()
    With ThisWorkbook.Worksheets("Liste")
        For i = 2 To .Range("C65536").End(xlUp).Row
            UserForm1.ComboBox1.AddItem .Range("C" & i).Value
        Next i
    End With
    With ThisWorkbook.Worksheets("Liste2")
        For i = 2 To .Range("B65536").End(xlUp).Row
            UserForm1.ComboBox2.AddItem .Range("B" & i).Value
        Next i
    End With
End Sub

 

Vote positif 0 Vote négatif