Boucle for...next

Résolu
simkmil Messages postés 481 Date d'inscription   Statut Membre Dernière intervention   -  
simkmil Messages postés 481 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 ?

A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
simkmil Messages postés 481 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
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni -
BiGaMeRz10 -

10 réponses
Mon PC marque press the esc key for startup menu
Jonas2022 -
SATS_fr -

5 réponses