Gestion championnat billard

[vmax67]

Bonjour à tous

je cherche à finaliser mon application concernant la gestion d'un championnat de billard

J'ai un Usf qui sert à la sélection des deux joueurs qui vont se rencontrer,
dans le premier menu déroulant (V1) je sélectionne le joueur 1 jusqu’à la pas de souci
ensuite j'aimerai faire une sélection du joueur 2 dans le menu déroulant J2, mais la j'ai
des lignes vides qui apparaissent ainsi que le nom du joueur 1 déjà sélectionner ce qui ne devrai pas être
le cas.
Après la saisie complète de l'USF j'aimerai remplir le tableau de la feuille Libre automatiquement.

Exemple si André affronte Bernard il faut remplir les cellules suivantes

Pour André cellule G8 = TextBox1, I8 = TextBox2, I11 = TextBox3
Pour Bernard cellule C12 = TextBox4, E12 = TextBox5, E15 = TextBox6

et ainsi de suite pour chaque joueur. il faudrait également éviter la saisie des doublons, voir pièce jointe

d'avance merci pour votre aide


Vmax

 

[CHALET53]

Re : Gestion championnat billard

bonjour,

ensuite j'aimerai faire une sélection du joueur 2 dans le menu déroulant J2, mais la j'ai
des lignes vides qui apparaissent ainsi que le nom du joueur 1 déjà sélectionner ce qui ne devrai pas être
le cas.

Normal que tu aies des blancs: tu as mis dans RowSource de P2 : Libre!A8:A63
Les cellules fusionnées sont ignorées : donc A9 à A11 sont à blanc et reportées comme telles (et ainsi de suite)
Il est aussi normal que le premier soit reporté puis que tu prends toute la colonne
Il faut faire une sélection du contenu de ta combobox P2 par programme (dès que V1 est changé)

a+

 

[vmax67]

Re : Gestion championnat billard

Merci, mais comment faire en VB !!

 

[Paf]

Re : Gestion championnat billard

bonjour à tous,

ci joint un classeur qui, a priori, répond aux besoins, sauf pour la saisie des doublons (pas tout compris).

A+

 

[vmax67]

Re : Gestion championnat billard

Merci c'est magnifique.

Concernant le doublon, je voulais dire éviter de saisir 2 fois la même rencontre

@+

 

[Paf]

Re : Gestion championnat billard

Re,

pour éviter les re saisies,rajouter le code suivant dans l'USF:

Private Sub P2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
VerifDoublon
End Sub

Sub VerifDoublon()
Dim LigGagn As Integer, j As Integer, ColGagn As Integer

If P2.ListIndex <> -1 Then
    LigGagn = V1.Column(1, V1.ListIndex)
    With Sheets("Libre")
    For j = 3 To 58 Step 4
        If .Cells(5, j).Value = P2 Then Exit For
    Next
    ColGagn = j

    If .Cells(LigGagn, ColGagn) <> "" Then
        MsgBox "La rencontre " & V1 & " / " & P2 & " a déjà été saisie"
        P2.Clear
        V1.SetFocus
    Else
        TextBox1.SetFocus
    End If
    End With
End If
End Sub

Bonne suite

 

[vmax67]

Re : Gestion championnat billard

Merci, c'est exactement ce que je voulais

@+

Vmax