[VBA] exécuter l'opération jusqu'en bas

Question

bonjours eh oui encore moi
je ne connais pas a l'avance le nombre de ligne 
je multiplie deux colones et met le resultat dans une 3 eme et moi je voudrai qu'il fasse la multiplication jusqu'en bas pour l'instant g fais ca :

Sub Multiplication()
'
Range("E3").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
    Selection.AutoFill Destination:=Range("E3", Range("E3").End(xlDown)).Select, Type:=xlFillDefault
    Range("E3", Range("E3").End(xlDown)).Select
 
End Sub

mais ca marche po sinon j'arrive a le faire fonctionner  en addmetant que je connaisse le nombre de ligne mais la c po le cas  
alors merci de ce pencher sur ce petit probleme merci a tous
@+

Kobaya · Accepted Answer

salut,

Et oui, c'est moi, ton sauveur attitré ;-)

La bonne méthode, c'est celle-ci :

Sub Multiplication()
    '
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
    Selection.AutoFill Destination:=Range("E3:E" & Range("D3").End(xlDown).Row), Type:=xlFillDefault
End Sub

[VBA] exécuter l'opération jusqu'en bas

1 réponse

Votre réponse

Discussions similaires

Newsletters