Forcer mise à jour combobox vba

Résolu

Co_nexion Messages postés 328 Date d'inscription Statut Membre Dernière intervention -
Co_nexion Messages postés 328 Date d'inscription Statut Membre Dernière intervention - 12 juin 2012 à 14:31

Bonjour le forum,

Voila mon problème. Lorsque je sélectionne dans ma combo1 cela affiche un statut en textbox2 (fonctionnaire ou cdi).
Et ce choix alimente les propositions de la combo4.

Mais comme pour l'option cdi il n'y a qu'un choix j'ai opté pour forcer le controle de la combobox4. Malheureusement cela me bloque la mise à zéro à chaque fois que je change en combo1 et donc en textbox2.

Pourriez svp, m'indiquer une option pour forcer cette mise à jour lorsque je modifie un nom dans la combo1.
Merci A vous

Private Sub ComboBox1_Change()
'Selectionne la même ligne que le nom
    Dim Lgn&
    Lgn = ComboBox1.ListIndex + 1
'Inscrit le statut en textbox
With Sheets("ftp")
    TextBox2.Value = .Cells(Lgn + 1, 4)
    TextBox3.Value = .Cells(Lgn + 1, 12)
    TextBox4.Value = .Cells(Lgn + 1, 13)
End With


'Mettre à jour la combo2 en sélectionnant un nom dans la combo1
'en fonction de ce qui apparait dans le TextBox2
    Select Case TextBox2
        Case "FONCTIONNAIRE"
            ComboBox4.Clear
            ComboBox4.AddItem "Journée"
            ComboBox4.AddItem "Journée férié"
            ComboBox4.AddItem "Nuit"
     
     End Select
        If TextBox2 = "CDI" Then
            ComboBox4.Clear
            ComboBox4 = "Journée"
     End If

End Sub

Afficher la suite

A voir également:

Forcer mise à jour combobox vba
Mise a jour chrome - Accueil - Applications & Logiciels
Mise a jour windows 10 - Accueil - Mise à jour
Forcer demarrage pc - Guide
Forcer la reinitialisation pc - Guide
Forcer suppression fichier - Guide

1 réponse

Réponse 1 / 1

Yoda

Bonjour,

Je te propose cette modif

'Mettre à jour la combo2 en sélectionnant un nom dans la combo1
'en fonction de ce qui apparait dans le TextBox2
ComboBox4.Clear
ComboBox4.AddItem "Journée"

        If TextBox2.Text = "FONCTIONNAIRE" Then
            ComboBox4.AddItem "Journée férié"
            ComboBox4.AddItem "Nuit"
        End If

ComboBox1.ListIndex = 0
End Sub

;)

Co_nexion Messages postés 328 Date d'inscription Statut Membre Dernière intervention

Bonjour Yoda,

Merci pour cette modif.
Cependant elle ne marche pas. En effet, la combo1 se bloque dès que j'ai selectionné un nom

Co_nexion Messages postés 328 Date d'inscription Statut Membre Dernière intervention

J'ai trouvé d'où venait le blocage
La derniere ligne c'est combobo4.listIndex = 0 et non combobox1.listindex = 0

Seul probleme, c'est que la combobox4 ne se remet pas ç jour. C'est à dire qu'elle m'indique "journée" quand je choisi fonctionnaire alors que je voudrais qu'elle soit vide

Yoda

Remplaces ComboBox4.ListIndex = 0 par

If TextBox2.Text = "FONCTIONNAIRE" then
   ComboBox4.ListIndex = -1
Else
  ComboBox4.ListIndex = 0
End If

Co_nexion Messages postés 328 Date d'inscription Statut Membre Dernière intervention

Magique Yoda ;)

A bientôt

Discussions similaires

mise à jour boitier X96 mini

mise a jour firmware android

Votre réponse

Discussions similaires