[VBA-E] : somme de deux lignes ayant des positions variables

Bonjour à toutes et à tous,

Je débute dans VBA pour faire quelques petites macros pour excel et j'ai besoin de vos lumières.

Je joins un fichier illustrant mon problème, voici ce que je cherche à faire :

Les deux lignes "TOTAL PF" et "TOTAL SF" ne sont pas toujours positionnées sur les lignes de l'exemple et je voudrais coder un "TOTAL PF & SF" deux lignes en dessous des tableaux me faisant la somme des deux lignes précédentes.

J'espère que j'ai été assez clair.

Merci beaucoup et bonne fin de journée

Mathieu

bonjour, pas besoin de te lancer dans le VBA pour autant
tu places

Code:

---

=SOMME(RECHERCHEV("TOTAL PF";$C$1:$R$33;4;0);RECHERCHEV("TOTAL SF";$C$1:$R$33;4;0))

---

sur la premiere case de ton tableau et tu incrementes vers la droite
bonne journée

Merci Alsimbad pour ta réponse mais en fait cette étape n'est qu'une partie d'une macro. Il faut donc que je la code en vba.

Merci d'avance et bonne journée.

ok alors
le probleme avec ton fichier c'est que tu laisse des lignes vides. il existe plusiers méthode pour trouver la derniere ligne d'un tableau, mais je pense qu'elle s'arrete toute a la derniere ligne pleine du tableau et ne vont pas voir plus loin. la plus simple si tu es débutant est d'utiliser

Code:

---

u = cells(1,1).currentregion.rows.count

---

qui te donne le nombre de ligne et ensuite tu joue avec

Code:

---

cells(6,u+2).value = ....

---

si tu supprime tes lignes vides, tu devrais pouvoir t'en tirer avec ça
bon courage

Bonjour,

Merci pour tes infos !
En fait, pour me positionner où il faut, j'arrive à m'en sortir et la formule avec les recherchev marche très bien. Mon problème c'est pour la traduire en vba.

J'ai essayé avec worksheetfunction mais elle est un peu compliquée et je n'arrive pas.
J'ai aussi essayé avec formulalocal mais là ce sont les guillemets de "TOTAL PF" et "TOTAL SF" qui bloquent.

SOMME(RECHERCHEV("TOTAL PF";$C$1:$R$33;4;0);RECHERCHEV("TOTAL SF";$C$1:$R$33;4;0))

J'ai bien trouvé une solution, j'ai préparé la ligne avec les commandes dans une autre feuille et je la copie là où j'en ai besoin. Ca marche mais ce n'est pas très joli et j'aimerais bien savoir comment le faire proprement, histoire de d'en apprendre un peu plus.

Donc si ça s'explique, je suis intéressé pour avoir la méthode mais si c'est vraiment compliqué, ce n'est pas grave vu que là ça tourne quand même.

En tout ca, je te remercie pour ton aide !!

Bonne journée

si tu arrive a te positionner, fais une recherche plutot qu'une formule

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

for each c in range(" * : * ") if c = "TOTAL PF" then dim arrayA() for i = 1 to 12 arrayA(i) = c.offset(i,0) next i end if next for each d in range(" * : *" ) if d = "TOTAL SF" then dim arrayB() for i = 1 to 12 arrayB(i) = c.offset(i,0) next i end if next d

---

et quand tu es positionné sur la premiere case de ta ligne de résultat

Code:

---

1 2 3

for i = 1 to 12 cells("départ").offset(i,0) = arrayA(i)+arrayB(i) next i

---

de la sorte, pas besoin de rentrer ta formule ( le code est un peu approximatif, mais l'essentiel y est)

Bonjour,

Merci beaucoup pour tes infos.
Je vais essayer d'intégrer ce code à ma macro.

Encore merci pour ton aide et bonne journée !

Rebonjour,

Je reviens car après plusieurs tentatives, je n'arrive pas à faire marcher ce code, il me renvoit toujours la même erreur : "l'indice n'appartient pas à la sélection" (cela intervient dès la première itération de la ligne "arrayA(i) = E.Offset(0, i + 2)")

Voici le code que j'ai utilisé :

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 CalculTotauxPropre() Dim C As Variant Dim E As Variant Dim F As Variant Dim NbLignes As Integer   Worksheets("0C1").Activate   NbLignes = ActiveSheet.UsedRange.Rows.Count   For Each E In ActiveSheet.Range("C2:C" & NbLignes) If E = "TOTAL PF" Then Dim arrayA() For i = 1 To 13 arrayA(i) = E.Offset(0, i + 2) Next i End If Next For Each F In ActiveSheet.Range("C2:C" & NbLignes) If F = "TOTAL SF" Then Dim arrayB() For i = 1 To 13 arrayB(i) = F.Offset(0, i + 2) Next i End If Next   For i = 1 To 13 ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count, 5).Offset(0, i) = arrayA(i) + arrayB(i) Next i   End Sub

---

Encore merci et bonne journée !

A nouveau de retour.
J'ai réussi à trouver une solution à mon problème en bidouillant un peu. Ca marche, par contre, je ne comprends pas pourquoi.

J'ai juste rajouté respectivement

Code:

---

ReDim Preserve arrayA(i) et ReDim Preserve arrayB(i)

---

avant les lignes

Code:

---

arrayA(i) = E.Offset(0, i + 2) et arrayB(i) = E.Offset(0, i + 2)

---

Donc si on pouvait m'expliquer un petit peu le pourquoi du comment au niveau théorique, je me coucherai moins bete.

Merci beaucoup