CodeS-SourceS
Rechercher un code, un tuto, une réponse

Somme des cellules des feuilles ayant la meme structure

Soyez le premier à donner votre avis sur cette source.

Snippet vu 1 367 fois - Téléchargée 1 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

Commentaires

Donnez votre avis

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.