Somme des cellules des feuilles ayant la meme structure

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 943 fois - Téléchargée 10 fois

Contenu du snippet

Voici un code que j'ai elaboré pour faire le cumul dans une cellule à partir de plusieurs
feuilles d'un classeur ayants la meme structure.
C'est totalement automatisé , et gère un nombre infini de feuilles.
  • SYN : est la feuille de synthèse ... et Menu est la feuille principale de mon classeur.

Sheets("SYN").Range("B1:B10").Cells.Clear
Dim i As Integer
Dim j As Integer
 For j = 1 To Sheets("SYN").Range("B1:B10").Cells.Count
 
   For i = 1 To Worksheets.Count
       If Worksheets(i).Name <> "SYN" And Worksheets(i).Name <> "Menu" Then
   
       Sheets("SYN").Cells(j, 2).Value = Sheets("SYN").Cells(j, 2).Value + Worksheets(i).Cells(j, 2).Value
       
   End If
   Next
 Next


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ICI

Merci d'y penser dans tes prochains messages.

A voir également

Ajouter un commentaire

Commentaire

vb95
Messages postés
1946
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 octobre 2019
68 -
Bonjour
Avec les balises de code ce serait mieux présenté : http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Penses-y pour tes prochains codes
Merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.