Problèmes avec combobox et userform

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problèmes avec combobox et userform

melielutin

Bonsoir à tous

je travaille sur un projet en VBA et je sèche sur un truc qui me semblait tout simple à faire mais qui ne l'est pas du tout en fait ou alors c'est que je m'y prend mal !!

J'ai créé un UserForm qui permet (en théorie...) à l'utilisateur de se logger, il comprend une combobox où il choisit son profil et une textbox dans laquelle il doit rentrer son mot de passe.

J'ai une base de donnée avec les login et mot de passe.

Mon but est de charger les login dans la combobox et qu'ensuite l'utilisateur rentre son mot de passe, en cliquant sur ok le programme est sensé vérifier l'adéquation entre le mot de passe et le login avec affichage d'une msgbox si ya erreur et passage à une autre interface si adéquation.

Seulement, je n'arrive même pas à charger ma liste dans ma combobox :??:

J'ai essayé comme ça:

Code :

Sub ChargerListe()
Load LoginMag
With LoginMag.ListMag
.AddItem "Toulouse"
.AddItem "Lyon"
.AddItem "Paris"
.AddItem "Bordeaux"
End With
End Sub

et comme ça :

Code :

Sub ChargerListe()
ComboBox1.RowSource = Sheets("Mot de Passe" ).Range("A3:B6" ).Value
End sub

Malheureusement aucun des deux ne fonctionne... et j'arrive pas à trouver où est l'erreur...

Quelqu'un pourrait-il me dire où s'est mise cette fichue erreur que je puisse avancer un peu

Merci d'avance pour votre aide

Publicité

melielutin

J'ai aussi essyé avec ça:

Code :

Private Sub LoginMag_Ame_Initialize()
desactivation = True
Dim i As Integer
Dim j As Integer
Dim monchamp As Range
Dim mapage As Worksheet
Set mapage = ActiveSheet
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Mots de passe" ).Activate
Set monchamp = ThisWorkbook.Sheets("Mots de passe" ).Range(Cells(3, 1), Cells(3, 1).End(xlDown))
j = 1
Dim list_profils(1 To 4) As String
For Each cell In monchamp.Cells
list_profils(j) = cell.Value
j = j + 1
Next cell
ListMag.List = list_profils
ListMag.BoundColumn = 0
ListMag.ListIndex = -1
Go.Enabled = False
MdPMag.Visible = False
Label2.Visible = False
MdPMag_ok = False
tent = 3
mapage.Activate
Application.ScreenUpdating = True
desactivation = False
End Sub

Et ça marche pas non plus... Je sais plus comment faire pour que ça marche :??:

Takama13

Salut,
Ton 1er code devrait marcher.
Par contre, tu le places où ?
Il faut que tu le mettes dans Initialize de ton userform pour que cela soit chargé avant son affichage.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problèmes avec combobox et userform

Sujets relatifs
problemes tables messages	ListFillrange de ComboBox = nom de plage de cellules
problèmes d'affichage des caractères	Rajout d'une combobox sur useforme automatisé
Peut-on utiliser le format PNG sans problèmes aujourd'hui ?	macro avec userform,commandbutton...
Afficher une UserForm en fonction de la valeur de "Listindex"	[LaTeX] problemes d'image et de marges ...
Problèmes - Logiciel d'acquisition de temps
Plus de sujets relatifs à : Problèmes avec combobox et userform

Page générée en 0.036 secondes