Simplifier un code

julien974 · 19 Novembre 2008

Bonjour, je souhaiterais savoir si il est possible de simplifier le code suivant.

HTML:

Sub hihi()

    Range("H2").Select
    
    While ActiveCell.Offset(0, -1).Value <> ""
    
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],MATRICECONTENANTS,4,0)"
    ActiveCell.Offset(0, 1).FormulaR1C1 = "=RC[-4]/RC[-1]"
    ActiveCell.Offset(1, 0).Select
    
    Wend

End sub

Merci de votre aide,

juli3n974

wilfried_42 · 19 Novembre 2008

Re : Simplifier un code

Bonjour :

Essaye cela :
si j'ai bien compris, tu cherches à remplir une colonne de formule

Code:

Sub hihi()
    Range("H2").FormulaR1C1 = "=VLOOKUP(RC[-5],MATRICECONTENANTS,4,0)"
    Range("H2").Offset(0, 1).FormulaR1C1 = "=RC[-4]/RC[-1]"
    Range("H2:G" & range("[COLOR="Red"]A65536[/COLOR]").end(xlup).row).filldown
End sub

en Rouge, adapter la colonne pour prendre la colonne de référence c'est à dire la colonne qui contient toutes les données, la ligne 65536 : definit la ligne la plus basse (la j'ai pris la derniere ligne)

julien974 · 19 Novembre 2008

Re : Simplifier un code

Merci beaucoup ça fonctionne,

De plus c'est beaucoup plus rapide que ma boucle.

Salutation,

Juli3n974

Simplifier un code

julien974

XLDnaute Occasionnel

wilfried_42

XLDnaute Barbatruc

julien974

XLDnaute Occasionnel

Discussions similaires

Simplifier un code

julien974

XLDnaute Occasionnel

wilfried_42

XLDnaute Barbatruc

julien974

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency