XL 2016 Combobox n'affiche pas las valeurs des Textbox(s)

  • Initiateur de la discussion Initiateur de la discussion Amigo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Amigo

XLDnaute Occasionnel
Bonjour Le Forum
J'espère que vous allez bien ainsi tous vos proches.
Permettez-moi de solliciter vos lumières sur un problème qui me tracasse.
J'utilise un fichier "MultiBd" de M. Jacques Boisgontier, je profite de ce moment pour le remercier.
J'arrive à alimenter la Combobox2 par rapport au choix de la 1ère. Mais quand je change la valeur de la Combobox2 je souhaite que les valeurs correspondantes d'un autre tableau s'affiche dans les textboxs qui suivent les textboxs de la BD.
Ex :
- Combobox1 : Tableau1
- Combobox2 (Colonne 2 "Réunion" du tableau Congé1)
- Textbox( de 29 à ...) affichent les valeurs correspondantes à la Combobox2 dans le Tableau "Congé1"
VB:
Private Sub ComboBox2_Click()
    
    Select Case NomTableau
    Case Is = "Tableau1"
            For i = 1 To UBound(Tblclé)
              If Tblcongé(i, 2) = ComboBox2.Value Then
                ligneEnreg = i
                    For k = 1 To 8
                    Me.Controls("TextBox2" & k + 8) = Tblcongé(ligneEnreg, k + 1)
                  Next k
                End If
              Next i
    Case Is = "Tableau2"
            For i = 1 To UBound(Tblclé)
              If Tblcongé(i, 2) = ComboBox2.Value Then
                ligneEnreg = i
                    For k = 1 To 8
                    Me.Controls("TextBox2" & k + 8) = Tblcongé(ligneEnreg, k + 1)
                  Next k
                End If
              Next i
    Case Is = "Tableau3"
       For i = 1 To UBound(Tblclé)
           If Tblcongé(i, 2) = ComboBox2.Value Then
               ligneEnreg = i
                   For k = 1 To 8
                       Me.Controls("TextBox2" & k + 8) = Tblcongé(ligneEnreg, k + 1)
                   Next k
           End If
       Next i
 End Select
  ComboBox2.Value = Format(ComboBox2.Value, "ddd * dd mmm yyyy")

End Sub
Ci-joint Fichier
Cordialement
Amigo
 

Pièces jointes

Dernière édition:
Bonjour Le Forum
Permettez-moi de revenir vers vous.
1- D'abord concernant mon problème j'ai "Réussi" à le résoudre après un temps de recherche mais apparemment ca fonctionne et je souhaite le partager avec vous peut-être quelqu'un serait intéressé . En fait, il fallait rajouter CDbl(Cdate( sur la ligne If.

2- Deuxième chose je sollicite vos lumières car je n'arrive pas à afficher dans la Combobox2 toutes les valeurs en format date : "ddd * dd mmm yyyy"
j'arrive à le faire seulement pour la première valeur après sélection avec ce code:
ComboBox2.Value = Format(ComboBox2.Value, "ddd * dd mmm yyyy").
Merci par avance
Bien Cordialement
Amigo

VB:
Private Sub ComboBox2_Click()
    Select Case NomTableau
    Case Is = "Tableau1"
        Tblclé = [Congé1[Réunion]].Value           ' Tblclé = [NomTableauCongé[Réunion]].Value
        Tblcongé = [Congé1].Value                  ' Tblcongé = [NomTableauCongé].Value
            For i = 1 To UBound(Tblclé)
              If Tblcongé(i, 2) = CDbl(CDate(Me.ComboBox2)) Then
                ligneEnreg = i
                    For k = 1 To 6
                    Me.Controls("TextBox3" & k) = Tblcongé(ligneEnreg, k + 1)
                  Next k
                End If
              Next i
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
233
Réponses
4
Affichages
177
Réponses
10
Affichages
281
Réponses
5
Affichages
182
Réponses
3
Affichages
665
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Retour