Boucle for...next

Résolu
simkmil Messages postés 505 Date d'inscription   Statut Membre Dernière intervention   -  
simkmil Messages postés 505 Date d'inscription   Statut Membre Dernière intervention   -
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 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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 Messages postés 505 Date d'inscription   Statut Membre Dernière intervention   35
       
      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 -
Daniel -

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

7 réponses
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni -
BiGaMeRz10 -

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

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

5 réponses