Boucle for...next

Résolu
simkmil -  
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 ?

1 réponse

  1.  f894009
    Bonjour,

    pas besoin de boucle

    une facon de faire: 

    Sub test()
        With Worksheets("feuil1")
            J = .Range("O35").Value
            .Range("K3").FormulaR1C1 = "=RC[-4]*1.72"
            .Range("K3").AutoFill Destination:=.Range("K3:K" & J), Type:=xlFillDefault
            .Range("K3:K" & J).Style = "Currency"
        End With
    End Sub
    0
    1. simkmil Auteur
      Merci beaucoup !
      C'est exactement ce que je cherchais. Et quelle rapidité de réponse .
      La seule chose est que mon calcul de prix s'arrête à l'avant dernier. Je vais revoir cela, ça vient certainement d'un mauvais comptage du nombre de lignes.

      Encore merci
      0

Discussions similaires

Mon pc s'allume et s'éteint en boucle
Jack

16 réponses
Track colis expédié des US !
Dudu54

7 réponses
Ma Livebox redémarre en boucle !
Utilisateur anonyme

5 réponses
Mon PC s'allume puis s'éteint tout seul. Que faire ?
La gouille

28 réponses
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni

10 réponses