Simplifier un code

[julien974]

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

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]

Re : Simplifier un code

Bonjour :

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

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]

Re : Simplifier un code

Merci beaucoup ça fonctionne,

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

Salutation,

Juli3n974