Macro VBA - Formules dynamiques

Version imprimable

07/08/2017, 12h05
MarionHBS

1 pièce(s) jointe(s)

Macro VBA - Formules dynamiques

Bonjour,

Je viens vers vous car je ne trouve pas de solution à mon problème.

J'ai un tableau Excel avec un certain nombre de filtres à appliquer sur une base (en OU/ET).
J'ai écrit le code qui me construit la formule mais au moment de coller la formule j'ai une erreur comme si la formule écrite comportait une erreur. Cependant si j'écris directement la formule, cela fonctionne.

Je ne suis pas sûre d'être claire donc je vous transmets mon fichier avec ma macro.

Pièce jointe 301018

Cette ligne plante :

Code:

Cells(1, 104).FormulaR1C1 = a_filtrer

Alors que celle-ci fonctionne :

Code:

Cells(1, 104).FormulaR1C1 = "=IF(AND(OR(R[1]C[-98] = ""Un homme"", R[1]C[-98] = ""Une femme""), R[1]C[-90] = ""01 - Oui"", R[1]C[-97] = ""01 - CSP+"", OR(R[1]C[-95] = ""10-17 ans"", R[1]C[-95] = ""18-25 ans"")),1,0)"

Je vous remercie par avance pour vos réponses !
07/08/2017, 12h10
unparia

Bonjour
Je n'ai pas ouvert ton classeur (interdit par ma "religion") ;)

Une formule est une chaîne de caractères.

Code:

Cells(1, 104).FormulaR1C1 = a_filtrer

n'a donc bien évidemment de sens que si a_filtrer est une chaîne de caractères correspondant à un formule
07/08/2017, 12h11
MarionHBS

Citation:

Envoyé par unparia

Bonjour
Une formule est une chaîne de caractères.

Code:

Cells(1, 104).FormulaR1C1 = a_filtrer

n'a donc bien évidemment de sens que si a_filtrer est une chaîne de caractères correspondant à un formule

Bonjour,

Avez-vous regardé mon code ?

Pour moi, a_filtrer est bien une chaîne de caractères correspondant à une formule.

Merci,
07/08/2017, 12h17
joe.levrai

Bonjour,

le problème c'est que justement tu n'as pas copié le code tel qu'il se présente dans ton classeur

pour des questions de sécurité, mais également de philosophie du forum, les classeurs (à fortiori contenant des macros) ne sont généralement pas ouverts pas les contributeurs, qui s'appuient du code présenté dans le message du demander, à la lumière de ses explications
07/08/2017, 12h18
Pierre Fauconnier

Salut.

Tu affectes a_filtrer à la cellule de la colonne 104, or tu mets un RC[-104] => colonne 0 => erreur.

Alors qu'à la ligne suivante, tu crées directement la formule mais avec un -98...

Je pense que c'est pour cela que a_filtrer plante alors que la formule passe en direct.

Donc, a_filtrer ne correspond pas à ce que tu saisis en direct comme formule, d'où un test foireux... ;)

Citation:

Envoyé par joe.levrai

Bonjour,

le problème c'est que justement tu n'as pas copié le code tel qu'il se présente dans ton classeur

pour des questions de sécurité, mais également de philosophie du forum, les classeurs (à fortiori contenant des macros) ne sont généralement pas ouverts pas les contributeurs, qui s'appuient du code présenté dans le message du demander, à la lumière de ses explications

