Discussion :

[PRM06]

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 :

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

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

[ChristianBosch]

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 :

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

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

[PRM06]

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.

[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/

[PRM06]

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 !

[ChristianBosch]

Code :

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

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

[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.