Faire fonctionner une formule relative avec une variable

Bonjour à tous

Je sais, ce n'est pas la première fois que vous répondez à cette question, néanmoins, je n'est pas trouvé la solution à mon problème dans les différentes réponses que j'ai épluchées.

J'insère une formule dans une cellule mergée à la fin des colonnes des tableaux, la taille de ce merge est variable en fonction du nombre de lignes du tableau (plusieurs tableaux à la suite avec un nombre de lignes différent à chaque fois)
Ca, la 1ere partie du code le fait bien.
La ou j'y arrive pas c'est pour dire à la formule relative que j'insère qu'elle doit me prendre sur la colonne précédente un nombre de cellule qui dépend du nombre de ligne de mes tableaux.
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[0]C[-1])"
Cette formule fonctionne très bien, mais ne récupère qu'une seule cellule de la colonne précédente. ce que je voudrais faire c'est insérer une variable (nbcell) à la place de R[0] mettre quelque chose comme R[nbcell] pour que la formule récupère les données sur toutes les lignes de mes tableaux.
J'arrive pas à trouver la bonne solution, tout ce que j'essaye me renvoie une erreur 1004.
Si quelqu'un à une idée... je suis preneur ^^

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 31 32

Sub SousTotaux()   Dim i As Integer Dim lignebasse As Integer Dim lignehaute As Integer Dim nbcell As Integer Dim a As Byte   For i = [A1000].End(xlUp).Row To 1 Step -1 While Cells(i, 7) <> "Montant" a = a + 1 If Cells(i, 2) = "" Then a = 0 i = i - 1 If i = 0 Then GoTo FinBoucle lignehaute = i + 1 Wend lignebasse = lignehaute + a - 1 a = 0 nbcell = lignebasse - lignehaute + 1 Range(Cells(lignebasse, 8), Cells(lignehaute, 8)).Select With Selection .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter .MergeCells = True End With Selection.Merge ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[0]C[-1])" Selection.Font.Bold = True FinBoucle: Next i   End Sub

---

Merci à tous,
Alchimiste46

Bonjour,
La lecture de ce billet t'aidera certainement à résoudre ce problème Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)

Merci de ta réponse Philippe, mais j'avoue ne rien avoir compris à ton billet. Trop péchu pour moi qui balbutie en langage VBA !
Maintenant j'ai des noeuds dans le cerveau :lol:
N'y a-t-il pas un moyen simple de dire à la formule de prendre un nombre de lignes défini par une variable ?

Bonjour,
Le billet que je t'ai conseillé de lire est la suite d'un autre billet qui t'aurait déjà permit de voir qu'il est inutile de boucler pour insérer une formule dans une cellule en colonne ou en ligne.
Le principe est l'utilisation de la fonction Replace mais évidement en plus de lire un article il faut tester pour comprendre.

Code:

---

1 2 3 4 5 6 7

Sub t() Dim CountRow As Long Dim myFormula As String CountRow = 9 myFormula = "=SUM(B2:B<Row>)" Range("A2").Formula = Replace(myFormula, "<Row>", CountRow) End Sub

---

Je n'ai pas trop compris ce que tu veux sommer ni ce que désigne exactement l'ActiveCells mais si ce n'est pas exactement ça, tu pourras certainement adapter la solution que je te donne :

Code:

---

ActiveCell.Formula = "=SUM(G" & lignehaute & ":G" & lignebasse & ")"

---

Remarque en passant : Evite les merges, c'est une source d'embrouilles.

Autre remarque sur ton code : ta méthode de recherche semble compliquée pour faire ce que tu souhaites.
Un truc comme ça devrait être plus simple et plus rapide :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim lignebasse As Long Dim lignehaute As Long Dim Montant As Range   lignebasse = Cells(Rows.Count, 1).End(xlUp).Row Set Montant = Cells(lignebasse, 7).Find(What:="Montant", LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)   Do While Not (Montant Is Nothing Or Montant.Row > lignebasse) lignehaute = Montant.Row + 1 With Range("H" & lignebasse & ":H" & lignehaute) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = True End With   [...]   lignebasse = Montant.Row - 1 Set Montant = Cells(lignebasse, 7).Find(What:="Montant", LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Loop   End Sub

---

On doit même pouvoir remplacer le second Find par un FindNext.
Je n'ai pas testé, il y a donc peut-être du débuggage à faire.

Citation:

---

Envoyé par Philippe Tulliez

mais évidement en plus de lire un article il faut tester pour comprendre.

---

:aie: :oops: :mouarf:

Merci Philippe, mais je boucle quand même ayant plusieurs tableaux dans la même feuille !
j'ai fini par écrire ça qui marche ^^

Code:

---

1 2 3

maformule = "=SUM(G<lignehaute>:G<lignebasse>)" maformule1 = Replace(maformule, "<lignehaute>", lignehaute) ActiveCell.Formula = Replace(maformule1, "<lignebasse>", lignebasse)

---

Suffisait de comprendre l'architecture de Replace !

Encore merci pour ton aide.

Bonjour Menhir,
merci pour ta réponse, je vais tester ça aussi.
Je sais que ma façon d'écrire un code n'est pas très orthodoxe, mais vu le peu de connaissances que j'ai en VBA, je trouve que je m'en sort pas si mal ^^ 8-)

Citation:

---

Envoyé par Alchimiste46

j'ai fini par écrire ça qui marche ^^

---

C'est une peu sortir la grosse artillerie pour écraser une mouche.
Cette méthode peut être intéressante pour les formule longues avec des éléments répétitif.
Pour une formule de la taille de la tienne, ça peut se faire en une seule ligne très simplement (voir mon message précédent).

Citation:

---

Envoyé par Alchimiste46

Je sais que ma façon d'écrire un code n'est pas très orthodoxe, mais vu le peu de connaissances que j'ai en VBA, je trouve que je m'en sort pas si mal ^^ 8-)

---

Ca n'était pas une critique mais un conseil. ;)