Autres Calcul entre de 2 date

eric57

XLDnaute Occasionnel
Bonsoir le forum

Malgré mes recherches, je ne trouve pas ma solution

Je voudrais transférer cette formule en passant en VBA

=SI($F14>=DATE($AB$1-10;10;1);$F14<=DATE($AB$1-8;9;30);"X";"")

En Cellule AB1 j'ai l'année 2022
En cellule F14 j'ai la date du naissance du joueur

Je voudrais mettre une macro mais sans mettre de formule et avoir un MsgBox qui me donne le résultat : "Poussin" si Vrai sinon "Minime"

Pouvez-vous m'aider ?

Cordialement
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Eric, Wayki,
D'après ce que j'ai compris :
VB:
Sub Catégorie()
    Naissance = [F14]
    Date1 = CDate("30/09/" & [AB1] - 8)
    Date2 = CDate("01/10/" & [AB1] - 10)
    If Naissance >= Date1 Then
        MsgBox "Poussins"
    ElseIf Naissance <= Date1 And Naissance >= Date2 Then
        MsgBox "Minimes"
    End If
End Sub
 

eric57

XLDnaute Occasionnel
Merci Sylvanu C'est exactement ce que je cherchais

Je l'ai adapté a mes catégories et cela fonctionne .

Merci Wayki . Je ne pouvais pas envoyer mon fichier car il contient des infos des joueurs

Merci le forum pour votre aide toujours aussi rapide
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG