copier et coller formule

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:

---

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.

Que représente c dans cette ligne
Range(Cells(1, 8), Cells(c, 8)).Select

Sinon, en admettant que c est une variable représentant ta colonne, tu n'es jamais obligé de sélectionner une feuille, une cellule pour copier/coller des données. Ce code "ferait" la même chose que le tien.

Code:

---

1 2	Range("H1").FormulaR1C1 = "=(RC[-2]/10000)" Range("H1").Copy Range(Cells(1, 8), Cells(c, 8))

---

Donc, c, c'est quoi ? ;)

Salut lili2173

Code:

---

Range(Cells(1, "H"), Cells([F65536].End(xlUp).Row, "H")).FormulaR1C1 = "=(RC[-2]/10000)"

---

Ta formule est en relatif et comme tu utilises le format R1C1, autant ne pas s'embêter :D

Dans ton code, tu incles une valeur limite à ta copie qui est déterminée par la variable c. Comme c'est une macro, je considère que c'est une opération que tu comptes réemployée, et comme elle sert à diviser la colonne F (H-2), il me semble plus logique de la coller jusqu'à la dernière ligne utilisée en F.
Par habitude, je reste sur les limites d'Excel 2003 (65536 lignes, ce qui donne

Code:

---

Range("F65536").End(xlUp).Row

---

prmière ligne non vide de F en partant de la ligne 65536 et en remontant. Sinon, on peut employer

Code:

---

1 2 3

Range(Cells(1, "H"), Cells(IIf(IsEmpty(Range("F" & UsedRange.SpecialCells(xlCellTypeLastCell).Row)), _ Range("F" & UsedRange.SpecialCells(xlCellTypeLastCell).Row).End(xlUp).Row, _ Range("F" & UsedRange.SpecialCells(xlCellTypeLastCell).Row).Row), "H")).FormulaR1C1 = "=(RC[-2]/10000)"

---

Mais, est-ce bien utile ?
A+