pb combobox excel help please

Question

Salut voila g un pb avec une combobox sous excel lors du lancement de ma feuille excel ma combobox ne ce charge pas. g utilisé le code suivant

private sub from_load()
            combobox.additem "1"
     end sub

quand j'execute le code manuellement ma combo ce charge bien mais pas lorsque je lance ma feuille excel pourkoi a marche pas  :sad) 
merci pour les infos

darollinghobbit · Answer

Salut,

Je pense qu'il faut que tu changes ton évènement. Par exemple met le plutôt sur le worksheet_activate

Neglaus · Answer

oki merci je v voir mais il me semble quand j'avais deja tenté cette operation mais je fait reverifier quand meme merci pour l'info

Neglaus · Answer

oki merci je v voir mais il me semble quand j'avais deja tenté cette operation mais je fait reverifier quand meme merci pour l'info

Neglaus · Answer

euh je dois mal le faire tu peut me donner un exemple de code pour que je me rende compte voila comment ce prresente le mien : 

Général
Private Sub Form_Load()
    'Initialise les valeurs du contrôle A
        CmbQuest10A.AddItem "Le délai d'attente"
        CmbQuest10A.AddItem "Le confort des locaux"
        CmbQuest10A.AddItem "La confidentialité des locaux"
        CmbQuest10A.AddItem "L'amabilité du personnel"
        CmbQuest10A.AddItem "La compétence du personnel"
    'Initialise les valeurs du contrôle B
        CmbQuest10B.AddItem "Le délai d'attente"
        CmbQuest10B.AddItem "Le confort des locaux"
        CmbQuest10B.AddItem "La confidentialité des locaux"
        CmbQuest10B.AddItem "L'amabilité du personnel"
        CmbQuest10B.AddItem "La compétence du personnel"
    'Initialise les valeurs du contrôle C
        CmbQuest10C.AddItem "Le délai d'attente"
        CmbQuest10C.AddItem "Le confort des locaux"
        CmbQuest10C.AddItem "La confidentialité des locaux"
        CmbQuest10C.AddItem "L'amabilité du personnel"
        CmbQuest10C.AddItem "La compétence du personnel"
    'Initialise les valeurs du contrôle D
        CmbQuest10D.AddItem "Le délai d'attente"
        CmbQuest10D.AddItem "Le confort des locaux"
        CmbQuest10D.AddItem "La confidentialité des locaux"
        CmbQuest10D.AddItem "L'amabilité du personnel"
        CmbQuest10D.AddItem "La compétence du personnel"
    'Initialise les valeurs du contrôle E
        CmbQuest10E.AddItem "Le délai d'attente"
        CmbQuest10E.AddItem "Le confort des locaux"
        CmbQuest10E.AddItem "La confidentialité des locaux"
        CmbQuest10E.AddItem "L'amabilité du personnel"
        CmbQuest10E.AddItem "La compétence du personnel"
End Sub
g 5 combobox  A B c d et E

rvw68 · Answer

Salut 

Enleve le private devant ton sub pour pouvoir lances ton sub a partir d'une autre page de code.

Dans ton projet avec l'éditeur de macro ouvre la feuille :  "Thisworkbook".

'Workbook_open se passe a chaque fois que ton classeur s'ouvre.
Private Sub workbook_open()
'ici tout ce que tu veut lancer à l'ouverture.
Form_Load

End Sub

Bonne continuation

Neglaus · Answer

ok merci ben je v tester tout ça demain de retour au boulot merci pour ton aide

Neglaus · Answer

Marche po  :sad) 

Workbook
Private Sub Workbook_open()
 'Initialise les valeurs du contrôle A
        CmbQuest10A.AddItem "Le délai d'attente"
        CmbQuest10A.AddItem "Le confort des locaux"
        CmbQuest10A.AddItem "La confidentialité des locaux"
        CmbQuest10A.AddItem "L'amabilité du personnel"
        CmbQuest10A.AddItem "La compétence du personnel"
    'Initialise les valeurs du contrôle B
        CmbQuest10B.AddItem "Le délai d'attente"
        CmbQuest10B.AddItem "Le confort des locaux"
        CmbQuest10B.AddItem "La confidentialité des locaux"
        CmbQuest10B.AddItem "L'amabilité du personnel"
        CmbQuest10B.AddItem "La compétence du personnel"
    'Initialise les valeurs du contrôle C
        CmbQuest10C.AddItem "Le délai d'attente"
        CmbQuest10C.AddItem "Le confort des locaux"
        CmbQuest10C.AddItem "La confidentialité des locaux"
        CmbQuest10C.AddItem "L'amabilité du personnel"
        CmbQuest10C.AddItem "La compétence du personnel"
    'Initialise les valeurs du contrôle D
        CmbQuest10D.AddItem "Le délai d'attente"
        CmbQuest10D.AddItem "Le confort des locaux"
        CmbQuest10D.AddItem "La confidentialité des locaux"
        CmbQuest10D.AddItem "L'amabilité du personnel"
        CmbQuest10D.AddItem "La compétence du personnel"
    'Initialise les valeurs du contrôle E
        CmbQuest10E.AddItem "Le délai d'attente"
        CmbQuest10E.AddItem "Le confort des locaux"
        CmbQuest10E.AddItem "La confidentialité des locaux"
        CmbQuest10E.AddItem "L'amabilité du personnel"
        CmbQuest10E.AddItem "La compétence du personnel"
End Sub


Voila le code que g maintenant mais ya un Pb g le message suivant : Erreur d'exécution '424' Objet requis. Comprend pas.

rvw68 · Answer

Laisse ton code dans un module classique et dans workbook_open tu ne fais qu'appeler ton code. car ce code doit etre dans ton form pour qu'il sache de quoi tu parles quand tu apelles tes CmbQuest.

Don remet ce code dans Sub Form_Load() de ton form et dans workbook tu colle juste


Private Sub workbook_open()

Form_Load

End Sub


Si ça passe pas envoie ton fichier je vais regarder.

rvw68 · Answer

Pour ceux qui veullent la soluce :

L'initialisation du formulaire est déplacée vert un module et non une feuille.

Pour le code d'un bouton j'ai donné ça mais il peurt être optimisé mais là c'est parametrable à souhait.


'Compteur pour question 1 reponse Dimanche
    Private Sub CmdDimanche_Click()
    Dim a As Integer
    With ThisWorkbook.Worksheets("feuil1")
    a = .Cells(15, 1).Value + 1
    .Cells(15, 1) = a
    End With
        
    End Sub


Au cas ou voue en auriez besoin vous aussi lecteurs du forum.

@+

Pb combobox excel help please

9 réponses

Discussions similaires