Autres Calcul entre de 2 date

[eric57]

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

 

[Wayki]

Bonjour,
Une condition avec la formule si uniquement ne peut retourner que vrai ou faux et s'utilise ainsi :

=si(condition;valeur si vrai;valeur si faux)

Merci de reformuler et de donner un fichier au passage.
A +

 

[sylvanu]

Bonsoir Eric, Wayki,
D'après ce que j'ai compris :

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]

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