T77XDD
XLDnaute Occasionnel
Bonjour
je cherche à intégrer la formule en D17 dans la formule en D16 afin de pouvoir tenir compte des demies-journées de congés.
Tiens compte des jours fériés "=SI(C10<>"";NB.JOURS.OUVRES(C10;D10;FER);"")"
Tiens compte des demies-journées "ENT((D11-C11)*24)/24"
Je n'arrive pas à copier sur la feuille "A signer" le nombre de jours demandés qui est en E11, parce que ce que j'ai écrit en VBA tiens compte de la dernière case de la colonne qui contient "quelque chose", dans ce cas c'est une formule
'Jours demandés
Sheets("S.C.").Select
Range("E65536").End(xlUp).Select
Selection.Copy
Range("E65536").End(xlUp).Offset(0, 0).Select
Sheets("A signer").Select
Range("C23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Merci pour votre aide.
je cherche à intégrer la formule en D17 dans la formule en D16 afin de pouvoir tenir compte des demies-journées de congés.
Tiens compte des jours fériés "=SI(C10<>"";NB.JOURS.OUVRES(C10;D10;FER);"")"
Tiens compte des demies-journées "ENT((D11-C11)*24)/24"
Je n'arrive pas à copier sur la feuille "A signer" le nombre de jours demandés qui est en E11, parce que ce que j'ai écrit en VBA tiens compte de la dernière case de la colonne qui contient "quelque chose", dans ce cas c'est une formule
'Jours demandés
Sheets("S.C.").Select
Range("E65536").End(xlUp).Select
Selection.Copy
Range("E65536").End(xlUp).Offset(0, 0).Select
Sheets("A signer").Select
Range("C23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Merci pour votre aide.
Pièces jointes
Dernière édition: