Faire apparaitre les valeurs de la liste d'un combo/text box directeme

Faire apparaitre les valeurs de la liste d'un combo/text box directeme - VB/VBA/VBS - Programmation

Marsh Posté le 10-12-2014 à 12:01:50    

Bonjour,

 

Je m'explique. j'ai réalisé un formulaire en m'aidant couplant petites connaissances et aide code trouvés sur le forum.

 

Le but est que pour certains éléments du formulaire, une liste deroulante propose des valeurs à l'utilisateur.

 

Cela fonctionne mais le probleme est que lorsque le formulaire est actif, les listes de valeurs n'apparaissent que l'ors d'un clic sur le fond du formulaire. Meme probleme pour la copie des valeurs sélectionnées vers l'onglet "Données". je crains que l'utilisateurs pense que le formulaire ne fonctionne pas et de ne pas avoir les résultats en "Données".

 

Comment faire pour qu'une fois le formulaire ouvert, les valeurs du menu déroulant s'affiche directement quand l'utilisateur clique sur la zone de liste modifiable et que les données en "Données" se copie conformément au code saisie ? (sans avoir à cliquer dans l'espace vide du formulaire). lien :
En vous remerciant et m'excusant pour certains termes peut etre mal choisis dans ma question.

 

Yannick

 

PS : Le lien du fichier joint est un XSLM et devrait permettre de mieux comprendre le probleme
Voici le code :

 
Code :
  1. Option Explicit
  2. Dim Ws As Worksheet
  5. 'pour enlever la croix rouge d'un UF
  6. #If Win64 Then
  7.     Private Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  8.     Private Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  9.     Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  10. #Else
  11.     Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  12.     Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  13.     Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  16. Private Sub TextBox1_Change()
  18. End Sub
  20. #End If
  21. Private Sub UserForm_Initialize()
  22. Dim hWnd As Long
  23.     hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D" ) _
  24.     & "Frame", Me.Caption)
  25.     SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
  26. End Sub
  30. 'Fermeture, validation du questionnaire
  31. Private Sub CommandButton1_Click()
  33. Unload UserForm1
  34. End Sub
  36. Private Sub UserForm_Click()
  39. ComboBox19.ColumnCount = 1 'Pour la liste déroulante Entité
  40. ComboBox19.List() = Array("RH", "DAF", "MP", "COMPTA", "TECHNIQUE", "DIV", "Etablissement" )
  41. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  43. ComboBox5.ColumnCount = 1 'Pour la liste déroulante Entité
  44. ComboBox5.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  45. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  47. ComboBox6.ColumnCount = 1 'Pour la liste déroulante Entité
  48. ComboBox6.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  49. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  51. ComboBox7.ColumnCount = 1 'Pour la liste déroulante Entité
  52. ComboBox7.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  53. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  55. ComboBox8.ColumnCount = 1 'Pour la liste déroulante Entité
  56. ComboBox8.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  57. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  59. ComboBox13.ColumnCount = 1 'Pour la liste déroulante Entité
  60. ComboBox13.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  61. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  63. ComboBox14.ColumnCount = 1 'Pour la liste déroulante Entité
  64. ComboBox14.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  65. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  67. ComboBox15.ColumnCount = 1 'Pour la liste déroulante Entité
  68. ComboBox15.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  69. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  71. ComboBox15.ColumnCount = 1 'Pour la liste déroulante Entité
  72. ComboBox15.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  73. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  75. ComboBox16.ColumnCount = 1 'Pour la liste déroulante Entité
  76. ComboBox16.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  77. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  79. ComboBox17.ColumnCount = 1 'Pour la liste déroulante Entité
  80. ComboBox17.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  81. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  83. ComboBox18.ColumnCount = 1 'Pour la liste déroulante Entité
  84. ComboBox18.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  85. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  87. ComboBox9.ColumnCount = 1 'Pour la liste déroulante Entité
  88. ComboBox9.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  89. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  91. ComboBox10.ColumnCount = 1 'Pour la liste déroulante Entité
  92. ComboBox10.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  93. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  95. ComboBox11.ColumnCount = 1 'Pour la liste déroulante Entité
  96. ComboBox11.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  97. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  99. ComboBox12.ColumnCount = 1 'Pour la liste déroulante Entité
  100. ComboBox12.List() = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10" )
  101. Set Ws = Sheets("Données" ) 'Correspond au nom de votre onglet dans le fichier Excel
  103. 'Ecrire les réponses dans l'onglet données
  104. Sheets("Données" ).Range(Cells(2, 1), Cells(18, 1)) = ComboBox19.Value
  105. Sheets("Données" ).Range(Cells(2, 2), Cells(18, 2)) = TextBox1.Value
  106. Sheets("Données" ).Range(Cells(2, 3), Cells(18, 3)) = TextBox3.Value
  107. Sheets("Données" ).Range(Cells(2, 4), Cells(18, 4)) = TextBox2.Value
  108. Sheets("Données" ).Cells(2, 8) = ComboBox5.Value
  109. Sheets("Données" ).Cells(3, 8) = ComboBox6.Value
  110. Sheets("Données" ).Cells(4, 8) = ComboBox7.Value
  111. Sheets("Données" ).Cells(5, 8) = ComboBox8.Value
  112. Sheets("Données" ).Cells(6, 8) = ComboBox13.Value
  113. Sheets("Données" ).Cells(7, 8) = ComboBox14.Value
  114. Sheets("Données" ).Cells(8, 8) = ComboBox15.Value
  115. Sheets("Données" ).Cells(9, 8) = ComboBox16.Value
  116. Sheets("Données" ).Cells(10, 8) = ComboBox17.Value
  117. Sheets("Données" ).Cells(11, 8) = ComboBox18.Value
  118. Sheets("Données" ).Cells(12, 8) = ComboBox9.Value
  119. Sheets("Données" ).Cells(13, 8) = ComboBox10.Value
  120. Sheets("Données" ).Cells(14, 8) = ComboBox11.Value
  121. Sheets("Données" ).Cells(15, 8) = ComboBox12.Value
  122. Sheets("Données" ).Cells(16, 8) = TextBox4.Value
  123. Sheets("Données" ).Cells(17, 8) = TextBox5.Value
  124. Sheets("Données" ).Cells(18, 8) = TextBox6.Value
  128. End Sub
  133. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  135. Dim Ctrl As Control
  137.     'parcourt les contrôles du formulaire
  138.     For Each Ctrl In Me.Controls
  140.      
  141.         If TypeName(Ctrl) = "TextBox" Then
  143.             If Ctrl.Text = "" Then
  144.                 MsgBox "Veuillez renseigner tous les champs SVP"
  145.                 Cancel = True
  146.                 Exit Sub
  147.             End If
  149.         End If
  151.    Next Ctrl
  152.     End Sub
  153.    
  154.     Private Sub UserForm_QueryClose2(Cancel As Integer, CloseMode As Integer)
  156.     End Sub
  158. Dim Ctrl As Control
  160.     'parcour les contrôles du formulaire
  161.     For Each Ctrl In Me.Controls
  163.      
  164.         If TypeName(Ctrl) = "ComboBox" Then
  166.             If Ctrl.Text = "" Then
  167.                 MsgBox "Veuillez renseigner tous les champs SVP"
  168.                 Cancel = True
  169.                
  170.                 Exit Sub
  171.             End If
  172.        
  173.         End If
  174.    
  175.     Next Ctrl
  176.    
  177.     End Sub

   

 


Merci à vous


Message édité par yanounou91 le 14-12-2014 à 21:21:19
Reply

Marsh Posté le 10-12-2014 à 12:01:50   

Reply

Marsh Posté le 10-12-2014 à 15:55:49    

 
           Bonjour,
 
           question posée dans combien de forums ?‼
 
           Commencer par lire les règles du forum puis éditer le post pour baliser le code via l'icône dédiée …
 

Reply

Marsh Posté le 10-12-2014 à 16:37:32    

Désolé je ne me rappelais plus de cela. je cherchais à joindre le code par fichier alors qu'il fallait le "baliser".
 
Est ce plus acceptable du coup ?
 
Merci pour votre réponse

Reply

Marsh Posté le 10-12-2014 à 21:35:41    


            C'est clair que dans le code il est clairement demandé de mettre à jour le ComboBox lors du Click sur l'Userform !
 
            A déplacer donc dans son initialisation …
 

Reply

Marsh Posté le 11-12-2014 à 02:38:32    

Bonsoir Marc L,
 
Tout d'abord, merci d'avoir répondu à mon probleme.
Ensuite, pourriez vous me dire dans quelle partie du code se trouvent les termes qui indiquent la mise à jour au moment du clic ?
 
