boucle for...next Résolu

Question

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 ?

Configuration: Seven Home, Acer Aspire V3 771G pour le portable (HD 750 Go, Ram 8Go)
Seven Pro, MSI 4Gb,HD 1 Tb pour le pc bureau 
Seven Pro sur un plus ancien P IV
Plus un plus vieux P IV pour faire des essais (actuellement en XP)

f894009 · Answer

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 WithEnd Sub

Boucle for...next

1 réponse

Votre réponse

Discussions similaires