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

Fredox · 29 Janvier 2023

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.

Oneida · 29 Janvier 2023

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

Dranreb · 29 Janvier 2023

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.

Hasco · 29 Janvier 2023

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.

Fredox · 29 Janvier 2023

Oneida à dit:
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 · 29 Janvier 2023

Euh... Je sens le gaz ?

Fredox · 29 Janvier 2023

Hasco à dit:
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.

Hasco à dit:
Euh... Je sens le gaz ?

Bonjour Hasco,

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

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

Fredox

XLDnaute Occasionnel

Oneida

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Fredox

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

Fredox

XLDnaute Occasionnel

Discussions similaires