M
man
Guest
bonsoir a tous,
j'aurai besoin d'une petite aide pour le code suivant.
il recopie une formule de H6 à H65536. mais j'aimerai qu'il ne le fasse qu'à condition que la cellule A correspondante (à la ligne ou cette formule est collé) ne soit pas vide.
NB : les lignes étant triées avant ce recopiage toutes les cellules non vide sont en premier, suivis des cellules vides.
j'ai essayé avec l'enregistreur, il bloque.
voici le code actuel :
Range("H6").Select
ActiveCell.FormulaR1C1 = _
"=(SUM(R6C[-4]:RC[-4])-SUM(R6C[-3]:RC[-3]))+(SUM(R6C[-2]:RC[-2])-SUM(R6C[-1]:RC[-1]))"
Range("H6:H65536").Select
Selection.FillDown
ActiveWindow.SmallScroll Down:=-4
End Sub
De plus, a quoi correspond le dernier code "activewindow.smallScroll Down.." ?
D'avance merci.
j'aurai besoin d'une petite aide pour le code suivant.
il recopie une formule de H6 à H65536. mais j'aimerai qu'il ne le fasse qu'à condition que la cellule A correspondante (à la ligne ou cette formule est collé) ne soit pas vide.
NB : les lignes étant triées avant ce recopiage toutes les cellules non vide sont en premier, suivis des cellules vides.
j'ai essayé avec l'enregistreur, il bloque.
voici le code actuel :
Range("H6").Select
ActiveCell.FormulaR1C1 = _
"=(SUM(R6C[-4]:RC[-4])-SUM(R6C[-3]:RC[-3]))+(SUM(R6C[-2]:RC[-2])-SUM(R6C[-1]:RC[-1]))"
Range("H6:H65536").Select
Selection.FillDown
ActiveWindow.SmallScroll Down:=-4
End Sub
De plus, a quoi correspond le dernier code "activewindow.smallScroll Down.." ?
D'avance merci.