Discussion :

[lili2173]

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.

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Donc, c, c'est quoi ?

[Gorfael]

Salut lili2173

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+