Correction de formule

[fb62840]

Bonjour à toutes et tous,

Je cherche à modifier le code suivant :

Sub EcrireFormules()
Dim f As Worksheet
Dim ctr As String
Dim fin As String
Dim champ As String
Application.DisplayAlerts = False

'Boucler sur toutes les feuilles du classeurs
For Each f In ThisWorkbook.Sheets
    If Left(f.Name, 4) = "CLUB" Then
        ctr = Trim(Split(f.Name, " ")(1))
        fin = Trim(Split(f.Name, " ")(2))
        champ = "Championnat_" & fin
        f.Range("E1") = ctr
        'f.Range("G2").Formula = "=SUMPRODUCT((" & champ & "!RC[7]:R[65534]C[7]='" & f.Name & "'!RC[-3])*(" & champ & "!RC[6]:R[65534]C[6]='" & f.Name & "'!R1C5)*(Championnat R1!RC[4]:R[65534]C[4]))"
        f.Range("G2").Formula = "=SUMPRODUCT((" & champ & "!RC[-3]:R[65534]C[-3]='" & f.Name & "'!RC[-6])*(" & champ & "!RC[+1]:R[65534]C[+1]='" & f.Name & "'!R1C5)*(" & champ & "!RC[4]:R[65534]C[4]))"
        End If
Next f
Application.DisplayAlerts = True
End Sub

Qui a pour effet de recopier une formule de calcul sur les feuilles dont le nom commence par CLUB dans la cellule G2 et de recopier une donnée dans la cellule E1.

A ce stade la formule ne recopie la formule que sur la 2nde ligne des feuilles.
J'aimerai qu'elle soit modifiée afin de permettre l'écrire en colonne G tant qu'il y aura une valeur en colonne A sur la même ligne (mais il faudrait aussi que les références soit de type Absolue pour les données de la feuille champ et pour le critère.

Merci pour votre aide

En pièce-jointe le fichier de travail. Voir la feuille Explication

 

[gilbert_RGI]

Re : Correction de formule

Bonjour

peut-être comme ça

 

[fb62840]

Re : Correction de formule

Bonjour Gilbert,

On progresse, par contre la formule que tu propose de recopier n'est pas la même.

ma formule :
f.Range("G" & i).Formula = "=SUMPRODUCT((" & champ & "!RC[-3]:R[65534]C[-3]='" & f.Name & "'!RC[-6])*(" & champ & "!RC[+1]:R[65534]C[+1]='" & f.Name & "'!R1C5)*(" & champ & "!RC[4]:R[65534]C[4]))"

Ta formule :
f.Range("G" & i).Formula = "=SUMPRODUCT((Championnat_R1!R2C4:R65536C4='CLUB FEM R1'!RC[-6])*(Championnat_R1!R2C8:R65536C8='CLUB FEM R1'!R1C5)*(Championnat_R1!R2C11:R65536C11))"

En remplaçant ta formule par la mienne j'obtiens par exemple sur la feuille CLUB <8 :
en G2 :
SOMMEPROD((Championnat_R1!D2😀65536='CLUB <8 R1'!A2)*(Championnat_R1!H2:H65536='CLUB <8 R1'!$E$1)*(Championnat_R1!K2:K65536))
Qui renvoi bien le Total attendu de 209

en G3 :
SOMMEPROD((Championnat_R1!D1😀3='CLUB <8 R1'!A3)*(Championnat_R1!H1:H3='CLUB <8 R1'!$E$1)*(Championnat_R1!K1:K3))
La formule n'est pas "correcte" car elle utilise D1😀3 au lieu de D2😀65536 comme première plage de référence
même type de modification pour la seconde plage la formule utilise H1:H3 au lieu de H2:H65536

Une idée pour corriger ?

 

[gilbert_RGI]

Re : Correction de formule

A toi de trouver la bonne formule

moi j'ai fait le fonctionnement

 

[fb62840]

Re : Correction de formule

Je pense avoir trouvé avec cette rédaction (n'utilisant pas les [] on sous-entend qu'il s'agit de référence absolue, encore un apprentissage de plus pour moi)

f.Range("G" & i).Formula = "=SUMPRODUCT((" & champ & "!R2:R65536C4='" & f.Name & "'!RC[-6])*(" & champ & "!R2:R65536C8='" & f.Name & "'!R1C5)*(" & champ & "!R2:R65536C11))"

Il a fallu également que je donne les références numériques sans utiliser le signe moins qui n'est apparemment pas utilisable avec les références absolues

Merci pour ton aide.