Macro VBA - Formules dynamiques

**MarionHBS** · 07/08/2017, 12h05

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.

Macro - Fiche.xlsm

Cette ligne plante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 104).FormulaR1C1 = a_filtrer

Alors que celle-ci fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

**unparia** · 07/08/2017, 12h10

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**MarionHBS** · 07/08/2017, 12h11

Envoyé par unparia

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

**joe.levrai** · 07/08/2017, 12h17

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

**MarionHBS** · 07/08/2017, 12h19

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**unparia** · 07/08/2017, 12h19

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

**MarionHBS** · 07/08/2017, 12h21

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 !

**Pierre Fauconnier** · 07/08/2017, 12h18

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

**MarionHBS** · 07/08/2017, 12h20

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.

**Pierre Fauconnier** · 07/08/2017, 12h25

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.

**MarionHBS** · 07/08/2017, 12h26

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et c'est exactement la même chose...

**Pierre Fauconnier** · 07/08/2017, 12h32

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.

**MarionHBS** · 07/08/2017, 13h54

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é !

Macro VBA - Formules dynamiques [Toutes versions]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager