Bonjour,

je souhaite avoir une formule qui me permette de diviser le nombre d'une cellule par 10000 et ensuite copier cette formule sur toute la colonne;

j'ai créé le code suivant mais le problème c'est que je n'arrive pas à coller la formule sur toute la colonne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Range("H1").Select
ActiveCell.FormulaR1C1 = "=(RC[-2]/10000)"
Range("H1").Select
 Selection.Copy
 Range(Cells(1, 8), Cells(c, 8)).Select
 ActiveSheet.Paste
 Range(Cells(1, 8), Cells(c, 8)).Select
 Application.CutCopyMode = False
Etant débutante j'ai du mal à trouver mon erreur.

merci par avance de votre aide.