Bonjour,
Je me retrouve à nouveau avec un problème, actuellement dans mon workbook j'ai deux feuilles
1 : "Original"
2 : "Copy_modifier"
J'effectue un transfert des données nécessaire de la feuille "Original" à la feuille copy, ensuite depuis la feuille "Copy_modifier" j'effectue une addition de 3 cellules avec la fonctionnalité FormulaR1C1. Puis j'essais d'appliquer la formule jusqu'à la dernière.
Voici l'erreur que j'ai :
J'ai seulement cette erreur lorsque j'exécute depuis la feuille "Original" mais pas depuis la page "Copy_modifier"
J'aimerai que l'auto Fill puisse s'effectuer depuis n'importe quelle feuille.
Voici le code en question :
Sub Transfert()
Dim lg As Long
lg = Sheets("Original").Range("A" & Rows.Count).End(xlUp).Row 'la dernière ligne
Sheets("Original").Range("AB5:AB" & lg).Copy Sheets("Copy_modifier").Range("H5")
Sheets("Original").Range("AE5:AE" & lg).Copy Sheets("Copy_modifier").Range("I5")
Sheets("Original").Range("AH5:AH" & lg).Copy Sheets("Copy_modifier").Range("J5")
Sheets("Copy_modifier").Range("P6").FormulaR1C1 = "=RC[-8]+RC[-7]+RC[-6]"
Sheets("Copy_modifier").Range("P6").AutoFill Destination:=Range("P6:P" & lg)
End Sub
Je voudrais que le programme s'exécute sur n'importe quelle feuille c'est pourquoi je précise les feuilles avant chaque action.
Votre aide me serait précieuse.