Macro-formule sous total(colonne variable)

Question

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.

Configuration: Windows XP / Safari 534.16

Patrice33740 · Answer

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

Macro-formule sous total(colonne variable)

1 réponse

Discussions similaires

Newsletters