XL 2019 [Résolu] [VBA] Sous.Total avec colonne contenue dans une variable

Fredox

XLDnaute Occasionnel
Bonjour à tous,

Pas évident de synthétiser ma demande dans le titre de la discussion.

J'ai ce code qui fonctionne très bien:
VB:
Sh_Saisie.Range("A2").FormulaLocal = "=Sous.total(109;A5:A" & DL & ")"
Pour des soucis liés à l'évolution ou la modification de ma mise en page, les colonnes sont désormais traitées dans des variables (exemple: je replace "D" par "Col_D" (Cela m'évite de réécrire tout mon code quand j'insère ou enlève des colonnes).

Bien entendu, variable déclarée ainsi dans le code:
Code:
Col_D = 4

J'ai donc maintenant besoin de remplacer ce code par un nouveau adapté, mais je sèche totalement.
VB:
Sh_Saisie.Range("A2").FormulaLocal = "=Sous.total(109;A5:A" & DL & ")"

Auriez-vous une idée ?

Merci de votre aide.
 

Dranreb

XLDnaute Barbatruc
Bonjour.
VB:
WshSaisie.Cells(2, ColD).FormulaR1C1 = "=SUBTOTAL(109,R5C:R" & DL & "C)"
Évitez de préférence le "_" dans les identifiants perso. Ce caractère doit être réservé aux noms des procédures de prises en charge d'évènement, comme séparateur entre le nom de l'objet et celui de l'évènement.
 
Dernière édition:

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Si DL et Col_D sont valorisées en amont, sans doute que :

VB:
With Sh_Saisie
    .Range("A2").FormulaLocal = "=Sous.total(109;" & .Range(.Cells(5, Col_D), .Cells(DL, Col_D)).Address & ")"
End With
le fera.
 

Discussions similaires