Discussion :

[johnmakina]

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

[alsimbad]

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

Code :

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

=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

[johnmakina]

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.

[alsimbad]

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 :

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

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

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

Code :

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

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

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

[johnmakina]

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

[alsimbad]

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

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

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

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)