Gestion d'une formule SUMIFS dans EXCEL VBA

Hasco

XLDnaute Barbatruc

Repose en paix

• 15 Avril 2019

• #2

Bonjour,

Peut-être des espaces dans les noms de feuille ou classeur. Alors tester:

VB:

"=SUMIFS('[" & origine2 & "]" & origine1 & "'!C2,[" & origine2 & "]" & origine1 & "!C1,RC[3])"

En vous laissant repérer ce qui a été ajouté.
Cordialement

 

Vote positif 0 Vote négatif

LucWalraf

XLDnaute Nouveau

• 15 Avril 2019

• #3

J'ai trouvé l'ajout ! ( ' )
Je vais tester, merci.
Mais la logique voudrait de rajouter les ' dans la deuxième référence aussi, non ?
Ca donnerait :
"=SUMIFS('[" & origine2 & "]" & origine1 & "'!C2,'[" & origine2 & "]" & origine1 & "'!C1,RC[3])"

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 15 Avril 2019

• #4

re,

Mais la logique voudrait de rajouter les ' dans la deuxième référence aussi, non ?

Cliquez pour agrandir...

tout à fait!

Bonne soirée

 

Vote positif 0 Vote négatif

LucWalraf

XLDnaute Nouveau

• 15 Avril 2019

• #5

Roblochon à dit:

re,


tout à fait!

Bonne soirée

Cliquez pour agrandir...

Aille, non, malheureusement ça ne marche pas.
Cette macro me renvoie encore une erreur :

VB:

Sub Test2()

origine1 = ActiveSheet.Name
origine2 = ThisWorkbook.Name


Cells(1, 1).FormulaR1C1 = "=SUMIFS('[" & origine2 & "]" & origine1 & "!'C2,'[" & origine2 & "]" & origine1 & "!'C1,RC[3])"

End Sub

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 16 Avril 2019

• #6

Bonjour,

Il doit y avoir des crochets en trop. Mais comme il n'y a toujours pas de classeur exemple, je m'en tiendrai là, mais en vous donnant toutefois une astuce:

Tapez dans une cellule votre formule fonctionnelle. Gardez la cellule sélectionnée. Allez dans l'éditeur de Macro et dans la fenêtre Excécution (CTRL+G si elle n'est pas affichée) tapez : '?ActiveCell.Formula' ou '?ActiveCell.FormulaR1C1' puis validez. Vous aurez un modèle parfait pour votre VBA.

Cordialement

 

Vote positif 0 Vote négatif

LucWalraf

XLDnaute Nouveau

• 16 Avril 2019

• #7

Roblochon à dit:

Mais comme il n'y a toujours pas de classeur exemple, je m'en tiendrai là,

Cliquez pour agrandir...

Ah il en fallait un ? Première nouvelle ....

Mais merci pour l'astuce, je vais essayer.

Bonne journée, Luc

 

Dernière édition: 16 Avril 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Avril 2019

• #8

Bonjour LucWalraf, Roblochon,

Vraiment pas besoin de fichier, pour le 1er problème :

VB:

Sub Test()
Dim toto As String
'toto = "sdf"
toto = "3 fjfj"
Cells(1, 1).FormulaR1C1 = "=SUMIFS(C[1],C[2],""" & toto & """)"
End Sub

Pour le 2ème problème la formule du post #3 est correcte :

Code:

Sub Test2()
origine1 = ActiveSheet.Name
origine2 = ThisWorkbook.Name
'Cells(1, 1).FormulaR1C1 = "=SUMIFS(C[1],C[2],RC[3])"
'Cells(1, 1).FormulaR1C1 = "=SUMIFS('[Classeur1]Feuil1'!C2,'[Classeur1]Feuil1'!C1,RC[3])"
Cells(1, 1).FormulaR1C1 = "=SUMIFS('[" & origine2 & "]" & origine1 & "'!C2,'[" & origine2 & "]" & origine1 & "'!C1,RC[3])"
End Sub

Le guillemet anglais ' est placé avant le point d'exclamation alors qu'au post #5 il est placé après...

A+

 

Vote positif 0 Vote négatif

LucWalraf

XLDnaute Nouveau

• 16 Avril 2019

• #9

Merci job75, les deux exemples fonctionnent.

Juste une question : que représentent les ' ?
J'ai l'impression qu'ils ne sont pas toujours nécessaires - mais parfois oui .... ?

Bonne journée,

Luc

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Avril 2019

• #10

Les ' sont nécessaires comme l'a dit Roblochon quand il y a des espaces dans les noms de feuille ou de classeur.

 

Vote positif 0 Vote négatif

LucWalraf

XLDnaute Nouveau

• 16 Avril 2019

• #11

job75 à dit:

Les ' sont nécessaires comme l'a dit Roblochon quand il y a des espaces dans les noms de feuille ou de classeur.

Cliquez pour agrandir...

Ah, oui, effectivement, un fois qu'on connait la réponse on peut comprendre qu'il l'avait dit ;-)
Merci

 

Vote positif 0 Vote négatif