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

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

  • FormRechercheModifAjoutSupMultiBD -Forum.xlsm
    94.5 KB · Affichages: 8
Dernière édition:

Amigo

XLDnaute Occasionnel
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:

Membres actuellement en ligne

Statistiques des forums

Discussions
298 901
Messages
1 972 612
Membres
203 782
dernier inscrit
gigilegigi