Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Somme automatique d'une cellule sur toutes les feuilles.

  • Initiateur de la discussion Initiateur de la discussion Dam1904
  • Date de début Date de début
D

Dam1904

XLDnaute Nouveau
Bonjour,
J'utilise pour mon travail un petit fichier que je me suis concocté en m'inspirant du code vba de "JCGL", mais rien ne fonctionne.
Voici mon problème :
En sachant que le nombre de feuille sera variable à chaque utilisation du fichier, j'aimerais additionner les cellules "B4àB15" et "B18àB22" de chaque feuilles et reporter le total dans la feuille "Quantité" en respectant le nom des articles.
La feuille"Quantité" restera masquée pendant tout le temps de l'encodage et sera appelée en fin d'encodage, via un bouton (associé à un code vba) pour l'appel.
Je parviens à faire la somme totale pour les feuilles existantes (=SOMME('*'!B4), mais il faut que je modifie la formule à chaque fois que j'ajoute une nouvelle feuille.
En pièce jointe un fichier donnant l'idée.
Pourriez-vous m'aider ?
Merci d'avance.
 

Pièces jointes

  • Quantité.xlsm
    18.3 KB · Affichages: 15
Trier par date Trier par votes

djidji59430

XLDnaute Barbatruc
Bonjour à tous,

Je suis nul en VBA, mais a mon avis, si tu ajoutes une feuille vide après ta dernière feuille et que tu appliques ta formule, elle fonctionne Il suffit de mettre ta nouvelle feuille avant cette feuille vide.

Crdlmt
 
Vote positif 0 Vote négatif
D

Dam1904

XLDnaute Nouveau
fanfan38 à dit:
Tu clic avec le bouton droit sur le nom de la feuille.
Tu choisis déplacer ou copier et tu la place où tu veux...
A+ François
Cliquez pour agrandir...
D'accord avec toi, mais intégrer cette commande en vba, est-ce possible ?
fanfan38 à dit:
Tu clic avec le bouton droit sur le nom de la feuille.
Tu choisis déplacer ou copier et tu la place où tu veux...
A+ François
Cliquez pour agrandir...

Bonjour,

J'ai trouvé un code vba qui fonctionne pour placer automatiquement la feuille "Quantité" à la fin de mon tableau le voici :

Sub appelquantité()
Dim i As Integer
Sheets("Quantité").Unprotect ("")
Sheets("Quantité").Range("b4:b15").ClearContents
Sheets("Quantité").Range("b18:b22").ClearContents
For Each f In Worksheets
If f.Name <> "Quantité" Then
For i = 4 To 15
Sheets("Quantité").Range("B" & i).Value = Sheets("Quantité").Range("B" & i).Value + f.Range("B" & i).Value
Next
For i = 18 To 22
Sheets("Quantité").Range("B" & i).Value = Sheets("Quantité").Range("B" & i).Value + f.Range("B" & i).Value
Next
End If
Next
Sheets("Quantité").Visible = True
Sheets("Quantité").Activate
For i = 1 To Sheets.Count
Sheets("Quantité").Select
Sheets("Quantité").Move After:=Sheets(i)
Next i
Sheets("Quantité").Protect ("")
End Sub

J'aurais une autre question, sans vouloir abusé

J'aimerais que l'on puisse valider H8 uniquement par un "V" majuscule et ensuite interdire l'écriture en I8.
Même sénario par I8 : validation uniquement par "X" majuscule.
Je sais que c'est réalisable via la validation de données, je l'ai déjà fait mais je ne parviens pas à le refaire !!!
Encore merci pour votre aide.
 

Pièces jointes

  • Quantité1.xlsm
    38 KB · Affichages: 2
Vote positif 0 Vote négatif
D

DARRIEUX

XLDnaute Nouveau
Bonjour FANFAN

Je me permets de t'envoyer un fichier pour optimiser le quittancement de nos occupants. Je suis bénévole dans une association Humanitaire (en haut du fichier Excel).

Ca marche, sauf que je souhaiterai sauveharder l 'onglet et pas le fichier en PDF dans le dossier c:\documents et que la sauvegarde du fichier soit égale à NOM = cellule F8 - DATE MOIS = F15, soit exemple FANTINO SAIDA - 082020

Si tu pouvais me faire cela, je serai très heureux, mais également mes camardes bénévoles de l'association.

MERCI PAR AVANCE

CORDIALEMENT
 

Pièces jointes

  • FANTINO SAIDA.xlsm
    546.6 KB · Affichages: 4
Vote positif 0 Vote négatif
D

DARRIEUX

XLDnaute Nouveau
Bonjour FANFAN

Je me permets de t'envoyer un fichier pour optimiser le quittancement de nos occupants. Je suis bénévole dans une association Humanitaire (en haut du fichier Excel).

Ça marche, sauf que je souhaiterai sauvegarder l 'onglet et pas le fichier en PDF dans le dossier c:\documents\ et que la sauvegarde du fichier soit égale à NOM = cellule F8 - DATE MOIS = F15, soit exemple FANTINO SAIDA - 082020

Soit créer une mouvelle macro dans un nouveau module intitulé Excel Downloads, soit modifier macro 2 dans module 3

Si tu pouvais me faire cela, je serai très heureux, mais également mes camardes bénévoles de l'association.

MERCI PAR AVANCE

CORDIALEMENT
JAKES
 

Pièces jointes

  • FANTINO SAIDA.xlsm
    546.6 KB · Affichages: 2
Vote positif 0 Vote négatif
D

Dam1904

XLDnaute Nouveau
fanfan38 à dit:
Parce qu'à ton boulot ils ont interdit les macros
A+ François
Cliquez pour agrandir...

Bonjour François,
Je n'avais pas vu la macro, je pensais simplement que ce n'était qu'une liste déroulante conditionnelle

Pour la retranscrire dans mon fichier définitif, je dois la placer dans la feuille ou puis-je insérer un nouveau module ?
Encore merci pour votre aide, c'est vraiment sympa de votre part car étant novice en Excel, ça fait vraiment plaisir d'être aidé
Il est probable que je fasse encore appel à vous !
De fait, dans mon fichier, je compte intégrer d'autres commandes qui permettraient :
  1. Ouvrir des images à l'aide de la visionneuse Windows.
  2. Imprimer.
  3. Sauvegarder au format PDF et envoyer via Outlook.
Bref, j'ai des idées et le temps ....
Bonne journée à vous et au plaisir de lire.
Dam,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
522
Max
M
Z
  • Résolu(e)
Microsoft 365 Récupérer les éléments d'une liste en fonction de leur position
Réponses
2
Affichages
551
Zarnir
Z
M
  • Résolu(e)
XL 2021 calcul : Somme des quantités de chaque produit à fabriquer
Réponses
3
Affichages
764
MinstrelL
M
N
  • Question Question
XL 2016 Copie automatique VBA d'une cellule spécifique de toutes les feuilles du classeur
2 3
Réponses
35
Affichages
2 K
Staple1600
V
  • Question Question
XL 2016 somme de plusieurs champs, dans plusieurs feuilles en fonction d'un critère
Réponses
11
Affichages
1 K
R@chid
J
  • Question Question
Microsoft 365 Récupération de lignes de plusieurs feuille sur une seule en fonction d'une valeur de cellule
Réponses
6
Affichages
2 K
jireu
J
F
  • Question Question
XL 2013 VBA comment obtenir l'équivalent d'une vérification SI(OU sur toutes les feuilles
Réponses
14
Affichages
1 K
vgendron
D
  • Question Question
XL 2016 Supprimer feuilles dans même classeur
Réponses
9
Affichages
994
Dam1904
D
P
  • Résolu(e)
XL 2019 Affectation d'une cellule vide la valeur de 1
Réponses
2
Affichages
2 K
Praveena
P
S
  • Question Question
Synthétiser plusieurs feuilles excel sur une seule feuille sans VBA
Réponses
8
Affichages
3 K
schub
S
J
  • Question Question
Somme d'une cellule avec condition (recherchev) sur toutes les feuilles qui existent ou existeront plus-tard
Réponses
3
Affichages
920
JVOS
J
E
  • Question Question
XL 2019 VBA Afficher toutes les feuilles et remasquer l'ensemble en fonction d'une variable
Réponses
4
Affichages
1 K
E5kobar
E
C
  • Question Question
Autres Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
1
Affichages
2 K
claivier_58
C
C
  • Question Question
Autres VBA - Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
3
Affichages
2 K
claivier_58
C
M
  • Question Question
XL 2013 Macro pour faire la somme d'une même cellule sur plusieurs feuilles en ignorant les feuilles masquées
Réponses
4
Affichages
995
mariebasile
M
T
  • Question Question
XL 2016 Macro - Si ajout d'une cellule dans une feuille, recopiage dans les autres feuilles du classeur
Réponses
0
Affichages
636
tetter88
T
G
  • Question Question
XL 2016 Regrouper toutes les lignes d'une série de feuille
Réponses
2
Affichages
935
guigui4901
G
C
  • Question Question
Somme sur plusieurs feuilles d'une meme cellule
Réponses
7
Affichages
1 K
Joblego
J
C
  • Question Question
XL 2013 Dans calendrier automatique : interdire l'écriture dans plusieurs cellules selon les termes d'une autre cellule
Réponses
11
Affichages
2 K
job75
A
  • Question Question
XL 2016 Synthèse de toutes les feuilles du classeur
Réponses
7
Affichages
1 K
Aloha
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…