Affichage d'une somme dans une cellule de la page d'acceuil

[PGPC]

Bonjour ou bonsoir le Forum

Je vais vous exposer mon problème mais je pense que le fichier joint sera plus edifiant

J’ai un classeur avec 37 feuilles

1 feuille ACCEUIL
(12 feuilles )Janvier_Salaison_ Décembre_ Salaison
(12 feuilles Janvier_Boissons_ Décembre_ Boissons )
(12 feuilles ) Janvier_Piéces Décembre_ Piéces

Les mois se recopient de facons automatiques tous les 1er

Je voudrai que vous m’aidiez à faire un code qui m’indique le montant total de mon stock Salaison AUJOURD’HUI dans la page d’acceuil
De mon stock boissons
De mon stock pieces

Zon avait commencé à m’aider mais il doit –etre parti en vacances ….

Sur ces indications
J’ai ecrit ceci dans le module 1

Public Function TotalMois(IndexMOis As Byte, Plage,I as Byte)

TotalMois = Evaluate("SUM(" & Sheets(IndexMOis + I).Name & "!" & Range(PLage).Address & ")")
End Function


Formules des sommes de chaque mois
G17 =totalmois(MOIS(AUJOURDHUI());"G3:G14";

Et ensuite J’ai copié en C9 =totalmois(7;"G3:G14",1
Et ensuite J’ai copié en G9 =totalmois(7;"G3:G14",1
Et ensuite J’ai copié en J9 =totalmois(7;"G3:G14",1


Pourtant il m’a bien expliqué mais que voulez vous ???

Je ne lui avais envoyé une pièce jointe q’avec les 3 (1er mois Salaison ) il n’y avait pas les feuilles boissons n’y pieces

Si vous pouviez m’aider à terminer ce serait vraiment gentil de votre part

Ce que je souhaiterais c’est que mes totaux s’affichent dans la cellule peu importe comment mai simplement

Merci pour votre aide

cordialement

Pgpc

 

[Gérard DEZAMIS]

Bonsoir , Bonjour PGPC

Sans VBA (je ne suis pas encore calé comme Ti .....) j'ai essayé de donner une solution à ce problème de bilan.
On ne sait jamais si cela peut aider ....
@+
GD

 

[Gérard DEZAMIS]

Re PGPC
1000 excuses une panne de paupière (vu l'heure) j'ai oublié le fichien en route !
@+
GD

 

[Bernard]

Bonjour PGPC, bonjour Gérard et tout le forum

Afin de transférer dans "Accueil les valeurs des stocks des différentes feuilles du mois en cours j'ai contourné la difficulté à déterminer le nom en lettre du mois en cours par select case !

La mise à jour s'effectue à l'activation de la feuille accueil.

Peut être peut-on faire autrement ?

Cordialement

Bernard

 

[PGPC]

Bonjour le forum, Gerard et Bernard

JE vous remercie tous les 2 pour votre aide .

Gerard , ton astuce avec validation est trés simple et astucieuse et je vais mettre de coté et m'en resservir bientôt , car çà ma donné des idées ...

J'ai pourtant un petit faible pour la soluce de Bernard qui elle ,a le mérite d'être rapide a mettre en place

Mon classeur est pratiquement terminé est je voudrai adapter la soluce de bernard à la disposition de mes cellules voir le nouveau fichier

Comme je ne connait rien en VBA j'ai essayé de retranscrire , mais évidemment j'ai du faire une erreur quelque part et ça ne fonctionne pas ,il faudrait que quelqu'un me redonne un petit coup de main pour modifier
Voici le er code de Bernard que vous avez sur le 1er Zip
Option Explicit
Private Sub Worksheet_Activate()
Dim Salaisons As String
Dim Boissons As String
Dim Pièces As String
Select Case Month(Date)
Case Is = 1: Range("C1") = "Janvier"
Case Is = 2: Range("C1") = "Février"
Case Is = 3: Range("C8") = "Mars"
Case Is = 4: Range("C1") = "Avril"
Case Is = 5: Range("C1") = "Mai"
Case Is = 6: Range("C1") = "Juin"
Case Is = 7: Range("C1") = "Juillet"
Case Is = 8: Range("C1") = "Août"
Case Is = 9: Range("C1") = "Septembre"
Case Is = 10: Range("C1") = "Octobre"
Case Is = 11: Range("C1") = "Novembre"
Case Is = 12: Range("C1") = "Décembre"
End Select
Salaisons = Range("C1") & "_Salaison"
Boissons = Range("C1") & "_Boissons"
Pièces = Range("C1") & "_Pièces"
Range("C2").Value = Sheets(Salaisons).Range("G17").Value
Range("C3").Value = Sheets(Boissons).Range("G17").Value
Range("C4").Value = Sheets(Pièces).Range("G17").Value
End Sub


Je vous remercie d'avoir planché sur mon fichier et je vous souhaite à tous une bonne fin de journée

 

[Bernard]

Rebonjour PGPC

Vu l'heure de son coucher, je crois que Gérard est encore dans les bras de Morphée, c'est bien les vacances hi hi
J'ai juste changé un chiffre dans la macro que tu as adapté à ta mise en forme. Tu tiens le bon bout !

Cordialement

Bernard

 

[PGPC]

Slt Bernard , Slt le Forum

TU dois avoir raison POUR Gérad , et ça ne métonne plus qu'il soit sur tous les coups , si à 1 h du matin il aide encore les xldiens à resoudre leurs problèmes .

Triste réalité , voilà pourquoi , avec le retard que j'ai , je ne serai jamais au top (LOL)

j'en reviens à mes moutons

Range("C14").Value= Sheets(Salaisons).Range("G17").Value
Range("G14").Value = Sheets(Boissons).Range("G17").Value
Range("I14").Value = Sheets(Pièces).Range("G17").Value

là c'est le fichier d'exemple tout est ok

maintenant j'ai recopié pareil dans mon classeur je peux pas le mettre en pièce jointe ,il est trop lourd
Range("C14").Value= (moi la cellule est vide)
IDEM POUR LES AUTRES G14_ I14
pourtant j'ai nommé la cellule

salaison s se trouve en B13 et le total qui doit s'afficher sur la page acceuil en C14
salaison =Acceuil!$C$14

EST-CEque quelqu'un a une idée de ce qui ne va pas ?????

merci

 

[Bernard]

Rebonjour PGPC

C'est bien l'informatique mais la rigueur est de rigueur ! Attention à la syntaxe, une simple virgule ou accent en plus ou en moins et cela ne marche plus !

Si B13 est la cellule à copier dans les feuilles du mois en cours, cela donne :

Range("C14").Value= Sheets(Salaisons).Range("B13").Value
Range("G14").Value = Sheets(Boissons).Range("B13").Value
Range("I14").Value = Sheets(Pièces).Range("B13").Value

Cordialement

Bernard

 

[PGPC]

Bernard ,

je n'y comprends plus rien ,

Je suis dessus depuis ce matin , la syntaxe est bonne ,

Ca me mets quand tu approches le curseur pres de Range

Range("C14).Value=Vide

alors que sur tes exemples qui fonctionnent super bien j'ai la valeur d'afficher quand j'approche le curseur de Range

Range("C14).Value=12525 "la somme s'affiche"

Peux tu m'eXpliquer de facon simple comment je défini ce range C14

MERCI @+

 

[Gérard DEZAMIS]

Bonjour PGPC et Bernard

Je vois que vous êtes encore en phase de "mise au point".
Moi, reposé (oui oui) je suis au aguets de la touche finale. Comme en VBA je suis Super débutant, j'applique une excellente méthode, je décortique les solutions et j'essaye de comprendre ; ça fonctionne parfois mais pas tout le temps... Je me mets à la place de PGPC qui de temps à autre flotte un peu (je ne rigole pas car dans la même situation : je coule !)

Quand à ma liaison intime et tardive avec Morphée, ce n'est pas bien de dévoiler ainsi à tous l'identité de celle qui accompagne mes rêves .....
Je suis de ceux qui ...après avoir enduré les tracas de ces chères petites têtes blondes (les brunes aussi) pendant l'année "scolaire" ne reprennent leur activité que le 1 septembre. Alors j'en profite pour assouvir sans crainte de fatigue excessive une passion tout à fait morale.
En passant je le prends bien mais Morphée.... est un MÂLE !
Bon courage Bernard continue ton action pédagogique. C'est en enseignant que l'on apprend le plus.
Cordialement à tous les deux
@+
GD

 

[Bernard]

Rebonjour à vous tous

Enfin Gérard est sorti de son silence avec tout le plaisir que cela sous-entend.

C'est vrai que Morphée est le fils d'Hypnos et de Nyx, mais il est surtout le dieux des rêves et des songes.

Pour la pédagogie avec PGPC, on va passer au second stade de la méthode Couet . Si PGPC veux bien m'envoyer son fichier dans ma bal, chose que je fais rarement car j'ai eu droit à quelques virus et autre sal.... pardon pour les petites têtes blondes, je ferais le nécessaire pour le dépanner.

A+

Bernard

 

[PGPC]

salut le forulm , salut Bernard , C'est super sympa de ta part

je t'envoie le fichier , tu vas voir je suis que tu n'en auras pas pour plus de quelques minutes


merci

 

[Gérard DEZAMIS]

Bonjour !!! PGPC et Bernard

Alors pas encore couchés tous les deux ?
Pas ensemble ! En m^me temps !
Bernard va aussi avoir des histoires avec Morphée !
Bon courage !
Je prépare les tartines
@+
GD

 

[Zon]

Salut,

Désolé Pgpc mais j'ai rien vu dans ma BAL depuis le 22 juin. Vu l'organisation de ton classeur ma fonction n'est pas bonne.
Je vois que tu es entre de bonnes mains .

A+++

 

[PGPC]

Bonsoir le Forum , Gérard ,Bernard et Zon


Ca y est , c'est fait, ouf !!!Y 'en avait ras la casquette

Zon , je t'avais renvoyé mon fichier le 29/06 et comme tu ne m'as pas répondu je n'ai pas pensé que tu t'étais découragé , mais que tu étais parti en vacances ...

Tu me dis que le code n'aurait pas fonctionné mais c'est de ma faute car mon fichier était trop lourd et j'avais étais obligé de faire un exemple allégé que je pensais pouvoir réadapter facilement
Donc sans tous les élémenents

Merci à tous les trois

@Bientôt

Pgpc