Sommproduct dans vba

Version imprimable

Bonjour,

Je suis un novice de vba et j'essaie de me débrouiller du mieux que je peux !
J'essaie de coder sur vba la sommprod(plage1:plage2)/somme(plage2).
je me suis inspiré du code que génère l'enregistreur mais quand je remplace ça bloque,
en effet les plages je ne l'ai connais pas à l'avance, j'ai une boucle qui me permet de les retrouver, la boucle for va chercher le bon i, et ensuite je fais sommeprod sur les plages relatives aux i, si quelqu'un peut me dire ou ça bloque, peut être que la syntaxe n'est pas bonne ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub MACRO() Dim i As Integer For i = 1 To 100 If Range("c" & i) = "ZZ000010" Then Range("E1").Select 'ActiveCell.FormulaR1C1 = _ '"=SUMPRODUCT(R[i-1]C:R[i-5]C,'Période 1'!R[i-1]C[12]:R[i-5]C[12])/SUM('Période 1'!R[i-1]C[12]:R[i-5]C[12])" Exit For End If Next End sub

Salut,

Pourquoi veux tu utiliser une macro ?

En suite ça risque pas de fonctionner car premièrement tu as croisé le If avec le for, en suite car tu a mis dans une chaine de caractère ta variable donc elle ne va sera pas considéré comme variable mais comme string.

Il faudrait plutôt faire comme ceci.
Code:

1 2 3 4 5 6 7 8 9 10 Sub MACRO() Dim i As Integer For i = 1 To 100 If Range("c" & i) = "ZZ000010" Then Range("e" & i).FormulaR1C1 ="=SUMPRODUCT(R[" & i - 1 & "]C:R[" & i - 5 & "]C,'Période 1'!R[" & i - 1 & "]C[12]:R[" & i - 5 & "]C[12])/SUM('Période 1'!R[" & i - 1 & "]C[12]:R[" & i - 5 & "]C[12])" End If Next End Sub
Mais ce qui me dérange c'est que tu fais exactement comme avec les formules déjà présentes dans excel... C'est comme cueillir un pissenlit avec un bulldozer

A+

CB

01/04/2021, 15h46
PRM06

Citation:

Envoyé par ChristianBosch

Salut,

Pourquoi veux tu utiliser une macro ?

J'ai une calculette en amont dans laquelle il y a un bouton qui permet d'ouvrir des fichiers excel normés, effectue la macro que j'essaie de faire et ensuite copie le résultat pour le mettre la mettre dans une cellule spécifique.
01/04/2021, 15h49
ChristianBosch

Je t'ai répondu, par contre je pense qu'il serait mieux de préciser les onglets de travail devant les range, quels sont les codename de tes feuilles ?

Regarde ça pour me les donner

https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/
01/04/2021, 15h59
PRM06

Citation:

Envoyé par ChristianBosch

Je t'ai répondu, par contre je pense qu'il serait mieux de préciser les onglets de travail devant les range, quels sont les codename de tes feuilles ?

Regarde ça pour me les donner

https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/

Salut, merci pour ta réponse
voici le codename des feuilles

Feuille1 (Période 1)
Feuille3 (Briques Admin)

c'est sur la feuille "Briques Admin" que j'effectue la sommeprod en prenant une plage de la même page et une autre plage de la feuille Période 1 !

Code:

1
2
3
4
5
6
7
8
9
10
Sub MACRO()
Dim i As Integer
 
For i = 1 To 100
If feuil1.Range("c" & i) = "ZZ000010" Then
feuil1.Range("e" & i).FormulaR1C1 ="=SUMPRODUCT(R[" & i - 1 & "]C:R[" & i - 5 & "]C,'Période 1'!R[" & i - 1 & "]C[12]:R[" & i - 5 & "]C[12])/SUM('Période 1'!R[" & i - 1 & "]C[12]:R[" & i - 5 & "]C[12])"
End If
Next
 
End Sub

Essaye ca

02/04/2021, 10h10
Pierre Fauconnier

Salut.

Pourrais-tu expliquer ce que tu souhaites réaliser? Nous pourrons alors mieux t'aiguiller vers une bonne méthode. N'hésite pas à agrémenter ton message d'une copie d'écran, par exemple.

Normalement, SOMMEPROD s'applique sur des tableaux structurés, ce qui va soulager ton code de la détermination des plages concernées et te permettre de les définir de façon plus concise en VBA, notamment en te permettant de ne pas te préoccuper des feuilles sur lesquelles se trouvent tes tableaux.