Appeler toutes les cellules A1 des feuilles commencant par MO - XXX

[Benoit DESCOURS]

Bonjour,

Je souhaiterais additionner toutes les cellules A1 des feuilles de mon classeur, feuilles dont le nom commence toujours par MO -

Est-ce possible sans VBA ?

Merci d'avance.

 

[Staple1600]

Re

Ma solution ne faisait que répondre littéralement à la question du message#1:
"Faire la somme de toutes les cellules A1 des onglets dont le noms commencent par MO -"

Or désormais il ne s'agit plus du tout de cela!

A quoi bon poser une question initiale qui change totalement en cours de route...

Du coup, j'ai perdu du temps à répondre à une question qui n'existe plus.

Heureusement que je serai payé tout pareil!

 

[Benoit DESCOURS]

Re,

Je pensais que poser un problème de forme progressive peut m'aider à comprendre les étapes de mise en place...
Mais c'est vrai que selon ce a quoi je veux arriver n'est pas forcément gérer de la même manière...

Désolé de t'avoir importuné.

 

[Victor21]

Re,

Mettez-y un peu du vôtre !

 

[Benoit DESCOURS]

Victor,

Merci de ta persévérance.
Mais je n'ai pas des résultats cohérents.

Il faut que lorsque j'alimente la feuille 2018-1 avec mes heures de la semaine S1 de mes salariés A et B pour les chantiers 1, 2 ou 3.
Et puis le S2 et S3...

De même pour la feuille 2018-2 et la feuille 2018-3


J'ai mes des formules qui vont piocher de feuilles en feuilles pour te montrer.

En gros, je cumule les cases bleues, semaine par semaine qui correspondent à mon chantier 2018-1
De même avec les cases jaunes (2018-02) et les cases vertes (2018-3).

 

[Staple1600]

Re

Tu ne m'as pas importuné.
Tu as posé une question qui ne décrit pas la réalité de la problématique rencontrée.
Et ce faisant, tu n'as pas remarqué que mon message précédent était écrit au second degré.

En attendant ma solution à la question 1 fonctionne et n'est absolument pas difficile à mettre en oeuvre.
La preuve
Lance cette macro une fois dans un classeur vierge avec une seule feuille

Sub MarcelProust_Reboot()
Dim i
For i = 1 To 3
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "MO -" & i
ActiveSheet.[A1] = i
Next
ActiveWorkbook.Names.Add Name:="nf", RefersToR1C1:= _
        "=MID(GET.WORKBOOK(1),FIND(""]"",GET.WORKBOOK(1))+1,99)&INDIRECT(""iv65000"")"
Sheets(1).[B1].FormulaArray = _
        "=SUM(IF(LEFT(nf,3)=""MO "",N(INDIRECT(""'""&nf&""'!A1""))))"
 Sheets(1).[B1].Select
End Sub

J'obtiens bien sur la Feuille 1 la somme des cellules A1 des onglets dont le nom commence par MO -
Et c'est ce que tu demandais dans le message 1
Maintenant si ce n'est pas ce que tu souhaitais, bah fallait pas le demander dans le message#1

@Victor21
[pj]
Tu l'as eu où ton joli tiroir dans l'autre fil, l'autre jour ?
[/pj]

 

[Benoit DESCOURS]

Staple1600,

Merci. Effectivement, tu additionnes bien toutes les feuilles MO_.
Mais du coup, l'adapter à mon fichier me semble très complexe, avec mes conditions (selon les N° de chantier) et avec mes 3 chantiers possible par jour.
Cf mon fichiers Excel en ballade...

 

[Staple1600]

Re

@Benoit DESCOURS
Tu as vu mon avatar?
Là je suis en mode pyschorigide.
J'utilise uniquement mon cervelet pour répondre à la question 1 telle qu'elle a été posée

Et si j'étais moi, confronté à une problématique similaire à la tienne, je réagencerai mes données de manière à pouvoir les exploiter avec un TCD.

NB: Tu as vraiment testé mon code?
Et tu as donc été voir dans le gestionnaire de noms ce qu'on doit y trouver ?

 

[Benoit DESCOURS]

Re,

Tu as vu mon avatar. Je suis très interrogatif...

Je ne maîtrise pas les code VBA, macros... Je ne sais pas comment appeler ça.

