Historique USERFORME

Bonsoir,

Je suis débutant et je suis bloqué pour finir mon userform.

Dans la partie recherche je souhaite afficher les QSO déjà fait. (exemple : dans la ComboBox je sélectionne un des thèmes de la liste, puis dans TextBox à côté je tape USB ou am) puis-je clique sur recherche et affiche le résultat dans la ListBox dessous.

Merci de vos commentaire ou aide.

Ci-joint le fichier ci-besoins

Cordialement

Yann

Bonjour Yann, bonjour le forum,

Bossant chez President, je ne pouvais pas ne pas t'aider sur ce coup

En pìece jointe ton fichier modifié :

Bonjour

Bonjour à tous

Une variante.

Bye !

Bonjour ThauThème et gmb,

Merci beaucoup pour votre aide a tous les deux.

Un mot : Parfait il me reste plus a faite des pleins de QSO.

Merci encore pour votre aide a tous les deux.

Merci, Merci, Merci

Cordialement

Yann

Bonjour toutes et tous

Mercis à ThauThème et Gmb pour ce beau travail

@Yann29

m'semble une petite erreur pour la date textbox11 au lieu de textbox2:

Private Sub CmbValide_Click()
    If Not ChoixDate = 0 Then
        UserForm1.TextBox11 = Format(ChoixDate, "dd-mm-yyyy")  ' textbox2  non  ?
        'USF.Controls("Textbox" & Txt_dt) = Format(ChoixDate, "dd/mm/yy")
        ChoixDate = 0
        'Date_calendar = ""
    End If
    Unload Calendrier
End Sub

crdlt,

André

Bonjour André13,

J'ai un message d’erreur sur le fonction recherche ci dessous surligne en vert :

Private Sub ListBox1_Click()

For i = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(i) = True Then

ln = i

Exit For

End If

Next i

'MsgBox ListBox1.Column(16, i)

colA = Array(1, 2, 3, 4, 14, 15, 6, 8, 7)

tb = Array(1, 2, 3, 4, 8, 9, 5, 7, 6)

For i = 0 To 8

Controls("Textbox" & tb(i)) = ListBox1.Column(colA(i) - 1, ln)

Next i

colB = Array(16, 5, 13, 10, 12, 9)

cb = Array(7, 1, 2, 6, 4, 3)

For i = 0 To 5

Controls("combobox" & cb(i)) = ListBox1.Column(colB(i) - 1, ln)

Next i

End Sub

Cordialement

Yann

Nouvelle version.

Bye !

Bonjour,

Merci à tous pour votre aide désoler de répondre aussi tard j'ai u des impératif professionnel.

Après utilisation de la version journal QSO V2 de gmb , j'ai un petit problème quand j'utilise la fonction rechercher cela ne fonctionne pas dans la commandButton 4_click () il affiche en jaune la ligne suivante : If UBound(titresP, 2) = 1 Then j'ai chercher par moi même mais je n'y arrive pas

Merci de votre aide

Cordialement

Yann