Problèmes avec combobox et userform

Problèmes avec combobox et userform - VB/VBA/VBS - Programmation

Marsh Posté le 23-11-2012 à 23:43:30    

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 :
  1. Sub ChargerListe()
  4. Load LoginMag
  5. With LoginMag.ListMag
  6.     .AddItem "Toulouse"
  7.     .AddItem "Lyon"
  8.     .AddItem "Paris"
  9.     .AddItem "Bordeaux"
  10. End With
  12. End Sub


 
et comme ça :

Code :
  1. Sub ChargerListe()
  2. ComboBox1.RowSource = Sheets("Mot de Passe" ).Range("A3:B6" ).Value
  3. 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

Reply

Marsh Posté le 23-11-2012 à 23:43:30   

Reply

Marsh Posté le 24-11-2012 à 09:15:29    

J'ai aussi essyé avec ça:
 

Code :
  1. Private Sub LoginMag_Ame_Initialize()
  2. desactivation = True
  3. Dim i As Integer
  4. Dim j As Integer
  5. Dim monchamp As Range
  6. Dim mapage As Worksheet
  7. Set mapage = ActiveSheet
  8. Application.ScreenUpdating = False
  9. ThisWorkbook.Sheets("Mots de passe" ).Activate
  10. Set monchamp = ThisWorkbook.Sheets("Mots de passe" ).Range(Cells(3, 1), Cells(3, 1).End(xlDown))
  12. j = 1
  13. Dim list_profils(1 To 4) As String
  15. For Each cell In monchamp.Cells
  16.     list_profils(j) = cell.Value
  17.     j = j + 1
  18. Next cell
  21. ListMag.List = list_profils
  23. ListMag.BoundColumn = 0
  24. ListMag.ListIndex = -1
  26. Go.Enabled = False
  27. MdPMag.Visible = False
  28. Label2.Visible = False
  29. MdPMag_ok = False
  30. tent = 3
  32. mapage.Activate
  33. Application.ScreenUpdating = True
  34. desactivation = False
  36. End Sub


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

Reply

Marsh Posté le 26-11-2012 à 12:02:56    

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed