R
rudaye
Guest
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
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