Liste déroulante

[Antho35]

Bonjour,

J'ai un UserForm, avec à l'intérieur une liste de choix modifiable, je voudrais intéfrer les données de cette lisre qui sont dans une feuille de mon classeur excel.

Merci

 

[tototiti2008]

Re : Liste déroulante

Bonjour Antho35,

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

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

 

[BOISGONTIER]

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

 

[Antho35]

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

 

[tototiti2008]

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)

 

[Antho35]

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.

 

[tototiti2008]

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

Combobox1.Text = ""

suffit

 

[Antho35]

Re : Liste déroulante

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

Merci

 

[tototiti2008]

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 😉

 

[Antho35]

Re : Liste déroulante

Merci,

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

 

[tototiti2008]

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

 

[Antho35]

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.

 

[tototiti2008]

Re : Liste déroulante

Re,

ça te donne un truc comme ça alors ?

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

 

[Antho35]

Re : Liste déroulante

Bonjour,

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

Merci.

 

[tototiti2008]

Re : Liste déroulante

Bonjour,

Bon, un truc comme ça alors ?

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