XL 2013 Condition en plus

[Moreno076]

Bonsoir à tous

Je voudrais que dans mon tableau suivant, la formule dans N2 =SI(ESTNUM([@[Date réception prévue ÉTABLISSEMENT]]);SERIE.JOUR.OUVRE.INTL([@[Date réception prévue ÉTABLISSEMENT]];1;11;W$2:W$12);"") soit modifiée pour que si la date en M2 < aujourd'hui alors dans N2 ca marque "Pas de date précise" et si y 'a rien en M2 ca laisse comme ca comme actuellement.

Désolé pas de fichier en PJ.

Merci pour votre aide.

 

[JHA]

Bonjour à tous,

A essayer en "N2":

=SI(ET(NON(ESTVIDE($M$2));$M$2<AUJOURDHUI());"Pas de date précise";"ajouter formule en place")

ou

=SI(ET(NON(ESTVIDE([@[Date réception prévue ÉTABLISSEMENT]]));[@[Date réception prévue ÉTABLISSEMENT]]<AUJOURDHUI());"Pas de date précise";SI(ESTNUM([@[Date réception prévue ÉTABLISSEMENT]]);SERIE.JOUR.OUVRE.INTL([@[Date réception prévue ÉTABLISSEMENT]];1;11;W$2:W$12);""))

JHA

 

[Moreno076]

Bonjour à tous,

A essayer en "N2":

=SI(ET(NON(ESTVIDE($M$2));$M$2<AUJOURDHUI());"Pas de date précise";"ajouter formule en place")

ou

=SI(ET(NON(ESTVIDE([@[Date réception prévue ÉTABLISSEMENT]]));[@[Date réception prévue ÉTABLISSEMENT]]<AUJOURDHUI());"Pas de date précise";SI(ESTNUM([@[Date réception prévue ÉTABLISSEMENT]]);SERIE.JOUR.OUVRE.INTL([@[Date réception prévue ÉTABLISSEMENT]];1;11;W$2:W$12);""))

JHA

Merci JHA ca fonctionne très bien.

Par contre comment modifier ma macro?

Sub MajLivClient()
'
'

'
ActiveCell.FormulaR1C1 = _
"=IF(ISNUMBER([@[Date réception prévue ÉTABLISSEMENT]]),WORKDAY.INTL([@[Date réception prévue ÉTABLISSEMENT]],1,11,R2C[9]:R12C[9]),"""")"
Range("N2").Select
End Sub


merci bien

 

[Moreno076]

J ai reçu une notification mais pas vu la reponse

 

[job75]

Bonjour Moreno076, JHA,

Par contre comment modifier ma macro?

La solution la plus simple :

Sub MajLivClient()
[N2] = "=IF(ISNUMBER(M2),IF(M2<TODAY(),""Pas de date précise"",WORKDAY.INTL(M2,1,11,W$2:W$12)),"""")"
End Sub

NB : j'avais envoyé un 1er message que j'ai supprimé.

A+

 

[Moreno076]

Bonsoir.

Ca ne fonctionne pas ca me met ca. merci

 

[Moreno076]

Re

C'est bon résolu

Sub MajLivClient()
'
'

'
ActiveCell.FormulaR1C1 = _
"=IF(AND(NOT(ISBLANK([@[Date réception prévue ÉTABLISSEMENT]])),[@[Date réception prévue ÉTABLISSEMENT]]<=TODAY()),""Pas de date précise"",IF(ISNUMBER([@[Date réception prévue ÉTABLISSEMENT]]),WORKDAY.INTL([@[Date réception prévue ÉTABLISSEMENT]],1,11,R2C[9]:R12C[9]),""""))"
Range("N2").Select
End Sub

Cordialement

 

[job75]

Ca ne fonctionne pas ca me met ca. merci

Regarde la pièce jointe 1061792

Ce n'est pas le code que j'ai fourni.

 

[Moreno076]

Effectivement j ai tronqué le code désolé