[Userform] Calcul avec 2 critères

[oasis_ck]

Bonjour à tous, le forum,

Je n'arrive pas à calculer la catégorie d'un joueur en fonction de l'année de naissance et du genre. Pour le calcul, vous trouverez un tableau dans l'onglet "Données". En calcul excel cela est simple mais je n'arrive pas à l'intégrer pour qu'il s'affiche automatiquement quand le genre est sélectionnée (G ou F -> Garcon ou Fille) dans l'userform.

Par exemple, pour une date de naissance 01/01/1995, genre garçon -> Cadet 1
pour une date de naissance 01/07/1999, genre fille -> Benjamine 1
Pour une date de naissance 01/12/2002, genre fille -> Poucette 2

Je joint le fichier. L'userform se situe dans USF_Ajouter, résultat du calcul affiché dans la case grise entouré en noir ('Name' : T13).

Merci à tous pour votre implication.

 

[xhudi69]

Re : [Userform] Calcul avec 2 critères

Bonsoir oasis_ck, le Forum,

Private Sub T8_Change()
Dim DRL As Long
Dim i As Long
Dim a As Double, b As Double, ag As Double

a = Year(Now)
b = Year(T7.Value)
ag = a - b

If ag < 9 Then
    T13.Value = "Enfant"
End If

If ag > 19 Then
    T13.Value = "Adulte"
End If

With Sheets("Données")
    DRL = .Range("B65500").End(xlUp).Row
    For i = 2 To DRL
        If .Cells(i, 2).Value = ag Then
            If T8.Value = "G" Then
                T13.Value = .Cells(i, 3).Value
            End If
            
            If T8.Value = "F" Then
                T13.Value = .Cells(i, 4).Value
            End If
        End If
    Next i
End With
End Sub

@+

 

[oasis_ck]

Re : [Userform] Calcul avec 2 critères [Résolue]

Bonjour, xhudi69, le forum,

Parfait ! C'était tout bête en plus ^^

Merci et @ bientôt