afficher catégorie dans UserForm

[jcf6464]

Bonsoir,

je viens sur le forum un peut contrains car je ne trouve pas sur le net et pas assez fort en codage,

ce que je recherche c'est quand je met le sexe(M ou F + la date de naissance) la catégorie doit s'affiche en rapport à la catégorie (placer dans paramètres) en E4 : I12 en fait quand je tape la date on doit aller chercher dans cette base la catégorie entre deux date et cela en VBA ,
exemple pour Benjamin il est né entre ( 01/01/2002 31/12/2003 ) on doit pouvoir afficher BG pour homme ou BF pour femme,

merci bonne soirée

fichier joint

jcf6464

 

[néné06]

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é

 

[jcf6464]

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

 

[néné06]

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é

 

[jcf6464]

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

 

[néné06]

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é

 

[jcf6464]

Re : afficher catégorie dans UserForm

re,
ok merci

jcf

 

[néné06]

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é

 

[jcf6464]

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