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

fanfan38

XLDnaute Barbatruc
la macro pour le X et le V doivent être sur la feuille
cliquer sur l'onglet de la feuille et choisir visualiser le code
comme après tu copie les feuilles elle sera copié avec la feuille...
Mais il y a aussi un validation de données
A+ François
 
Vote positif 0 Vote négatif
D

Dam1904

XLDnaute Nouveau
Dam1904 à dit:
Ok, merci
je vais essayer ça
Merci
Cliquez pour agrandir...

Je reviens vers vous concernant la macro verrouillant les cellules.
Dans mon fichier définitif, j'ai les cellules C11 à C26 qui représentent "OK" et en opposition D11 à D33 ==> "NOK"
Ensuite plus bas dans la feuille de nouveau des cellules "OK" C33 à C37 et en "NOK" D33 à D37.
Je ne parviens pas à adapter la macro à cette situation, voici la ligne que j'écris :

If Target.Address = "$C$11:26" And Len(Target.Value) > 0 Then
If Range("$D$11:26").Value = "X" Then
MsgBox ("Vous ne pouvez modifier cette cellule")
Range("$C$11:26").Value = Null
Exit Sub
End If
End If
If Target.Address = "$C$33:37" And Len(Target.Value) > 0 Then
If Range("$D$33:37").Value = "V" Then
MsgBox ("Vous ne pouvez modifier cette cellule")
Range("$C$33:37").Value = Null
End If
End If
End Sub

Merci
 

Pièces jointes

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

Dam1904

XLDnaute Nouveau
Bonjour François,

J'espère que vous allez bien en cette période de confinement ?
Je reviens à nouveau vers vous afin de solliciter à nouveau votre aide , mon fichier se termine mais je rencontre problème pour l'envoi du fichier en pièce jointe (au format PDF).
J'ai chercher sur Internet mais sans résultats, j'ai donc enregistré une Macro pour créer le code.
A la première utilisation de celle-ci, tout fonctionne bien, le mail est généré avec le fichier en pièce jointe au format PDF, je sauvegarde mon fichier et l'ouvre à nouveau, je ré exécute la macro et le fichier en pièce jointe est au format xlsm et plus en pdf.

J'aimerais compléter cette macro avec quelques éléments supplémentaires tels que :
  • l'objet du mail défini.
  • le destinataire principal et celui en copie.
  • un corps de message.
Pourriez-vous m'aider ?
Merci d'avance,
 

Pièces jointes

  • Quantité.xlsm
    40.8 KB · Affichages: 1
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…