XL 2016 Copie automatique VBA d'une cellule spécifique de toutes les feuilles du classeur

Nando71 · 25 Octobre 2022

Bonjour

J'ai un petit soucis avec le fichier, je n'arrive pas à créer un code. Je m'explique à partir de la feuille synthèse je rentre mes données, je remplis les cellules correspondantes à la ligne concernée dans la colonne c et cela me génère une nouvelle feuille.

Maintenant j'aimerai reporter automatiquement sur ma feuille Synthèse dans les cellule de B20 à B100 la valeur des cellules S67 de chaque feuille crées et surtout à chaque ajout d'une nouvelle feuille que cela vienne s'ajouter au dessous de la dernière cellule pleine .

Merci pour ton soutien

Bien cordialement

Nando71 · 26 Octobre 2022

On peut faire un lien qui vas chercher toutes les S 67 qui les additionne et qui les insères dans une cellule de la feuille synthèse en automatique ? Sans décaler mais utiliser une seul cellule qui additionne

Staple1600 · 26 Octobre 2022

Re

Qui a écrit ceci ?

Maintenant j'aimerai reporter automatiquement sur ma feuille Synthèse dans les cellule de B20 à B100 la valeur des cellules S67 de chaque feuille crées et surtout à chaque ajout d'une nouvelle feuille que cela vienne s'ajouter au dessous de la dernière cellule pleine .

C'est donc ce que fait ma macro.

Nando71 · 26 Octobre 2022

Staple1600 à dit:
Re

Qui a écrit ceci ?

C'est donc ce que fait ma macro.

Oui effectivement tu as raison. Mais est il possible d additionner dans une seul cellule ? C'est moi qui n est pas réfléchi excuse - moi

Staple1600 · 26 Octobre 2022

Re

Reformules ton besoin précisément car il faut repartir sur une autre macro.

Nando71 · 26 Octobre 2022

Je souhaite additionner la cellule S 67 de toutes les feuilles (sauf la Type ) dans une seule cellule de la feuille synthèse et que cette cellule puisse recalculer automatiquement lorsque une ou plusieurs S67 sont modifiées

Staple1600 · 26 Octobre 2022

Re

Cela commence mal
Je viens de retélécharger ton fichier exemple
Il n'y a que deux feuilles
Synthèse et FeuilleType
Donc comment je fais pour faire ceci ?
Je souhaite additionner la cellule S 67 de toutes les feuilles (sauf la Type )

Nando71 · 26 Octobre 2022

Staple1600 à dit:
Re

Cela commence mal
Je viens de retélécharger ton fichier exemple
Il n'y a que deux feuilles
Synthèse et FeuilleType
Donc comment je fais pour faire ceci ?
Je souhaite additionner la cellule S 67 de toutes les feuilles (sauf la Type )

Si tu remplis la cellule C4 par exemple cela te générera une nouvelle feuille

Staple1600 · 26 Octobre 2022

Re

Comme dit précédemment, j'ai inhibé la procédure évènementielle pour que ma macro fonctionne.

Nando71 · 26 Octobre 2022

Staple1600 à dit:
Re

Comme dit précédemment, j'ai inhibé la procédure évènementielle pour que ma macro fonctionne.

Ce qui veut dire que je ne peux plus générer de feuille automatiquement ?

Staple1600 · 26 Octobre 2022

Re

Sinon pourquoi ne pas simplement ce bout de code pour dupliquer la feuille ?

VB:

Sub creer(nom As Range)
Sheets("Feuille Type").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = nom.Text
End Sub

Je te redis juste ce que je t'avais déjà dit quand tu m'avais dit que ma macro ne fonctionnait pas.
Que je j'avais au préalable "désactivé" le code présent dans la feuille.
Ce à quoi tu avais répondu.

Parfait c'est tout merci infiniment pour ton aide

Bien cordialement

Nando71 · 26 Octobre 2022

Non car je dois copier les cellules A à AT dans la nouvelle feuille générée avec le code du module 2

Je t'ai mis un nouveau fichier avec des annotations dans la feuille synthèse

Staple1600 · 26 Octobre 2022

Re

@Nando71
J'avais concocté ceci avant ton nouveau message
Pré-requis:
Le nom des feuilles doit avoir la même structure
Ici Cat 1, Cat 2, Cat N

Code:

Sub test_OK()
Dim vArr
vArr = Split(Sheets(Sheets.Count).Name)
num = CStr(vArr(UBound(vArr)))
Sheets("Synthèse").Range("C1").FormulaR1C1 = "=SUM('Cat 1:Cat " & num & "'!R[66]C[16])"
End Sub

J'obtiens bien la somme de la cellule S67 des feuilles concernées dans la cellule C1 de la feuille Synthèse
PS: Fonctionnera sur ton PC si tu respectes les consignes.

NB: Le code de la feuille duplique l'entiereté de la feuille FeuilleType
Donc cela inclue les colonnes A à AT, non ????

Nando71 · 26 Octobre 2022

Merci infiniment pour ton aide

Je vais regarder tout ça demain et je te redis

Bonne soirée à toi

Bien cordialement

Nando71 · 27 Octobre 2022

Nando71 à dit:
Merci infiniment pour ton aide

Je vais regarder tout ça demain et je te redis

Bonne soirée à toi

Bien cordialement

Salut

Merci pour ton code il fonctionne bien

Par-contre je ne peut pas change le nom des feuilles je suis obliger de garder la dénomination de la colonne A

Staple1600 · 27 Octobre 2022

Re

@Nando71
Obligé par qui ou par quoi ?

Sinon on peut compliquer un chouia la chose, tout en la simplifiant
1) Après la feuille Synthèse, ajouter une feuille vide nommée A$
En dernière position, ajouter une feuille nommée Z$
Puis masquer ces deux feuilles
La formule ci-dessous fera la somme des cellules S67 des feuilles placées entre A$ et Z$
(voir copie écran ci-dessous)
Dans cet exemple, on trouve respectivement 5, 10 et 15 dans les cellules des trois feuilles Plaques_00N
Et la formule affiche bien la somme correcte
(On peut voir que les feuilles A$ et Z$ sont masquées)

XL 2016 Copie automatique VBA d'une cellule spécifique de toutes les feuilles du classeur

Nando71

XLDnaute Nouveau

Pièces jointes

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires