Formule avec VBA

Bonjour à tous et à toutes,

J'essaie d'automatiser au maximum ma formule SUMIFS réalisée sous VBA.

Mais quand j'essaie de la lancer, elle me génère une erreur.

Le problème venant de co qui devrait me retourner F mais or co intégré dans ma formule ne me retourne rien. C'est pour ça que ma formule ne fonctionne pas.

Quelqu'un serait-il comment faire pour régler ce problèle?

Merci beaucoup,

Marion

Sub Expand2()
Dim i As Integer, j As Integer
Sheets("Time series check ").Select
i = 8
j = 6
co = Cells(1, j)
While Cells(i, 5) <> ""
 Cells(i, j).Formula = "IF(SUMIFS('Database old data'!" & co & "$2:" &  co & "$1786,'Database old data'!$E$2:$E$1786,'Time series check '!$C$8,'Database old data'!$C$2:$C$1786,'Time series check '!$C$9,'Database old data'!$A$2:$A$1786,'Time series check '!$E" & i & ")=0,"""",SUMIFS('Database old data'!F$2:F$1786,'Database old data'!$E$2:$E$1786,'Time series check '!$C$8,'Database old data'!$C$2:$C$1786,'Time series check '!$C$9,'Database old data'!$A$2:$A$1786,'Time series check '!$E" & i & "))"
 i = i + 1
Wend
 End Sub

Bonjour

Votre variable CO n'est pas déclarée...

A coté de j as integer, mettez --> co as integer

Si ok et terminé, merci de cliquer sur le V vert à coté du bouton EDITER pour cloturer le fil lors de votre réponse

Cordialement

Dan a écrit :

Bonjour

Votre variable CO n'est pas déclarée...

A coté de j as integer, mettez --> co as integer

Si ok et terminé, merci de cliquer sur le V vert à coté du bouton EDITER pour cloturer le fil lors de votre réponse

Cordialement

Merci beaucoup

Rechercher des sujets similaires à "formule vba"