Copier une cellule de chaque feuilles existante dans une feuille recap
A
Bonjour à tous,
Mon problème du jour est celui ci:
Je cherche à copier dans un tableau d'une feuille (Nommée "récap") la cellule "total d'heure" (nommée "janvier", "Février" ....) lorsque la feuille existe. Cela fonctionne à moitié avec ma macro, cependant lorsque le nom d'une feuille n'existe pas excel m'ouvre une fenêtre m'invitant à chercher un fichier.
Je suis intéressé à toute suggestion me permettant d'améliorer mon approche et réduire mon code.
Merci à vous, au plaisir de vous lire et d'échanger avec vous.
Sub Update_Hours()
'
' Update_Hours Macro
'
'
Range("B9").Select
ActiveCell.FormulaR1C1 = "=IF(Janvier!R41C[8]="""",""-"",Janvier!R41C[8])"
Range("B10").Select
ActiveCell.FormulaR1C1 = "=IF(Février!R41C[8]="""",""-"",Février!R41C[8])"
Range("B11").Select
ActiveCell.FormulaR1C1 = "=IF(Mars!R41C[8]="""",""-"",Mars!R41C[8])"
Range("B12").Select
ActiveCell.FormulaR1C1 = "=IF(Avril!R41C[8]="""",""-"",Avril!R41C[8])"
Range("B13").Select
ActiveCell.FormulaR1C1 = "=IF(Mai!R41C[8]="""",""-"",Mai!R41C[8])"
Range("B14").Select
ActiveCell.FormulaR1C1 = "=IF(Juin!R41C[8]="""",""-"",Juin!R41C[8])"
Range("B15").Select
ActiveCell.FormulaR1C1 = "=IF(Juillet!R41C[8]="""",""-"",juillet!R41C[8])"
Range("B16").Select
ActiveCell.FormulaR1C1 = "=IF(Aout!R41C[8]="""",""-"",Aout!R41C[8])"
Range("B17").Select
ActiveCell.FormulaR1C1 = "=IF(Septembre!R41C[8]="""",""-"",Septembre!R41C[8])"
Range("B18").Select
ActiveCell.FormulaR1C1 = "=IF(Octobre!R41C[8]="""",""-"",Octobre!R41C[8])"
Range("B19").Select
ActiveCell.FormulaR1C1 = "=IF(Novembre!R41C[8]="""",""-"",Novembre!R41C[8])"
Range("B20").Select
ActiveCell.FormulaR1C1 = "=IF(Décembre!R41C[8]="""",""-"",Décembre!R41C[8])"
Selection.OnAction = "Update_Hours"
Range("D17").Select
Selection.OnAction = "Update_Hours"
End Sub
G