Cascade Textbox et Combobox

Bonjour à Tous,

Je suis entrain de créer un fichier pour la gestion de tournoi et je bloque sur la création d'un userform où apparaissent des textbox et combobox que je n'arrive pas à faire correspondre ensemble. J'ai bien trouvé sur le site des topics qui en parle mais je n'arrive pas à l'adapter à mon fichier (dû au fait que je suis débutant en vba).

Mon problème est donc le suivant :

Mes textbox sont des valeurs saisies dans 2 cellules sur la feuille "Tirage groupes" sont autoalimentées à l'ouverture du userform.

Les combobox doivent être alimentés à partir des valeurs des 2 textbox et du tableau situé sur la feuille "Base Vainq et Consolante". Et il est là mon problème...

Je joins un fichier simplifié qui permet d'expliquer tout cela.

Merci d'avance à ceux qui m'accorderont de leur temps afin de m'aider à résoudre mon problème.

Bonjour

A voir de cette manière

Bonjour Banzai64,

Très astucieux de passer par des filtres sur les colonnes, cela permet une initialisation beaucoup plus rapide du userform. Par contre, cela ne répond pas tout à fait.

Par exemple :

si je rentre 10 groupes de 8 soit 80 équipes, il filtre sur 10 groupes de 10 (voir capture1), c'est bizarre ?

dans le combobox1, je rentre 64 et dans le combobox2 apparait 6 (jusque là tout va bien)

dans le combobox3, j'ai la possibilité de rentrer 32, 16, 8, 4 ou 0 et c'est là qu'il y a un problème car je ne devrais pas pouvoir saisir 32 équipes qualifiées en consolante car j'en ai déjà qualifié 64 en poule vainqueur sur les 80 au total.

Je pense que le problème vient du filtrage sur la colonne B, qu'en penses tu ?

Je pense avoir trouvé...

En fait sur ce bout de code dans le TextBox2 Change, il y a avait un TextBox1 au lieu de TextBox2

'If Me.TextBox1 <> "" And Me.TextBox2 <> "" Then
    Ws.Range("A2:F" & NbLignes).AutoFilter field:=2, Criteria1:=Me.TextBox2
    Remplissage_Combobox Me.ComboBox1, 3
  'End If

Merci beaucoup Banzai64 pour la solution.

Bonne journée

Bonjour

Une erreur de copier/coller

Modifies la ligne dans la macro "TextBox2_Change"

    Ws.Range("A2:F" & NbLignes).AutoFilter field:=2, Criteria1:=Me.TextBox2

Ok bien vu