j’ai corrigé dans le module du calendrier cette ligne :
Recherche.Controls(« T » & Calendrier.Tag) = ChoixDate
le textbox à alimenter à comme appellation « T1 » et non texbox1
Donc ne pas mettre ceci :
Recherche.Controls(« TextBox » & Calendrier.Tag) = ChoixDate
Mais ceci :
Recherche.Controls(« T » & Calendrier.Tag) = ChoixDate
Et j’ai corrigé le code du bouton Date comme ceci :
Private Sub CommandButton6_Click()
'Calendrier.Tag = T1
Calendrier.Tag = 1
Calendrier.Show
End Sub
j’ai modifié cette ligne :
Calendrier.Tag = T1
pour
Calendrier.Tag = 1
Ainsi la première ligne corrigée cible le textbox à alimenter « T1 »
Recherche.Controls(« T » & Calendrier.Tag) = ChoixDate
« T » et Calendrier.Tag ce qui donne « T1 »
Pour faire des essais j’ai mis quelques données dans l’onglet « QSO »
Tu peux les supprimer
Testes ce fichier modifié tel que décrit ci-dessus et dis moi
J’ai oublié de spécifier que j’avais aussi modifié ce code :
Private Sub T1_Change()
Dim C As Range
Me.C1.clear
For Each C In Ws.Range(« L2:L » & Ws.Range(« L » & Rows.Count).End(xlUp).Row)
If C Like Me.T1 & « * » Then
'If Left(C, Len(Me.T1.Value)) = UCase(Me.T1.Value) Then
Me.C1.AddItem C
Me.C1.List(Me.C1.ListCount - 1, 1) = C.Row
End If
Next C
End Sub
Comme ceci :
Private Sub T1_Change()
Dim C As Range
Me.C1.clear
For Each C In Ws.Range(« B2:B » & Ws.Range(« B » & Rows.Count).End(xlUp).Row)
If C Like Me.T1 & « * » Then
'If Left(C, Len(Me.T1.Value)) = UCase(Me.T1.Value) Then
'Me.C1.AddItem C
Me.C1.AddItem Ws.Range(« L » & C.Row)
Me.C1.List(Me.C1.ListCount - 1, 1) = C.Row
End If
Next C
End Sub
La ligne date qui est à rechercher est en colonne B et non pas L donc cette ligne :
For Each C In Ws.Range(« L2:L » & Ws.Range(« L » & Rows.Count).End(xlUp).Row)
doit être modifiée en conséquence comme ceci :
For Each C In Ws.Range(« B2:B » & Ws.Range(« B » & Rows.Count).End(xlUp).Row)
De plus on doit alimenter la liste de la Combobox Division (C1) avec les données Division onglet « QSO » que l’on trouve en colonne L
Donc cette ligne :
Me.C1.AddItem C
qui alimente la listebox ne dois faire appel à C qui est une donnée Date mais à la donnée de la même ligne en colonne L qui est celle des Divisions
donc il faut l’écrire comme ceci :
Me.C1.AddItem Ws.Range(« L » & C.Row)
Le formulaire concernant ce combobox fonctionne correctement avec ces modifications