Boucle for ... Next

Bonjour

je cale sur une programmation en VB !

sur une feuille Excel, je compte les lignes, je met ce nombre en O35 jusque là, ça fonctionne.

Mais plus loin, je veux faire une boucle pour calculer un prix de vente par rapport à un prix d'achat - donc le prix de la colonne G est multiplié par un coefficient en colonne H et c'est ici que je veux le faire le nombre de fois que j'ai de lignes et là : ça cale !

voici la formule que j'ai fait :

Range("K3").Select

ActiveCell.FormulaR1C1 = "=RC[-4]*1.72"

For J = 1 To O35

Selection.AutoFill Destination:=Range("K3:K(J)"), Type:=xlFillDefault

Next

Range("K3:K(J)").Select

ActiveWindow.SmallScroll Down:=-39

Selection.Style = "Currency"

pouvez vous m'aider ?

Bonjour,

A tester dans ton fichier.

Cdlt

Option Explicit
Public Sub test()
Dim derLigne As Long, i As Long
    Application.ScreenUpdating = False
    ' dernière ligne non vide colonne G
    derLigne = Range("G" & .Rows.Count).End(xlUp).Row
    For i = 3 To derLigne
        Cells(i, "K").FormulaR1C1 = "=RC[-4]*1.72"
        Cells(i, "K").NumberFormat = "#,##0.00 €"
    Next
End Sub

Bonjour

Une autre vision

Sub test()
  With Range("K3:K38")    ' Plage à adapter
    .Formula = "=RC[-4]*1.72"
    .Style = "Currency"
  End With
End Sub