Macro-formule sous total(colonne variable)

Fermé
FrereEjac Messages postés 11 Date d'inscription vendredi 17 avril 2009 Statut Membre Dernière intervention 3 septembre 2014 - 11 oct. 2011 à 12:10
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 16 oct. 2011 à 13:51
Bonjour tous le monde,
Je souhaite mettre une formule de sous total dans une colonne en fonction de l'intitulé de la colonne.

Sheets("Pays").Range("AJ" & ch + 6).Formula = "=SUBTOTAL(9,AJ4:AJ" & ch + 3 & ")"


Dans la formule ci dessous, je souhaite remplacer AJ par une colonne défini par son titre .

J'ai donc fait ceci ou "Total Nb" est le titre de la colonne:
For x = 1 To 90
If Cells(3, x) = "Total  Nb" 
Then Sheets("Pays").Cells(ch + 6, x).Formula = "=SUBTOTAL(9,AJ4: AJ" & ch + 3 & ")"
Next x


Je ne sais pas comment remplacer Aj par x dans la formule.

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 763
16 oct. 2011 à 13:51
Bonjour,

Essaies ce code :
For x = 1 To 90
  If Cells(3, x) = "Total  Nb" Then _
    Cells(ch + 6, x).Formula = _
    "=SUBTOTAL(9," & Range(Cells(4, x), Cells(ch + 3, x)).Address & ")"
Next x

0