XL 2019 Le Résultat rechercher match aller / retour dans UserForm

[frederio]

Bonsoir à tous

Tu vous connais comment faire ?
Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci


La feuille "Recherche Rapide " UserForm vba
- Equipe Domicile
- Equipe extérieur
- Match Aller
- Match Retour
- But D
- But E
- Journée
- Date
- Heure



La feuille "Saison en cours" sur =A5:H384

Mon fichier Excel https://www.transfernow.net/dl/20251101y5BIFX4R/jQoIgWYq

 

[fanfan38]

Bonjour Frederio
L'userform s'affiche lors du choix de la feuille Recherche Rapide

le pays 8 en europe AtTheOne A - (TFB-003).zip est disponible au téléchargement

Cliquez pour accéder au téléchargement de le pays 8 en europe AtTheOne A - (TFB-003).zip (1.44 Mo) avec TransferNow

www.transfernow.net

A+ François

 

[frederio]

J'ai fait déjà travailler les tutoriels sur userform1

La feuille "Recherche Rapide"

C’est petite problème match Retour

C’est mon Fichier Excel https://www.transfernow.net/dl/20251102Z9XTNc7K/ZoX7U9aK

 

[frederio]

le code :

Private Sub CommandButton1_Click() 'rechercher
  Dim c As Range, firstAddress As String
    With sh_Saison.Range("C5:C384")
        Set c = .Find(Me.ComboBox1, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If sh_Saison.Cells(c.Row, 6).Value = Me.ComboBox2 Then Exit Do
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
        If c Is Nothing Then Exit Sub
        Me.Label2.Caption = "Journéée: " & sh_Saison.Cells(c.Row, 2)
        Me.Label3.Caption = Me.ComboBox1
        Me.Label4.Caption = sh_Saison.Cells(c.Row, 4)
        Me.Label5.Caption = Format(sh_Saison.Cells(c.Row, 7), "dddd dd mmmm yyyy")
        Me.Label6.Caption = Me.ComboBox2
        Me.Label7.Caption = sh_Saison.Cells(c.Row, 5)
        Set c = .Find(Me.ComboBox2, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If sh_Saison.Cells(c.Row, 6).Value = Me.ComboBox1 Then Exit Do
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
        If c Is Nothing Then Exit Sub
        Me.Label8.Caption = "Journéée: " & sh_Saison.Cells(c.Row, 2)
        Me.Label9.Caption = Me.ComboBox1
        Me.Label10.Caption = sh_Saison.Cells(c.Row, 4)
        Me.Label11.Caption = Format(sh_Saison.Cells(c.Row, 7), "dddd dd mmmm yyyy")
        Me.Label12.Caption = Me.ComboBox2
        Me.Label13.Caption = sh_Saison.Cells(c.Row, 5)
    End With
End Sub

Private Sub CommandButton2_Click()
  Unload Me
End Sub

Private Sub UserForm_Initialize()
  Me.ComboBox1.List = [TS_Equipes].Value
  Me.ComboBox2.List = [TS_Equipes].Value
End Sub