Résultats sur tableau

[zeltron24]

Bonsoir le Forum,
Je souhaiterai si possible perfectionner mon fichier afin d'obtenir avec des options dans un userform,(Voir Fichier joint) le choix de trouver 3 ou 4 ou 5 voir 6 bons numéros. Ainsi l'idée m'est venue de vérifier mes grilles de LOTO avec les trirages réalisées. Ceci depuis 1976 date de la mise en place du jeu.

J'ai regardé un peu partout sans trouver de solutions qui me convienne.
Merci à vous de m'aider dans cette difficile tache
Cordialement
Zeltron24

 

[skoobi]

Re : Résultats sur tableau

Bonjour,

si j'ai bien compris, test ce code:

Private Sub CommandButton1_Click()
With Sheets("Feuil1")
  For Lig = 2 To .[A2].End(xlDown).Row
    cpte = 0
    For j = 1 To 6
      Set trouve = .Rows(Lig).Find(Controls("T" & j).Value, LookIn:=xlValues, lookat:=xlWhole)
      If Not trouve Is Nothing Then cpte = cpte + 1
    Next
    nbre = Switch(Opt3, 3, Opt4, 4, Opt5, 5, Opt6, 6)
    If cpte >= nbre Then
      MsgBox "La séquence se trouve à la ligne " & Lig
      Exit Sub
    End If
  Next
End With
End Sub

 

[zeltron24]

Re : Résultats sur tableau

Bonsoir Skoobi,

Merci tout d'abord de te pencher sur mon problème.
Je souhaiterai si possible me servir des boutons options dans l'userForm.
Ainsi si je coche l'option 3 cela me donne que 3 chiffres à mettre dans les cases T1 T2 T3.
La recherche se ferait donc sur trois chiffres dans le tableau parmi les 6 des rangées 2 à 6. Si trouvé on donne la rangée.
Si pas trouvé on affiche un mgbox

 

[skoobi]

Re : Résultats sur tableau

Re,

voir la PJ.