Et que veut dire "déplacer donc dans son initialisation".
 
En vous remerciant.

Reply

Marsh Posté le 11-12-2014 à 09:50:19    

 
           Rien qu'en lisant le code  :ouch:  il y a bien une procédure Click et une procédure Initialize liées à l'Userform, non ?‼
 

Reply

Marsh Posté le 11-12-2014 à 10:08:44    

Marc L,
 
J'ai changé dans le code le code (ligne 36) "Private Sub UserForm_Click()"
 
par le code : "Private Sub UserForm_Activate()".
 
Du coup, j'ai bien les valeurs des menus deroulants qui apparaissent dès l'ouverture du formulaire. En revanche, les valeurs ne se copient plus dans l'onglet "Données" comme auparavant.
 
Avez vous une piste sur la raison ?
 
merci à vous.
 
 
yannick
 

Reply

Marsh Posté le 11-12-2014 à 10:13:17    

En essayant le mot "Initialize" à la place de "Activate", il n'y a plus de valeurs dans le menu déroulant et on ne peut saisir le formulaire ^^.
 

Reply

Marsh Posté le 11-12-2014 à 13:02:39    

 
           En fait comme le code est mal écrit (lignes inutiles et d'autres incomplètes au niveau du rattachement des cellules par exemple),
           tel quel, la feuille de calculs "Données" devrait être celle active pour que cela fonctionne.
 
           Exemple :                      Sheets("Données" ).Range(Cells(2, 1), Cells(18, 1)) = ComboBox19.Value
 
           Les cellules ont l'air d'être rattachées à la feuille mais en fait non car comme rien n'est précisé devant, c'est donc la feuille active !
 
           Exemple de correction :  With Sheets("Données" ):  .Range(.Cells(2, 1), .Cells(18, 1)).Value = ComboBox19.Value:  End With
 

Reply

Marsh Posté le 11-12-2014 à 14:55:52    

J'avoue que j'ai pas assuré. car je savais qu'il fallait etre dans une feuille pour faire une opération dedans, d'où le "With sheets".
 
En revanche, en utilisant le code :
 
With Sheets("Données" ):  .Range(.Cells(2, 1), .Cells(18, 1)).Value = ComboBox19.Value:  End With  
 
Il ne se passe toujours rien dans la plage en question. La macro n'a pas l'air de vouloir ecrire la valeur dans la feuille.  
 
Bizarrement, quand j'etais en mode "36.Private Sub UserForm_Click()" les valeurs s'affichaient dans la feuille, mais j'avais pas les menus deroulants à l'ouverture sans clic ...
 
Dois je adapter quelquechose pour qu'il veuille bien m'afficher les valeurs ? (bien entendu je cherche dans le meme temps, meme si vous m'apporter votre aide).
 
Merci encore
 

Reply

Marsh Posté le 11-12-2014 à 14:55:52   

Reply

Marsh Posté le 11-12-2014 à 18:40:55    

 
           Je ne vois pas car cela m'est déjà arrivé de basculer du code d'un Click à un Initialize sans souci.
 
           Espérons sur l'autre forum avec la pièce jointe un intervenant puisse trouver …
  

Reply

Marsh Posté le 11-12-2014 à 22:20:49    

Pour passer du mode click à Initialize, il faut seulement remplacer le mot par l'autre ?
 
Ca se trouve c'est cela le probleme. Et savez vous ce qu'est un user form modal ou non modal ? Car en utilisant "Activate", j'ai les menu mais pas la copie.

Reply

Marsh Posté le 12-12-2014 à 15:17:14    

 
           Le mieux est de déplacer les lignes de code d'une procédure à une autre …
 
           Par défaut un objet UserForm est modal : VBA attend sa fermeture pour poursuivre l'exécution du code principal
           comme expliqué dans l'aide VBA intégrée concernant sa méthode Show …
  

Reply

Marsh Posté le 12-12-2014 à 15:25:32    

Merci beaucoup.
 
 
Concretement il faut que je sépare le code des textBOX et ComboBox des copies et celui ou je demande la copie des éléments dans la feuille "Données"?
 
Pouvez vous juste me dire dans les deux cas, dans quelle procedure je dois intégrer les deux codes ? c'est à dire Userform Activate ou Initialize ou alors une sub classique ... c'est surtout la que je peche.  
 
En vous remerciant.
 
Yannick

Reply

Marsh Posté le 12-12-2014 à 15:53:51    

 
           En fait je n'en sais rien car c'est selon le contexte et le besoin …
 
           Quand j'ai un doute je pars de zéro, c'est à dire avec une seule procédure évènementielle dans le module de l'UserForm
           contenant l'unique instruction Beep !
 
           Si le bip est audible au moment opportun, c'est gagné sinon je teste une autre procédure évènementielle (Initialize, Activate, Click) …
 

Reply

Marsh Posté le 12-12-2014 à 17:13:25    

Bon je vais essayer. C'est vrai que mon niveau en VBA est faible donc mon approche n'est pas rigoureuse je pense.
 
Le besoin est vraiment d'afffficher le formulaire, que l'utilisateur reponde aux questions du son gage (via les menus ou les cases à saisir), et que ces valeurs de saisie se copie dans un onglet du classeur.
 
Merci à vous en tout cas;
 
Cordialement.
 
yannick

Reply

Marsh Posté le 13-12-2014 à 14:34:45    

Merci Beaucoup. En suivant votre conseil + un élément vu sur un autre forum, j'ai pu progressé. J'ai inscris le code suivant dans la procedure de fermeture (unload) :
 
Sheets("Données" ).Activate (chose que j'avais oubliée). Puis le code qui demande la copie des valeurs dans la feuille "Données". Cela fonctionne.
 
En revanche l'apparition directe des valeurs de menu sélectionnable à l'ouverture du formulaire ne fonctionne ni en Userform_activate ni Uniform_Initiliaze ... y'a t il d'autre evenement pour mon UserForm qui affichera les valeurs des menu à l'utilisateur ?
 
En vous remerciant.
 
Cordialement.
 
 
Yannick

Message cité 1 fois
Reply

Marsh Posté le 14-12-2014 à 19:53:14    


yanounou91 a écrit :

[…] ni Uniform_Initiliaze ...

            Celui-là ne risque pas de se déclencher ‼    Attention à l'orthographe …
 
            Sinon c'est l'un ou l'autre, vérifier déjà si cela fonctionne dans une procédure normale …
 

Reply

Marsh Posté le 14-12-2014 à 21:03:40    

En suivant vos conseils et des infos d'autres forums, j'ai reussi à avoir ce que je voulais. Il fallait deja passer en "Activate". Mais mon probleme etait que dans les Userform on ne peut utiliser apparemment chaque évenement qu'une seule fois. Il fallait donc que je prenne cela en compte et que je sépare l'action des menus de formulaire et des copies de choix de l'utilisateur dans ma feuille "Données". C'est un peu artisanal mais je place le code pour ceux que ca pourrait intéresser. Il ne me manque plus qu'à faire un code pour rapatrier tous les onglets "Données" de plusieurs fichiers afin de construire ma base de données et un TCD qui permettra d'analyser les données du sondage. Merci à vous.

 

Et j'ai andonné le Initialize (avec la bonne orthographe), le soucis venait de l'emplacement de mes code "userform" et "copie des valeurs userform dans "Données".

 
Code :
  1. Option Explicit
  2. Dim i, non_rempli, a, b, c, d, e, f, l, m, u, v, w As String
  4. Dim q, n, o, p, r, s, t, y, z, x  As String
  7. 'pour enlever la croix rouge d'un UF
  8. '#If Win64 Then
  9. '   Private Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  10. '   Private Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  11. '   Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  12. '#Else
  13. '   Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  14. '   Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  15. '   Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  19. '#End If
  20. 'Private Sub UserForm_Initialize()
  21. 'Dim hWnd As Long
  22. '    hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D" ) _
  23. '    & "Frame", Me.Caption)
  24. '    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
  25. 'End Sub
  29. 'Fermeture, validation du questionnaire et copie des réponses dans l'onglet données
  30. 'Private Sub CommandButton1_Click()
  31. Sub CommandButton1_Click()
  32. non_rempli = 0
  34. q = ComboBox19.Value
  35. p = TextBox1.Value
  36. o = TextBox3.Value
  37. n = TextBox2.Value
  38. m = ComboBox5.Value
  39. l = ComboBox6.Value
  40. a = ComboBox21.Value
  41. b = ComboBox8.Value
  42. c = ComboBox13.Value
  43. d = ComboBox14.Value
  44. e = ComboBox15.Value
  45. f = ComboBox16.Value
  46. z = ComboBox20.Value
  47. y = ComboBox18.Value
  48. x = ComboBox9.Value
  49. w = ComboBox10.Value
  50. v = ComboBox11.Value
  51. u = ComboBox12.Value
  52. t = TextBox4.Value
  53. s = TextBox5.Value
  54. r = TextBox6.Value
  58. If a = "" Or b = "" Or c = "" Or d = "" Or e = "" Or f = "" Or l = "" Or m = "" Or u = "" Or v = "" Or w = "" Or x = "" Or y = "" Then
  59.       non_rempli = 1
  60. End If
  62. If z = "" Then
  63.       non_rempli = 1
  64. End If
  66. If n = "" Or o = "" Or p = "" Or r = "" Or s = "" Or t = "" Or q = "" Then
  67.       non_rempli = 1
  68. End If
  71. If non_rempli = 1 Then
  73. MsgBox ("Merci de remplir tous les champs" )
  75. Else
  78. Sheets("Données" ).Activate
  79. Sheets("Données" ).Range(Cells(2, 1), Cells(18, 1)) = q
  80. Sheets("Données" ).Range(Cells(2, 2), Cells(18, 2)) = p
  81. Sheets("Données" ).Range(Cells(2, 3), Cells(18, 3)) = o
  82. Sheets("Données" ).Range("D3" ) = Now
  83. Range("D4" ).Value = Left(Range("D3" ).Value, 10)
  84. Sheets("Données" ).Range(Cells(2, 4), Cells(18, 4)) = Range("D4" ).Value
  85. Sheets("Données" ).Cells(2, 8) = m
  86. Sheets("Données" ).Cells(3, 8) = l
  87. Sheets("Données" ).Cells(4, 8) = a
  88. Sheets("Données" ).Cells(5, 8) = b
  89. Sheets("Données" ).Cells(6, 8) = c
  90. Sheets("Données" ).Cells(7, 8) = d
  91. Sheets("Données" ).Cells(8, 8) = e
  92. Sheets("Données" ).Cells(9, 8) = f
  93. Sheets("Données" ).Cells(10, 8) = z
  94. Sheets("Données" ).Cells(11, 8) = y
  95. Sheets("Données" ).Cells(12, 8) = x
  96. Sheets("Données" ).Cells(13, 8) = w
  97. Sheets("Données" ).Cells(14, 8) = v
  98. Sheets("Données" ).Cells(15, 8) = u
  99. Sheets("Données" ).Cells(16, 8) = t
  100. Sheets("Données" ).Cells(17, 8) = s
  101. Sheets("Données" ).Cells(18, 8) = r
  103. UserForm1.Hide
  105. MsgBox "Merci d'avoir contribué à l'enquête." & Chr(10) & "" & Chr(10) & "Veuillez nous renvoyer le fichier pour traitement.", , "Message  :"
  107. Application.Dialogs(xlDialogSaveAs).Show
  109. End If
  112. 'Unload UserForm1
  113. End Sub
  117. Private Sub UserForm_Activate()
  120. ComboBox19.ColumnCount = 1 'Pour la liste déroulante Entité
  121. ComboBox19.List() = Array("RH", "DAF", "MP", "COMPTA", "DIRECTION", "DIV", "Etablissement" )
  122. ComboBox19.Value = Sheets("Données" ).Range("A2" ).Value
  124. ComboBox5.ColumnCount = 1 'Pour la liste déroulante Entité
  125. ComboBox5.List() = Array("1", "2", "4", "5" )
  126. ComboBox5.Value = Sheets("Données" ).Range("H2" ).Value
  128. ComboBox6.ColumnCount = 1 'Pour la liste déroulante Entité
  129. ComboBox6.List() = Array("1", "2", "4", "5" )
  130. ComboBox6.Value = Sheets("Données" ).Range("H3" ).Value
  132. ComboBox21.ColumnCount = 1 'Pour la liste déroulante Entité
  133. ComboBox21.List() = Array("1", "2", "4", "5" )
  134. ComboBox21.Value = Sheets("Données" ).Range("H4" ).Value
  136. ComboBox8.ColumnCount = 1 'Pour la liste déroulante Entité
  137. ComboBox8.List() = Array("1", "2", "4", "5" )
  138. ComboBox8.Value = Sheets("Données" ).Range("H5" ).Value
  140. ComboBox13.ColumnCount = 1 'Pour la liste déroulante Entité
  141. ComboBox13.List() = Array("1", "2", "4", "5" )
  142. ComboBox13.Value = Sheets("Données" ).Range("H6" ).Value
  144. ComboBox14.ColumnCount = 1 'Pour la liste déroulante Entité
  145. ComboBox14.List() = Array("1", "2", "4", "5" )
  146. ComboBox14.Value = Sheets("Données" ).Range("H7" ).Value
  148. ComboBox15.ColumnCount = 1 'Pour la liste déroulante Entité
  149. ComboBox15.List() = Array("1", "2", "4", "5" )
  150. ComboBox15.Value = Sheets("Données" ).Range("H8" ).Value
  152. ComboBox16.ColumnCount = 1 'Pour la liste déroulante Entité
  153. ComboBox16.List() = Array("1", "2", "4", "5" )
  154. ComboBox16.Value = Sheets("Données" ).Range("H9" ).Value
  156. ComboBox20.ColumnCount = 1 'Pour la liste déroulante Entité
  157. ComboBox20.List() = Array("1", "2", "4", "5" )
  158. ComboBox20.Value = Sheets("Données" ).Range("H10" ).Value
  160. ComboBox18.ColumnCount = 1 'Pour la liste déroulante Entité
  161. ComboBox18.List() = Array("1", "2", "4", "5" )
  162. ComboBox18.Value = Sheets("Données" ).Range("H11" ).Value
  164. ComboBox9.ColumnCount = 1 'Pour la liste déroulante Entité
  165. ComboBox9.List() = Array("1", "2", "4", "5" )
  166. ComboBox9.Value = Sheets("Données" ).Range("H12" ).Value
  168. ComboBox10.ColumnCount = 1 'Pour la liste déroulante Entité
  169. ComboBox10.List() = Array("1", "2", "4", "5" )
  170. ComboBox10.Value = Sheets("Données" ).Range("H13" ).Value
  172. ComboBox11.ColumnCount = 1 'Pour la liste déroulante Entité
  173. ComboBox11.List() = Array("1", "2", "4", "5" )
  174. ComboBox11.Value = Sheets("Données" ).Range("H14" ).Value
  176. ComboBox12.ColumnCount = 1 'Pour la liste déroulante Entité
  177. ComboBox12.List() = Array("1", "2", "4", "5" )
  178. ComboBox12.Value = Sheets("Données" ).Range("H15" ).Value
  180. TextBox1.Value = Sheets("Données" ).Range("B2" ).Value
  181. TextBox2.Value = Sheets("Données" ).Range("D2" ).Value
  182. TextBox3.Value = Sheets("Données" ).Range("C2" ).Value
  183. TextBox4.Value = Sheets("Données" ).Range("H16" ).Value
  184. TextBox5.Value = Sheets("Données" ).Range("H17" ).Value
  185. TextBox6.Value = Sheets("Données" ).Range("H18" ).Value
  188. ListBox1.ColumnCount = 1 'Pour la liste déroulante rappel du bareme ds le formulaire
  189. ListBox1.List() = Array("1: Trés insatisfaisant", "2: Plutôt insatisfaisant", "4: Plutôt satisfaisant", "5: Très satisfaisant" )
  191. End Sub
  196. 'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  198. 'Dim c As Control
  199. ' For Each c In Me.Controls
  200. '   Select Case TypeName(c)
  201. '     Case "TextBox", "ComboBox"
  202. '       If c.Value = "" Then
  203. '          MsgBox "Veuillez saisir toutes les champs SVP"
  204. '           Cancel = True
  205.          
  206. '       End If
  207. '     End Select
  208. '   Next c
  209.    
  210. '   End Sub
  211.    
  212. '    Private Sub UserForm_Terminate()
  214. 'Application.Dialogs(xlDialogSaveAs).Show
  215. 'End Sub

 

 

PS : VBA fait toute de meme peur, parfois sans savoir pourquoi une instruction fonctionne et sans rien toucher 5mn plus tard une erreur arrive. Cela m'est arrivé sur une de mes Combobox (ligne 132 du code joint ci dessus). Il sortait une erreur sur la Value alors que l'instruction est la meme que sur les autres lignes. J'ai recréé une Combobox sur le meme principe, et la plus de probleme ... c'est déroutant.

 

Merci pour vos conseils et désolé pour mon manque de rigueur.

 

Cordialement.

 

Yannick


Message édité par yanounou91 le 14-12-2014 à 21:19:44
Reply

Sujets relatifs:

Leave a Replay

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