Macro-formule sous total(colonne variable)

FrereEjac -  
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

  • Votes
  • Date
  • Date décroissante
  1. Patrice33740
    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