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

Amigo · 15 Avril 2020

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

Amigo · 20 Avril 2020

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

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

Amigo

XLDnaute Occasionnel

Pièces jointes

Amigo

XLDnaute Occasionnel

Discussions similaires