Sommes de cellules sur plusieurs feuilles

[Tahos]

Bonjour,
J'ai un classeur comportant beaucoup de feuilles et je voudrais effectuer des sommes sur la même cellule de toutes les feuilles et j'ai trouvé en cherchant sur les forums cette formule : "=SOMME(Feuil1:Feuil25!A2) "...... c'est très bien mais dans mon cas et pour des raisons d'organisation, les feuilles ne s'appellent pas "feuil ..."... la seule solution que j'ai trouvé est de sélectionner les cellules des feuilles une par une mais ça va me prendre des heures... bref aucun intérêt de le faire sur excel... une feuille, une calculatrice et un stylo suffiraient... je suppose que des macros m'aideraient mais je n'y connaît rien. Quelqu'un aurait une solution pour moi...

Merci , bonne journée

 

[JNP]

Re : Sommes de cellules sur plusieurs feuilles

Bonjour Tahos 🙂,
Si tu n'est pas spécialiste en VBA et sans fichier d'exemple (sans données personnelles), ça ne va pas être simple... Mais on va essayer 😛
La problèmatique commence par savoir si toutes tes feuilles doivent être calculées ou non... La base de la macro est de vérifier toutes les feuilles de ton classeur et d'additionner au fur et à mesure...
Essaie quelque chose du type :

Sub AdditionCelluleA2()
Dim WS As Worksheet [COLOR=seagreen]' Déclare une variable feuille[/COLOR]
Dim TotalA2 as Double [COLOR=seagreen]' Déclare la variable qui va servir à additionner[/COLOR]
For Each WS In ThisWorkbook.Worksheets [COLOR=seagreen]' [/COLOR][COLOR=seagreen]Teste toute les feuilles du classeur[/COLOR]
If WS.name <> "Total" then [COLOR=seagreen]' Vérifie que ce n'est pas la feuille sur laquelle le résultat doit être noté[/COLOR]
TotalA2 = TotalA2 + WS.Cells(2, 1) [COLOR=seagreen]' Additionne la valeur de la cellule A2[/COLOR]
End If
Next
Sheets("Total").Cells(2, 1) = TotalA2 [COLOR=seagreen]' Copie le résultat dans la cellule A2 de la feuille Total[/COLOR]
End Sub

J'espère que ça te conviendra 😎

 

[abcd]

Re : Sommes de cellules sur plusieurs feuilles

Bonjour,

Il suffit de remplacer Feuil1:Feuil25! par les noms des onglets de la première et dernière feuille, par exemple : =SOMME(Durand:Gertrude!A2)

abcd

 

[Tahos]

Re : Sommes de cellules sur plusieurs feuilles

merci pour vos reponses,

en effet, la solution " =SOMME(Durand:Gertrude!A2) " est beaucoup plus simple pour moi, il a juste fallu que je fasse une recherche et que j'ajoute des '

donc : " =SOMME('Durand:Gertrude'!A2)

Ne me demandez pas pourquoi il faut mettre ça ;-)

Merci encore et bonne journée

 

[abcd]

Re : Sommes de cellules sur plusieurs feuilles

Ne serait-ce pas parce que tu as des espaces dans les noms de tes onglets ?

abcd

 

[JNP]

Re : Sommes de cellules sur plusieurs feuilles

Re 🙂,
Pour les cotes, cela vient du fait que sans cotes, tu appelles le "CodeName" de la feuille (modifiable dans l'explorateur VBA), alors qu'avec les cotes, tu appelles le "Name" de la feuille (Nom qui a été modifié dans l'onglet). D'ailleurs, vu que tu n'as pas modifié les "CodeName", la formule de départ était bonne... car les feuilles s'appelait toujours Feuil1, etc. Je n'y ai pas pensé au départ 😱. Pour info, tu peux aussi utiliser des cotes doubles ("), ce qui me parait (ça n'engage que moi...) plus clair dans les formules, la cote simple(') étant plutôt utilisée pour ignorer quelque chose ('1920 pour obliger la cellule à considérer 1920 comme du texte, ou comme dans mon code de tout à l'heure, pour faire des commentaires qui éclaircissent le code)
Bon dimanche 😎