Discussion :

[jackborogar]

Bonjour à tous et à toute,

Avant d'expliquer mon problème, je vais vous dessiner avec des mots l'architecture de mon Excel.
Il y a tout d'abord une page où l'on peut ajouter ou supprimer un tableau via des boutons. Ces tableaux représentent réellement des usines donc on appelera TableauUsine.
Une autre feuille comporte un tableau récapitulatif "TableauRecap" , de tous mes TableauxUsine.
Cependant ce système n'existait pas avant et donc il fallait tout faire à la main. Même les formules et c'est là qu'intervient la subtilité du problème.

Voici un exemple de calcul en B203 du TableauRecap :

Code :

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

=(SOMMEPROD(B9:B20;C9:C20)+SOMMEPROD(B29:B40;C29:C40)+SOMMEPROD(B50:B61;C50:C61)+SOMMEPROD(B70:B81;C70:C81)+SOMMEPROD(B90:B101;C90:C101)+SOMMEPROD(B147:B158;C147:C158)+SOMMEPROD(B166:B177;C166:C177))/SOMME(B22;B42;B63;B83;B103;B160;B179)

Or si j'ajoute un tableauUsine j'aimerai que la formule prenne en compte cette ajout dans la formule.

Alors ma question est simple, est ce possible d'automatiser la formule? Et si oui quelle direction faut-il que je prenne?

En vous remerciant d'avance,

Cordialement,

[redstoff]

Bonjour,

Peux tu mettre, stp, un exemple de ta formule avec une usine en plus ou en moins.
Ca permettrait de bien voir la difference ^^

merci

[Edit]
ok je pense a cerné ta formule^^ j'y consacre un peu de temps pour voir si j'y trouve quelque chose ^^

[jackborogar]

Bonjour à tous et à toute,

Avant d'expliquer mon problème, je vais vous dessiner avec des mots l'architecture de mon Excel.
Il y a tout d'abord une page où l'on peut ajouter ou supprimer un tableau via des boutons. Ces tableaux représentent réellement des usines donc on appelera TableauUsine.
Une autre feuille comporte un tableau récapitulatif "TableauRecap" , de tous mes TableauxUsine.
Cependant ce système n'existait pas avant et donc il fallait tout faire à la main. Même les formules et c'est là qu'intervient la subtilité du problème.

Voici un exemple de calcul en B203 du TableauRecap :

Code :

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

=(SOMMEPROD(B9:B20;C9:C20)+SOMMEPROD(B29:B40;C29:C40)+SOMMEPROD(B50:B61;C50:C61)+SOMMEPROD(B70:B81;C70:C81)+SOMMEPROD(B90:B101;C90:C101)+SOMMEPROD(B147:B158;C147:C158)+SOMMEPROD(B166:B177;C166:C177))/SOMME(B22;B42;B63;B83;B103;B160;B179)

Or si j'ajoute un tableauUsine j'aimerai que la formule prenne en compte cette ajout dans la formule.

Alors ma question est simple, est ce possible d'automatiser la formule? Et si oui quelle direction faut-il que je prenne?



Avec une Usine en plus par exemple :

Code :

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

=(SOMMEPROD(B9:B20;C9:C20)+SOMMEPROD(B29:B40;C29:C40)+SOMMEPROD(B50:B61;C50:C61)+SOMMEPROD(B70:B81;C70:C81)+SOMMEPROD(B90:B101;C90:C101)+SOMMEPROD(B147:B158;C147:C158)+SOMMEPROD(B166:B177;C166:C177)+SOMMEPROD(B185:B196;C185:C196))/SOMME(B22;B42;B63;B83;B103;B160;B179;B198)

En supprimant l'Usine 2 par exemple:

Code :

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

=(SOMMEPROD(B9:B20;C9:C20)+<s>SOMMEPROD(B29:B40;C29:C40)</s>+SOMMEPROD(B50:B61;C50:C61)+SOMMEPROD(B70:B81;C70:C81)+SOMMEPROD(B90:B101;C90:C101)+SOMMEPROD(B147:B158;C147:C158)+SOMMEPROD(B166:B177;C166:C177))/SOMME(B22;<s>B42</s>;B63;B83;B103;B160;B179)

Après on peut voir que entre les différents tableaux d'Usines il y a des espaces différents par rapport au SommeProd donc s'il faut que tout les tableaux soient espacés de la même manière il n'y a aucun soucis.

De plus l'ajout d'une Usine ce fait grâce à un copie colle d'une plage représentant mon tableau qui est sur une feuille masquer. Je sais pas si cette info est pertinente ou non.

Cordialement,

[fring]

Bonjour,

apparemment l'espace entre chaque tableau n'est pas identique, il faudrait donc à mon avis travailler avec des plages nommées pour chaque tableau "usine" et parcourir toutes les plages via une petite macro

[jfontaine]

bonjour,

En effet il est souhaitable que les tableaux et les écarts entre chacun soient identique

Le code ci dessous devrait te mettre sur la piste. il te restera a trouver la ligne du dernier tableau

Code :

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

1
2
3
4
5
6
7
8
9
Dim strFormule As String
Dim i As Long
 
For i = 10 To 100 Step 20
    If strFormule <> "" Then strFormule = strFormule & "+"
    strFormule = strFormule & "sommeprod(B" & i & ":B" & i + 18 & ";C" & i & ":C" & i + 18 & ")"
Next i
 
MsgBox "=" & strFormule

[jackborogar]

Suis-je bête, cela m'a l'air parfait comme petite macro! Pour la derniere valeur comme je sais pas jusque où ça va s'arrêter je vais le mettre jusqu'à 6000 je serais tranquille non?
Peux tu m'expliquer ton IF?