Discussion :

[davtypo3]

Bonjour voici mon problème:

Mon code ne marche pas au niveau du range:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub PoidsNavire()
Dim Poids, Navire As Double
Dim j As Long
j = 5
 
For i = 5 To 150
        Range("AH" & i).FormulaLocal = Evaluate("=SOMMEPROD( ($H$33:$H$15051 = Range(""AG"" & j).Value )*($F$33:$F$15051=""adr"")*($E$33:$E$15051=""mp"")*($L$33:$L$15051) )")
        j = j + 1
    Next
End Sub

Dans Excel ma formule marche bien:

Code :

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

'=SOMMEPROD(($H$33:$H$15051 = AG5)*($F$33:$F$15051="adr")*($E$33:$E$15051="mp")*($L$33:$L$15051))

Mais dans VBA au niveau de:

Code :

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

Range(""AG"" & j).Value

Erreur: #NOM? sans .Value avec j'ai un #VALEUR
ça crash, c'est un problème de conception, je n'arrive pas à mettre la main sur le problème, comment en VBA récupérer le range...

[Marc-L]

Bonjour, bonjour,

Evaluate sert à calculer, ce n'est pas une formule attendue par FormulaLocal, l'enlever donc …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[davtypo3]

Ok je comprends, mais cela ne fonctionne toujours pas du côté de l'évaluation du i + AG :

Code :

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

Range("AH" & i).FormulaLocal = "=SOMMEPROD( ($H$33:$H$15051 = ""AG & i"" )*($F$33:$F$15051=""adr"")*($E$33:$E$15051=""mp"")*($L$33:$L$15051) )"

Comment faire pour qu'Excel/VBA face un Eval de ""AG & i""

Merci pour votre aide!

[davtypo3]

Argh mauvaise concaténation....Désolé ça marche