Discussion :

[Demang]

Bonjour à tous,
Je bute sur une formule.
Le problème est décrit dans la feuille annexe avec un exemple concret.
En résumé:

Je désirerais par programmation VBA, modifier la formule d'une cellule qui fait la somme d'autres cellules, en incorporant un nouvel item.

La cellule I22 additionne les cellules I27+I32+I37

J'insère un bloc d'analyse, de 5 lignes en ligne 27.

La formule de la cellule I22 devient automatiquement I33+I38+I43

Je voudrais y ajouter +I27TESTCA.xlsm

Et c'est là que le bas blesse. je ne trouve pas. C'est très certainement un détail mais .....

Pouvez-vous m'aider SVP, je vous en serais très reconnaissant.

[Patrice740]

Bonjour,

Où est la macro qui incorpore l'item ?

[Demang]

Bonjour,

Merci de me répondre.

Je te mets en annexe le fichier réel avec toutes les macros.

Tu pourras ainsi voir le schéma général du programme.

Une nouvelle vente se lance en cliquant sur le bouton "Nouvelle Vente" (ou dans le module MOD_Planning: sub TRAV_NouvelleVente())
toutes les macros relatives sont regroupées dans ce module

mon problème est de recréer en cellule J138 la formule qui somme les cellules J146+J152+J158...... (par pas de 6 , 12 fois (pour les 12 ventes reprises)

Je suis bloqué.

Merci pour ton temps dépensé

[Demang]

Bonsoir à tous,

j'ai trouvé.

Voici ma solution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub TRAV_Addition()
Dim iRow As Integer
'Initialise la ligne
Sheets("F_PLANING").Select
  Application.Goto Reference:="ce_ventil"
  ActiveCell.Select
  iRow = ActiveCell.Row
 
'Initialise le nombre de cycles soit le nombre de vente à calculer
Dim iFin As Integer
    iFin = Range("ce_nbrVentes").Value - 1
Dim idebut As Integer
    idebut = iRow + 3
Dim sFormule As Variant
'"=Somme(j204;J198)"
    sFormule = "=SOMME(J"
    sFormule = sFormule & idebut
Dim iSuite As Integer
    iSuite = idebut + 6
Dim iCompte As Integer
    For iCompte = 1 To iFin
        sFormule = sFormule & ";J"
        sFormule = sFormule & iSuite
        iSuite = iSuite + 6
    Next iCompte
    sFormule = sFormule & ")"
    Cells(iRow - 5, 10).FormulaLocal = sFormule
 
 
End Sub