Bonsoir le Forum,

Ce code fonctionne mais quand je suis dans ma cellule de résultat je peux lire la formule entière s'afficher dans la barre de formule. Est-ce possible de voir apparaitre que le résultat comme dans ma cellule?.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub Somme_dans_récap()
ActiveCell.FormulaR1C1 = "='01'!R[63]C[9]+'01'!R[64]C[9]+'02'!R[63]C[9]+'02'!R[64]C[9]+'03'!R[63]C[9]+'03'!R[64]C[9]+'04'!R[63]C[9]+'04'!R[64]C[9]+'05'!R[63]C[9]+'05'!R[64]C[9]+'06'!R[63]C[9]+'06'!R[64]C[9]+'07'!R[63]C[9]+'07'!R[64]C[9]+'08'!R[63]C[9]+'08'!R[64]C[9]+'09'!R[63]C[9]+'09'!R[64]C[9]+'10'!R[63]C[9]+'10'!R[64]C[9]+'11'!R[63]C[9]+'11'!R[64]C[9]+'12'!R[63]C[9]+'12'!R[64]C[9]+'13'!R[63]C[9]+'13'!R[64]C[9]+'14'!R[63]C[9]+'14'!R[64]C[9]+'15'!R[63]C[9]+'15'!R[64]C[9]+'16'!R[63]C[9]+'16'!R[64]C[9]+'17'!R[63]C[9]+'17'!R[64]C[9]+'18'!R[63]C[9]+'18'!R[64]C[9]+'19'!R[63]C[9]+'19'!R[64]C[9]+'20'!R[63]C[9]+'20'!R[64]C[9]+'21'!R[63]C[9]+'21'!R[64]C[9]+'22'!R[63]C[9]+'22'!R[64]C[9]+'23'!R[63]C[9]+'23'!R[64]C[9]+'24'!R[63]C[9]+'24'!R[64]C[9]+'25'!R[63]C[9]+'25'!R[64]C[9]+'26'!R[63]C[9]+'26'!R[64]C[9]+'27'!R[63]C[9]+'27'!R[64]C[9]+'28'!R[63]C[9]+'28'!R[64]C[9]+'29'!R[63]C[9]+'29'!R[64]C[9]+'30'!R[63]C[9]+'30'!R[64]C[9]+'31'!R[63]C[9]+'31'!R[64]C[9]"
    Range("C6").Select
En vous remerciant.