afficher catégorie dans UserForm

Re : afficher catégorie dans UserForm

Bonsoirjcf6464

J'ai rajouté ce code sur ton programme

'si textbox date_naissance 10 caractéres alors
If Len(Date_naissance) = 10 Then
'recherche catégorie
annee_cat = Val(Right(Date_naissance, 4))
For tr = 4 To 12
If annee_cat >= Val(Right(Cells(tr, 6), 4)) And annee_cat <= Val(Right(Cells(tr, 7), 4)) Then
cat = Cells(tr, 8)
End If
Next tr
If Sexe = "M" Or Sexe = "F" Then
Select Case Sexe
Case "M"
If Len(cat) > 2 Then
Catégorie = Left(cat, 2) + "G"
Else
Catégorie = Left(cat, 1) + "G"
End If
Case "F"
If Len(cat) > 2 Then
Catégorie = Left(cat, 2) + "F"
Else
Catégorie = Left(cat, 1) + "F"
End If
End Select
Else
Date_naissance = ""
MsgBox ("Indiquez le Sexe !")
End If
End If

Testes et dis-nous ?

A+

René

Re : afficher catégorie dans UserForm

bonsoir néné06

merci de voir le problème mais il faut tenir compte des entre date de la feuille paramètres et des catégories ,


exemple pour un participant qui est en (Benjamin) il est né entre ( 01/01/2002 31/12/2003 ) on doit pouvoir afficher BG pour homme ou BF pour femme, suivant le tableau des paramètres,


merci quand même

jcf6464

Re : afficher catégorie dans UserForm

Re,

Je ne saisi pas ??
Lorsque tu entres une date et le sexe, la tb catégorie inscrit bien la catégorie, chez moi ???

A+

René

Re : afficher catégorie dans UserForm

re,


je viens de faire plusieurs simulations la 1ere à marcher, les autres ne fonctionne pas,

je comprend pas


a+ JC

Re : afficher catégorie dans UserForm

Ré,
Je regarderai de plus près demain,maintenant,je me régale avec "docteur house"
Les collègue du forun vont certainement résoudre ce problème ce soir.

A +

René

Re : afficher catégorie dans UserForm

re,
ok merci

jcf

Re : afficher catégorie dans UserForm

Bonjour jcf, le forum

J'ai rectifié le code, car je n'avais pas tenu compte du renvoie de la feuille "BD" à la feuille "Paramètres".

Testes cette version et dis-nous si tu rencontres des problèmes ?

A+

René

Re : afficher catégorie dans UserForm

Bonjour nene06

Je l'essai et je peut te dire,

merci de ton intervention cela marche impeccablement bien bravo à tous pour l'aide que vous apporter à nous néofite du VBA,

je manquerais pas de revenir vous sollicitez,

merci encore néné06

jcf6464