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

[Fredox]

Bonjour à tous,

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

J'ai ce code qui fonctionne très bien:

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:

Col_D = 4

J'ai donc maintenant besoin de remplacer ce code par un nouveau adapté, mais je sèche totalement.

Sh_Saisie.Range("A2").FormulaLocal = "=Sous.total(109;A5:A" & DL & ")"

Auriez-vous une idée ?

Merci de votre aide.

 

[Oneida]

Bonjour,
Dans votre formule vous remplacez quoi par quoi?
DL est je suppose la fin d'une plage

 

[Dranreb]

Bonjour.

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.

 

[Hasco]

Bonjour,

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

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

le fera.

 

[Fredox]

Bonjour,
Dans votre formule vous remplacez quoi par quoi?
DL est je suppose la fin d'une plage

Bonjour,

Sh_Saisie.Range("A2").FormulaLocal = "=Sous.total(109;A5:A" & DL & ")"

Dans A2; la somme de A5 à A derniere ligne (oui, DL)
Mais remplacer A par la variable Col_A


Merci

 

[Hasco]

Euh... Je sens le gaz ?

 

[Fredox]

Bonjour,

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

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

le fera.

Euh... Je sens le gaz ?

Bonjour Hasco,

Non je n'avais pas vu.
Impec, c'est le résultat attendu !
Milles mercis