boucle pour addition en sautant des lignes

[ngs]

Bonjour le forum,

mon fichier excel contient 2 onglets " base" et " resultat"

1/ à partir du 1 er onglet ("base"), je souhaiterais avoir une macro en boucle (ou itération) qui m'additionne les valeurs de chaque colonne. Il y a une condition a intégrer : additionner les lignes avec un saut de 3.

Vous trouverez le fichier en pièce jointe .
par exemple , l'addition du produit "pdt1" prendra les valeurs 1, 1, 1.... Celle du produit "pdt2" prendra les valeurs 4, 4, 4 ...jusqu'à la dernière ligne (65535) et ainsi de suite pour les autres produits.

les résultats doivent s'afficher dans l'onglet "resultat"

2/ à partir du 1 er onglet ("base"), une autre boucle pour cette fois-ci faire une addition par nom.
exemple, le nom "soc" prendra 1, 4, 7 .... et le nom "Etab" prendra 2, 5, 8....

Les résultats doivent également apparaître dans l'onglet "resultat".


J'ai écris un bout de code mais je bloque

Par avance, merci de votre aide.

ngs

 

[Dranreb]

Re : boucle pour addition en sautant des lignes

Bonjour
Pourquoi une macro pour calculer ça ?
En D3 dans resultat:

=SOMME.SI(base!$B$2:$B$28;$C3;base!C$2:C$28)

Propager partout.
À +

 

[ngs]

Re : boucle pour addition en sautant des lignes

Bonjour Dranreb,

Je souhaite faire une macro car le calcul se fera de la ligne 2 jusqu'à la ligne 65536 avec plusieurs colonnes.
en plus, l'addition se fait avec une condition "saut de ligne par 3"etc... alors si ce n'est pas automatique ce serait un peu long de le faire à la main.
Merci.

 

[Dranreb]

Re : boucle pour addition en sautant des lignes

=SOMME.SI(base!$B$2:$B$65536;$C3;base!C$2:C$65536)

Donne le même résultat.
Faire une recopie incrémentée vers la droite et vers le bas sur les 3 lignes.
À +

 

[ngs]

Re : boucle pour addition en sautant des lignes

Dranreb,

merci pour ta reponse. Je l'avais déjà utilisé. Le problème c'est que cette macro va récupérer des données qui changent et donc sont mises à jour.
Avec excel, cette formule ne prends pas en compte les modifications, voici ce qui s'affichent quand les données changent
#REF! . avec VBA, ce problème ne se posera plus.

ngs

 

[Dranreb]

Re : boucle pour addition en sautant des lignes

Il y a encore moyen de l'écrire comme ça si les lignes ne sont supprimées qu'à partir de la 2 avant de mettre le nouvelles:

=SOMME.SI(DECALER(base!$B$1;1;;65535);$C3;DECALER(base!C$1;1;;65535))

 

[R@chid]

Re : boucle pour addition en sautant des lignes

Salut @ tous,
par formule si tu permets en D3 :

=SOMME(SI(MOD(LIGNE(INDIRECT("1:"&LIGNES(base!C$2:C$28)))+3-LIGNES($1:1);3)=0;base!C$2:C$28))

@ valider par Ctrl+Maj+Entree
@ tirer vers le bas et ers la droite
Amicalement

 

[job75]

Re : boucle pour addition en sautant des lignes

Bonjour ngs, salut Bernard,

Je confirme ce qu'a dit Bernard : une macro ne fera rien de plus que la fonction SOMME.SI.

On peut d'ailleurs l'écrire plus simplement :

=SOMME.SI(base!$B:$B;$C3;base!C:C)

S'il y a des #REF! c'est parce que des lignes ou colonnes sont supprimées en feuille base.

Alors utilisez INDIRECT. Formule en D3 :

=SOMME.SI(INDIRECT("base!B:B");$C3;DECALER(INDIRECT("base!B:B");;COLONNES($D:D)))

Fichier joint.

A+

 

[ngs]

Re : boucle pour addition en sautant des lignes

re , salut Job 75,

merci pour vos réponse.
la formule suivante marche avec les modifs.

SOMME.SI(INDIRECT("base!B:B");$C3;DECALER(INDIRECT("base!B:B");;COLONNES($D)))

A+,
ngs

 

[néné06]

Re : boucle pour addition en sautant des lignes

Bonsoir à tous

Un début en VBA si cela convient ?

A+

 

[R@chid]

Re : boucle pour addition en sautant des lignes

Salut @ tous,
@ ngs : et la formule en post #7 qui n'a pas besoin de criteres???
Amicalement

 

[ngs]

Re : boucle pour addition en sautant des lignes

Rachid _0661 merci.
néné06, je te le code et vous reviens.

 

[ngs]

Re : boucle pour addition en sautant des lignes

néné06, ca fonctionne sur le fichier que vous avez envoyé mais quand je l'adapte à mon fichier, voici ce qui s'affiche:

erreur d'éxécution 13
incompatibilité de type

et surligne en jaune so = so + Cells(i + 1, y)

 

[néné06]

Re : boucle pour addition en sautant des lignes

Re

Pour bien cerner le problème, il faudrait voir:
Où se situe le sub
Les vaviables i ou y ne tombes t' elles pas à zéro ?
Faire un suivie au pas à pas pour regarder la valeur succéssive de i et k.
Le mieux serait une PJ avec les différentes feuilles et modules.

A+

 

[job75]

Re : boucle pour addition en sautant des lignes

Bonsoir néné06,

so = so + Cells(i + 1, y) beugue si la cellule Cells(i + 1, y) contient du texte.

A+