Fonctions imbriquées

[Claude72]

Bonsoir à tous,

Je cherche à mettre ce code VB6.0 sous excel :

"If calendarType = Gregorian And ((iYear > 1582) Or ((iYear = 1582) And _
(iMonth > 10)) Or ((iYear = 1582) And (iMonth = 10) And _
(iDay > 14))) Then"

Après je fais un calcul, mais après ça va ... "Vrai=A3;Faux=A4"
Les valeurs en A3 et A4 sont calculées

En supposant CalendarType en A1, iDay en B1, iMonth en C1, iYear en C1.
J'imagine des fonctions SI, OU, ET imbriquées.

Quelqu'un saurait-il ?
Merci par avance

Claude

 

[Roland_M]

Re : Fonctions imbriquées

bonsoir

sous VBA init le Calendar
if Calendar = vbCalGreg Then
mais si tu test simplement des cellules !?
encore faudra t'il que A1 soit = Calendar à un moment donné !?

If Range("A1") = vbCalGreg And ((Range("D1") > 1582) Or ((Range("D1") = 1582) And _
(Range("C1") > 10)) Or ((Range("D1") = 1582) And (Range("C1") = 10) And (Range("B1") > 14))) Then

 

[soenda]

Re : Fonctions imbriquées

Bonjour le fil, Claude 72,
Salut Roland M

Une solution par formule, en F1 par exemple (comme j'ai un peu galéré, je poste)

=SI(ET(A1="Gregorian";B1>=1852);OU(ET(B1=1852;(C1+(D1>14))>10));VRAI)

A plus

 

[Claude72]

Re : Fonctions imbriquées

Merci beaucoup à Soenda et Roland M

Les fonctions imbriquées abîment ma petite tête

Bonne soirée à vous