problème formule VBA

[rudaye]

Bonsoir le forum!

Voilà hier _thierry m'a donné un code qui fonctionne avec des boucles!
Qui d'ailleurs m'a bien aidé!
Maintenant je l'ai adapté à mon cas et le problème c'est la partie en italique!


Dim i As Byte
Dim M As Variant
Dim A As Variant
i = 2
For Each M In Array('Janvier', 'Fevrier', 'Mars', 'Avril')
For Each A In Array('ACCSO', 'ACCNE', 'ACCN')
i = i + 1
'Calculs des totaux pour le 400KV et autres
Cells(6, i).Formula = '=SUMPRODUCT((ColU' & M & '=7)*(ColAcc' & M & '=A)*(ColPanne' & M & '=''o''))'
Next A
Next M

le fait est qu'il ne m'insère pas la bonne formule et qu'il ne me la transcris pas comme je voudrais en formule dans ma cellule:
il me met ça :
=SOMMEPROD((ColUJanvier=7)*(ColAccJanvier=A)*(ColPanneJanvier='o'))

au lieu de ça :
=SOMMEPROD((ColUJanvier=7)*(ColAccJanvier=ACCSO)*(ColPanneJanvier='o'))


Merci d'avance

 

[rudaye]

scouzi!

c tete mieux comme ça :
C'st la partie en gras qui pose problème

Dim i As Byte
Dim M As Variant
Dim A As Variant
i = 2
For Each M In Array('Janvier', 'Fevrier', 'Mars', 'Avril')
For Each A In Array('ACCSO', 'ACCNE', 'ACCN')
i = i + 1
'Calculs des totaux pour le 400KV et autres
Cells(6, i).Formula = '=SUMPRODUCT((ColU' & M & '=7)*(ColAcc' & M & '=A)*(ColPanne' & M & '=''o''))'
Next A
Next M

 

[rudaye]

j'ai essayé:

Cells(6, i).Formula = '=SUMPRODUCT((ColU' & M & '=7)*(ColAcc' & M & '='A')*(ColPanne' & M & '=''o''))'

puis
Cells(6, i).Formula = '=SUMPRODUCT((ColU' & M & '=7)*(ColAcc' & M & '=''A'')*(ColPanne' & M & '=''o''))'

puis

Cells(6, i).Formula = '=SUMPRODUCT((ColU' & M & '=7)*(ColAcc' & M & '=' & A & ')*(ColPanne' & M & '=''o''))'

marche pas non plus! que dois je faire ?

merci

 

[rudaye]

Après quelques essais je trouve tjrs pas!!

A l'aide !!!!!!!! :woohoo:
Je pense que ça doit être bête ùais je suis fatigué!!
Pas encore parti en vacance


:side:

 

[myDearFriend!]

Bonsoir rudyperray,

Heu... vite fait en passant, je pense que ta dernière tentative est pourtant la bonne :

Cells(6, i).Formula = '=SUMPRODUCT((ColU' & M & '=7)*(ColAcc' & M & '=' & A & ')*(ColPanne' & M & '=''o''))'

Cordialement,

 

[rudaye]

Salut mydearfriend !

merci pour ta réponse

C'est ce que je pensais au début mais il m'écrit

=SOMMEPROD((ColUJanvier=7)*(ColAccJanvier=ACCSO)*(ColPanneJanvier='o'))

Alors que moi je veux :

=SOMMEPROD((ColUJanvier=7)*(ColAccJanvier='ACCSO')*(ColPanneJanvier='o'))

 

[myDearFriend!]

Re,

Dans ce cas, tu peux essayer comme ça :

Cells(6, i).Formula = '=SUMPRODUCT((ColU' & M & '=7)*(ColAcc' & M & '=''' & A & ''')*(ColPanne' & M & '=''o''))'

(j'ai rajouté de la couleur pour que tu vois qu'il y a deux groupes de 3 guillements consécutifs)

Cordialement,

 

[rudaye]

Youpi c bon!!

Merci myDearFriend!

Je pensais avoir tout essayé jusqu'a 10 groupes de guillements !!


Nan mais j'avais pas essayé 3groupes de guillements!

cool

merci à +

bonne nuit