C'est pour ça que la méthode de Victor, par des formules de calcul, sera plus à ma portée.

Le terme de psychorigide désigne tout un chacun dès lors qu'il fait preuve d'obstination, d'autorité, de perfectionnisme.

Et je ne pourrais mettre en place quoi que ce soit sans que mon cher interlocuteur se mette à mon niveau.

 

[Victor21]

Re,

Reprenons depuis le début :

Je souhaiterais additionner toutes les cellules A1 des feuilles de mon classeur

Que font mes formules?

Mais je n'ai pas des résultats cohérents.

Il faut que lorsque j'alimente la feuille 2018-1 avec mes heures de la semaine S1 de mes salariés A et B pour les chantiers 1, 2 ou 3.
Et puis le S2 et S3...

De même pour la feuille 2018-2 et la feuille 2018-3


J'ai mes des formules qui vont piocher de feuilles en feuilles pour te montrer.

En gros, je cumule les cases bleues, semaine par semaine qui correspondent à mon chantier 2018-1
De même avec les cases jaunes (2018-02) et les cases vertes (2018-3).

Comme le suggère Staple si judicieusement (mais c'est un pléonasme) réorganisez vos données.

Une démarche logique serait d'abord de se demander ce qu'on veut obtenir, puis ensuite d'organiser les données, pas l'inverse.

 

[Staple1600]

Re

La macro que j'ai posté était purement illustrative
(pour t'éviter de devoir créer toi-même le nom nf)

Et là encore mon précédent message est censé être en mode humoristique
(j'ai pourtant mis des emoticones)

J'en déduis donc que tu n'as pas pu tester ma macro alors ?

Et qu'en est-il de ma suggestion du TCD ?
(Tableau Croisé Dynamique)

NB: Pour lancer une macro, il suffit de ne pas suivre l'adage qui figure dans la signature de Victor21
Let's be curious

PS: avatar= image qui se trouve au dessus de mon pseudo

 

[Benoit DESCOURS]

Re Victor,

Je suis arrivé à faire un truc pas maL... pour mon niveau délétaire.
Je fais :
=SI('Salarié A'!F2='2018-1'!A1;'Salarié A'!F3;0)+SI('Salarié A'!F6='2018-1'!A1;'Salarié A'!F7;0)+SI('Salarié A'!F10='2018-1'!A1;'Salarié A'!F11;0)

Mais si au lieu de salarié A, je peux utiliser MO_1:MO_2, alors ce serait royal.
Mais pour le coup, je n'y arrive pas.

 

[Staple1600]

Re

@Benoit DESCOURS
Allo la Terre?
Pas vu ou lu le message#25 ?
Ni le message#24 apparemment?

 

[Benoit DESCOURS]

Re,

Vous restez donc sur ma question initiale.
Faut-il que je rouvre un fil avec la bonne question ?

 

[Staple1600]

Re

@Benoit DESCOURS
Tu m'as demandé comment on lance une macro?
Je t'ai répondu dans le message#25 (il y a un lien - tu as cliqué dessus?)
Je ne sais toujours si tu as pu faire le test sur un classeur vierge pour comprendre le fonctionnement des formules et de la formule nommée nf
(C'était à cela que devait servir ma macro)

Je t'ai suggéré l'emploi d'un TCD.
J'attends toujours un commentaire de ta part à ce sujet.

Pour le message#24, je t'informais simplement que tu n'as pas non plus commenté les suggestions faites par Victor21

 

[Benoit DESCOURS]

Re,

Oui, j'ai appliqué ce que tu m'as demandé. Dans le gestionnaire de nom nf sert à lire le classeur.
Et ça sert à sélectionner les feuilles MO -
J'ai juste ?

Après ta formule qui additionne en cellule B1 =SOMME(SI(GAUCHE(nf;3)="MO ";N(INDIRECT("'"&nf&"'!A1"))))
Additionne les cellules A1 de toutes les feuilles MO -
J'ai encore juste ?

Alors, j'ai compris dans les grandes lignes. Mais comment alors modifier cette formule avec mes conditions de sélection avant addition.
On additionne les heures du chantier 1, 2 et 3 seulement si on a travaillé sur le chantier dont le code est 2018-1