Comment calculer le nb de lignes et recopier la formule

Bonjour,

chaque semaine, je dois faire une extraction BO suivi d'une mise enforme pour utiliser l'extraction.

je cherche une formule pour que dans la macro, je puisse savoir combien ya de lignes afin que la macro recopie la formule jusqu'a la dernière ligne (qui varie chaque semaine...).

je vous ai mis mon fichier en pj et ma macro la voici :

(je suis débutante en VBA et j'ai utilisé l'enregistreur de macro ^^)

'selectionne tout et de fusionne les celulles

Cells.Select

With Selection

.MergeCells = False

End With

'selctionne lignes 1 à 3 et les suprime

Rows("1:3").Select

Range("A3").Activate

Selection.Delete Shift:=xlUp

'selectionne colonnes A à K, les agrandis

Columns("A:K").Select

Selection.ColumnWidth = 19

'selectionne les colonnes A,E et I et les supprime

Range("A:A,E:E,I:I").Select

Range("I1").Activate

Selection.Delete Shift:=xlToLeft

'insert une colonne avant E, fait calcul et le copie jusqu'a E37

Columns("D:D").EntireColumn.AutoFit

Columns("E:E").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("E2").Select

ActiveCell.FormulaR1C1 = "=RC[2]/RC[1]"

'c'est ici que j'aimerais trouver comment connaitre le nb de lignesde la colonne E

'calcul le nombre de lignes

DerniereLigne = Application.WorksheetFunction.CountA(Range("E:E"))

Range("E2").Select

Selection.AutoFill Destination:=Range("E2:E")

Range("E2:E").Select

'coupe et colle la colonne H

Columns("H:H").Select

Selection.Cut

Columns("E:E").Select

Selection.Insert Shift:=xlToRight

End Sub

Merci a ceux qui pouront m'aider

Bonjour,

essaye d'ajouter ce code après la formule sur la cellule E2:

   ActiveCell.FormulaR1C1 = "=RC[2]/RC[1]"
Dim Derligne As Long
   Derligne = Cells(65536, 6).End(xlUp).Row
   Selection.Copy
   Range("E3:E" & Derligne).Select
   Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

j'espère que ça va t'aider a résoudre votre problème

Cordialement

Top Top Top

merciiiiiiiiiiiiii

ça marche du tonnerre ))))))))))))))))