Discussion :

[Alchimiste46]

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 :

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

[Philippe Tulliez]

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)

[Alchimiste46]

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
N'y a-t-il pas un moyen simple de dire à la formule de prendre un nombre de lignes défini par une variable ?

[Philippe Tulliez]

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 :

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

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

[Menhir]

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 :

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

    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 :

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

[Alchimiste46]

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

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 :

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

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.

[Alchimiste46]

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 ^^

[Menhir]

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

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 ^^

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