carnet de Trafic

[yann-lucien29]

Bonjour,

Voici j’ai fait un 2eme userform (recherche) mais je suis bloqué pour fait afficher l’historique

Dans l’userform recherche si je tape la date cela ne marche pas et si j’utilise la combobox division cela affiche date et N° dans la partie résultat.

Ci-joint le fichier : https://www.cjoint.com/c/JEjmIHZBVle

Merci de votre aide

Cordialement

Yann

[FFO]

Bonjour

Ci-joint ton fichier modifié

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

carnet-de-trafic Recherche.xlsm (89,5 Ko)

[FFO]

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

[yann-lucien29]

Bonjour,

Parfait

Merci beaucoup de votre aide.
Cordialement
Yann