programmation de formule excel en VBA

Version imprimable

08/07/2018, 15h00
Demang

1 pièce(s) jointe(s)

programmation de formule excel en VBA

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 +I27Pièce jointe 394829

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.
08/07/2018, 16h11
Patrice740

Bonjour,

Où est la macro qui incorpore l'item ?
08/07/2018, 17h56
Demang

1 pièce(s) jointe(s)

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é

Bonsoir à tous,

j'ai trouvé.

Voici ma solution.

Code:

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