Sujet Précédent Sujet Suivant

Macro-formule sous total(colonne variable)

FrereEjac Messages postés 11 Statut Membre -  
Patrice33740 Messages postés 8930 Statut Membre -
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.

A voir également:

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8930 Statut Membre 1 782
 
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