Boucle for...next

Résolu/Fermé

simkmil Messages postés 434 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 13 mars 2024 - 27 oct. 2013 à 11:49
simkmil Messages postés 434 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 13 mars 2024 - 27 oct. 2013 à 16:45

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:

Boucle for...next
Download instagram for pc - Télécharger - Divers Communication
Saveaspdf.exe for office 2007 - Télécharger - Bureautique
Copytrans heic for windows - Télécharger - Visionnage & Diaporama
Idm for mac - Télécharger - Téléchargement & Transfert
Safari for windows - Télécharger - Navigateurs

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 oct. 2013 à 13:36

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

simkmil Messages postés 434 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 13 mars 2024 34
27 oct. 2013 à 16:45

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

Discussions similaires

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

Redémarrage en boucle Xiamo mi note 10

programme qui n'affiche pas le mot secret

mon ordi marque press the esc key for startup menu

Discussions similaires

Newsletters