Je ne connaissais pas ces règles.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub Macro8()
 
    Worksheets("Filtres").Activate
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("Filtres").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Filtres").AutoFilter.Sort.SortFields.Add Key:= _
        Range("A1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Filtres").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.AutoFilter
 
    i = 2
    a_filtrer = ""
    While Cells(i, 2) <> ""
 
        If i = 2 Then
            If Cells(i + 1, 1) = Cells(i, 1) Then
                a_filtrer = a_filtrer & "=IF(AND(OR(R[1]C[" & -104 + Cells(i, 5) & "] = """"" & Cells(i, 4) & """"","
            Else
                a_filtrer = a_filtrer & "=IF(AND(R[1]C[" & -104 + Cells(i, 5) & "] = """"" & Cells(i, 4) & """"","
            End If
        End If
        If i > 2 Then
                If Cells(i + 1, 1) = Cells(i, 1) Then
                    If Cells(i + 1, 1) <> "" Then
                        a_filtrer = a_filtrer & " OR(R[1]C[" & -104 + Cells(i, 5) & "] = """"" & Cells(i, 4) & """"","
                    Else
                        a_filtrer = a_filtrer & " OR(R[1]C[" & -104 + Cells(i, 5) & "] = """"" & Cells(i, 4) & """"""
                    End If
                ElseIf Cells(i + 1, 1) <> Cells(i, 1) And Cells(i - 1, 1) = Cells(i, 1) Then
                    If Cells(i + 1, 1) <> "" Then
                        a_filtrer = a_filtrer & " R[1]C[" & -104 + Cells(i, 5) & "] = """"" & Cells(i, 4) & """""),"
                    Else
                        a_filtrer = a_filtrer & " R[1]C[" & -104 + Cells(i, 5) & "] = """"" & Cells(i, 4) & """"")"
                    End If
                Else
                    If Cells(i + 1, 1) <> "" Then
                        a_filtrer = a_filtrer & " R[1]C[" & -104 + Cells(i, 5) & "] = """"" & Cells(i, 4) & """"","
                    Else
                        a_filtrer = a_filtrer & " R[1]C[" & -104 + Cells(i, 5) & "] = """"" & Cells(i, 4) & """""),1,0)"
                    End If
                End If
        End If
 
        i = i + 1
    Wend
    MsgBox (a_filtrer)
    Cells(1, 104).FormulaR1C1 = a_filtrer
    Cells(1, 104).FormulaR1C1 = "=IF(AND(OR(R[1]C[-98] = ""Un homme"", R[1]C[-98] = ""Une femme""), R[1]C[-90] = ""01 - Oui"", R[1]C[-97] = ""01 - CSP+"", OR(R[1]C[-95] = ""10-17 ans"", R[1]C[-95] = ""18-25 ans"")),1,0)"
 
 
End Sub

07/08/2017, 12h19
unparia

Citation:

Pour moi, a_filtrer est bien une chaîne de caractères correspondant à une formule.

Montre ICI (entre balises code) où et comment tu l'as déclarée et initialisée.
Pas question d'ouvrir ton classeur ...
07/08/2017, 12h20
MarionHBS

Citation:

Envoyé par Pierre Fauconnier

Salut.

Tu affectes a_filtrer à la cellule de la colonne 104, or tu mets un RC[-104] => colonne 0 => erreur.

Alors qu'à la ligne suivante, tu crées directement la formule mais avec un -98...

Je pense que c'est pour cela que a_filtrer plante alors que la formule passe en direct.

Non ce n'est pas ça puisque dans a_filtrer c'est la colonne 104 - la valeur de la colonne du filtre donc elle n'est jamais égale à 104.
Je viens de toute manière de tester en mettant la formule en colonne 1000 et cela ne fonctionne toujours pas.
07/08/2017, 12h21
MarionHBS

Citation:

Envoyé par unparia

Montre ICI (entre balises code) où et comment tu l'as déclarée et initialisée.
Pas question d'ouvrir ton classeur ...

C'est fait dans mon message précédent !
07/08/2017, 12h25
Pierre Fauconnier

Citation:

Envoyé par MarionHBS

Non ce n'est pas ça puisque dans a_filtrer c'est la colonne 104 - la valeur de la colonne du filtre donc elle n'est jamais égale à 104.
Je viens de toute manière de tester en mettant la formule en colonne 1000 et cela ne fonctionne toujours pas.

Ok. En tout état de cause, tu dois verifier que ta variable contient bien la même chaine que celle que tu attribues in extenso à la formule de ta cellule. Peut-être as-tu oublié une parenthèse, un guillemet, ... dans la construction de ta chaîne a_filtrer.

Ta chaine a_filtrer étant reconstituée au depart de valeurs se trouvant dans des cellules, il est nécessaire de verifier le contenu de ces cellules et c'est pourquoi tu dois controller ta chaine a_filtrer après qu'elle ait été construite par le code.
07/08/2017, 12h26
MarionHBS

Citation:

Envoyé par Pierre Fauconnier

Ok. En tout état de cause, tu dois verifier que ta variable contient bien la même chaine que celle que tu attribues in extenso à la formule de ta cellule. Peut-être as-tu oublié une parenthèse, un guillemet, ... dans la construction de ta chaîne a_filtrer

C'est bien ce que j'ai fait maintes fois en faisant un :

Code:

cells(1,104) = """" & a_filtrer & """"

Et c'est exactement la même chose...
07/08/2017, 12h32
Pierre Fauconnier

Non, tu dois la verifier dans ton code VBA, puisqu'elle plante, tu ne saurais pas la verifier dans Excel.

En clair, tu dois verifier que a_filtrer correspond bien à "=if..." (c'est-à-dire à ce que tu as mis sur la ligne qui suit ...formulaR1C1 = a_filtrer.

Pour faire cela, tu mets la chaine que tu passes sur cette ligne ( Cells(1, 104).FormulaR1C1 = "=IF(AND(OR...) dans une variable, puis lorsque a_filtrer est constituée, tu verifies la correspondence des deux chaines en mettant un point d'arrêt et en comparant les chaines dans ta fenêtre d'exécution. Il y a fort à parier que le test renverra FALSE et tu pourras comparer les chaînes pour voir à partir d'où il y a une difference.
07/08/2017, 13h54
MarionHBS

Citation:

Envoyé par Pierre Fauconnier

Non, tu dois la verifier dans ton code VBA, puisqu'elle plante, tu ne saurais pas la verifier dans Excel.

En clair, tu dois verifier que a_filtrer correspond bien à "=if..." (c'est-à-dire à ce que tu as mis sur la ligne qui suit ...formulaR1C1 = a_filtrer.

Pour faire cela, tu mets la chaine que tu passes sur cette ligne ( Cells(1, 104).FormulaR1C1 = "=IF(AND(OR...) dans une variable, puis lorsque a_filtrer est constituée, tu verifies la correspondence des deux chaines en mettant un point d'arrêt et en comparant les chaines dans ta fenêtre d'exécution. Il y a fort à parier que le test renverra FALSE et tu pourras comparer les chaînes pour voir à partir d'où il y a une difference.

C'est bon j'ai résolu mon problème ! Cela venait des double-guillemet !!

Merci de m'avoir éclairé !