Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

sous.total en VB

1 réponse
Avatar
Jean-François LEGRAS
Encore bonsoir à vous chers amis,


Nouvelle question mais indépendante de la précédente, donc je préfère poster
un nouveau message.

Je n'arrive pas à créer un code en VB pour faire un sous.total 3 lignes
en-dessous de la dernière ligne du tableau. C'est idiot mais j'ai essayé
avec End(xlUp) et impossible de trouver la bonne formule :

La formule ci-dessous par exemple ne fonctionne pas...

Range("N65535").End(xlUp).Offset(3, 0).Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,N4:R[-3]C)"



Pourriez-vous m'aider svp ?

Merci d'avance !

Et bonne nuit, vais me coucher.

JF

1 réponse

Avatar
Daniel.C
Si tu mets Formula R1C1, il faut convertir N4 en coordonnées L1C1 :
Range("N65535").End(xlUp).Offset(3, 0).Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R14C4:R[-3]C)"
Daniel
"Jean-François LEGRAS" a écrit dans le message de news:

Encore bonsoir à vous chers amis,


Nouvelle question mais indépendante de la précédente, donc je préfère
poster un nouveau message.

Je n'arrive pas à créer un code en VB pour faire un sous.total 3 lignes
en-dessous de la dernière ligne du tableau. C'est idiot mais j'ai essayé
avec End(xlUp) et impossible de trouver la bonne formule :

La formule ci-dessous par exemple ne fonctionne pas...

Range("N65535").End(xlUp).Offset(3, 0).Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,N4:R[-3]C)"



Pourriez-vous m'aider svp ?

Merci d'avance !

Et bonne nuit, vais me coucher.

JF