Discussion :

[Godzestla]

Bonsoir à tous,

est-il possible d'interpréter une formule excel générée par VBA et de récuprer son contenu sans passer par une cellule (histoire d'accéler le code)

Exemple en passant par une cellule:

Code :

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

1
2
3
4
5
6
7
           'Arg SUMIF Konten-Month : ex : 6290920-11
           Qry_arg = Trim(Sheet_id) + "-" + Month_id
           Cell_ref = "=SUMIF([KSTXXX.xls]Pivot_Month!$H$5:$H$1851;" & Qry_arg & ";[KSTXXX.xls]Pivot_Month!$D$5:$D$1851)"
           Cells(Range(Range_id).Row, 16 + I).Formula = Cell_ref
           'Summarize
           Facts(Month_id) = Facts(Month_id) + Cells(Range(Range_id).Row, 16 + I)

J'ai essayé avec Application.Evaluate, mais cela ne fonctionne pas.

D'avance merci.

[tirex28]

Bonsoir,

J'ai essayé avec Application.Evaluate, mais cela ne fonctionne pas.

C'est pourtant prévu pour: en A1:A6 des lettres, en B1:B6 des nombres:

Code :

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

Application.Evaluate("SUMIF(Feuil1!A1:B6,""a"",Feuil1!B1:B6)")

Renvoie la somme des nombres associés à la lettre 'a'.

En précisant le nom du fichier:

Code :

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

Application.Evaluate("SUMIF([NomFichier.xls]Feuil1!A1:B6,""a"",[NomFichier.xls]Feuil1!B1:B6)")

Et si le nom du fichier comprend des espaces:

Code :

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

Application.Evaluate("SUMIF('[Nom Fichier.xls]Feuil1'!A1:B6,""a"",'[Nom Fichier.xls]Feuil1'!B1:B6)")

Bonne chance,

Tirex28/

[Godzestla]

Merci Tirex,
j'ai détecté comme toi que le problème vient des doubles paires de quotes autour de l'argument qui me manquent a, mais je ne parviens pas à les injecter par le code autour de ma variable a.

Tu n'as pas un exemple ?

merci.

[tirex28]

Re,

En reprenant la même plage exemple:

Code :

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

1
2
3
4
Dim variable As String
variable = "a"
 
MsgBox Application.Evaluate("SUMIF(Feuil1!A1:B6,""" & variable & """,Feuil1!B1:B6)")

[EDIT] Reflexion faite, l'emploi d'Evaluate n'est pas impératif:

Code :

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

1
2
3
Dim variable As String
variable = "a"
MsgBox Application.SumIf(Range("A1:B6"), variable, Range("B1:B6"))

Cordialement,

Tirex28/

[Godzestla]

Encore merci.

cela marche comme je le souhaite.

Maintenant je souhaite tester si Evaluate ramène une erreur, si possible sans gestion d'erreur ( ucfoutu) car soit je prends le résultat de l'evaluate, soit je prends 0 si erreur.
(pour la petite Histoire le SUMIF de ma demande initiale consomme beaucoup de ressources et je pense qu'avec VLOOKUP je vais gagner en performances vu que je ne doit récupérer que 1 valeur (ou rien) sur un tableau trié)

Voici un exemple de code :

Code :

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

1
2
3
4
 
    Dim resu As Variant
    resu = Evaluate("VLOOKUP(""6290920-0"",[KSTXXX.xls]Pivot_Month!$H$5:$I$1851,2,FALSE)")
    MsgBox resu

Je n'arrive pas à tester si Resu est une erreur. Ce code plante sur le MSGBOX si l'evaluate de la fonction VLOOKUP est #N/A.

Par debug, resu vaut Error 2042.
Si le VLookup fonctionne, pas de problème.

Merci d'avance à tous.

[tirex28]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Dim resu As Variant
resu = Evaluate("VLOOKUP(""6290920-0"",[KSTXXX.xls]Pivot_Month!$H$5:$I$1851,2,FALSE)")
If IsError(resu) Then
    'Code
Else
    MsgBox resu
End If

Cordialement,

Tirex28/

[Godzestla]

Bien sûr.

Suis-bête d'être passé à côté comme cela.
J'ai essaye ISERR, ISNA....

Super merci beaucoup.