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

Synthèse de plusieurs feuilles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tial
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tial

Guest
Bonjour à toutes et tous.
Qui pourrait m'aider à automatiser la manip suivante :


1er étape :
1) Créer une copie de ma feuille "rapport vierge" en ayant une boite de dialogue me permettant de nommé cette feuille.
2) Cette feuille doit se placer juste avant la feuille "Synthèse".
3) Je rempli cette feuille nouvellement créée et souhaite que mes valeurs soit transférer dans ma feuille "Synthèse".

2eme étape :
1) Recréer une copie de ma feuille "rapport vierge" en ayant une boite de dialogue me permettant de nommé cette feuille.
2) Cette feuille doit se placer juste avant la feuille "Synthèse".
3) Je rempli cette feuille nouvellement créée et souhaite que mes valeurs soit transférer dans ma feuille "Synthèse", remplaçant les cellules que je viens de remplir.

Et ainsi de suite quelque soit le nombre de feuilles créées.


Pour etre un peu plus clair, dans mon fichier (manip fait manuellement) ci joint, on peut voir :
Les données de "Rapport1" sont dans "Synthèse".
Les données de "Rapport2" sont dans "Synthèse" mais on ne rajoute ou remplace que les cellules nouvellement remplies.


Par avance un grand merci.
Tial
 

Pièces jointes

Trier par date Trier par votes

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Synthèse de plusieurs feuilles

Bonjour

Merci JP14
Ceci correspond tout à fait à ce que je cherche.

J'ai créé un bouton sur ma page rapport vierge pour afficher le UserForm.

Pourrais tu m'expliquer comment faire pour que ce bouton ne soit pas copier dans la feuille que l'on vient de créer.

Bonne journée.
Tial
 
Vote positif 0 Vote négatif
Re : Synthèse de plusieurs feuilles

Bonjour

Une modification à apporter à la macro recopie

Dim j As String

j = Sheets(xnomfeuille1).Cells.SpecialCells(xlCellTypeLastCell).Address(0, 0)

For Each Cellule In Range("A14:" & j)


'For Each Cellule In Sheets(xnomfeuille1).UsedRange ligne à supprimer

cette modification permet de lister que les cellules à partir de A14.

Ci joint le fichier avec la macro modifiée et la suppression du bouton.

JP
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Synthèse de plusieurs feuilles

Re

Suite à un essai grandeur nature, j'ai rencontré un problème (non liè à l'application, mais à mes besoins).

En effet, il arrive que dans mes tableaux, j'ai des formules. Par contre dans la feuille "Synthèse", on ne transfert que des valeurs.
Comment puis je transfèrer également les formules.

Merci et bonne soirée
Tial
 
Vote positif 0 Vote négatif
Re : Synthèse de plusieurs feuilles

Bonjour


JP
Je pense avoir trouvé d'ou vient le problème.
Mais comment y remédier ?

Ci joint un nouveau fichier.

1) Tu peux voir que je supprime le bouton à la création de la nouvelle feuille.
a) Si je veux transférer les données par le bouton de la page vierge ça ne fonctionne pas (bien que je sélectionne la feuille qui contient les données à transférer).


2) Si j'enlève la suppression du bouton (donc, un bouton sur chaque feuille)
a) Si je veux transférer les données par le bouton de la page vierge ça ne fonctionne pas (bien que je sélectionne la feuille qui contient les données à transférer).
b) Si je veux que le transfert fonctionne, il faut que je me serve du bouton de la feuille qui contient les données à transférer.


Mont but :
Effacer le bouton des feuilles créées.
Effectuer le transfert en sélectionnant la feuille contenant les données depuis ‘’Rapport Vierge’’
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Synthèse de plusieurs feuilles

Bonsoir Tial

En faisant la modification suivante tout devrait rentrer dans l'ordre

j = Sheets(xnomfeuille1).Cells.SpecialCells(xlCellTypeLastCell).Address(0, 0)

For Each Cellule In Range("A14:" & j)


'For Each Cellule In Sheets(xnomfeuille1).UsedRange



ad = Cellule.Address(0, 0)
If Sheets(xnomfeuille1).Range(ad).HasFormula = True Then
xtexte1 = Sheets(xnomfeuille1).Range(ad).FormulaLocal
Sheets("Synthèse").Range(ad).FormulaLocal = xtexte1 ' recopie du texte


Else
If Sheets(xnomfeuille1).Range(ad).Value <> "" Then ' pour éviter de mettre à jour la cellule
Sheets("Synthèse").Range(ad).Value = Sheets(xnomfeuille1).Range(ad).Value
End If

End If

Next Cellule

JP
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
391
mapomme
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
374
sylvanu
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
428
vgendron
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
985
job75
M
  • Question Question
XL 2016 macro copier coller de plusieurs feuilles excel
Réponses
2
Affichages
553
klin89
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
575
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
852
AtTheOne
  • Question Question
XL 2016 Récupérer données sur plusieurs feuilles
2
Réponses
20
Affichages
2 K
hypo78
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
808
p56
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
909
Renaud22
R
B
  • Question Question
XL 2013 Transposition de filtres multiples sur plusieurs feuilles
Réponses
11
Affichages
980
BIROULIG
B
G
  • Question Question
XL 2016 comment regrouper les données de plusieurs feuille dans une seule par une macro
Réponses
4
Affichages
787
GUEWOU
G
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
947
marie3107
M
B
  • Question Question
XL 2019 ventiler une base de données sur plusieurs feuilles d'un même classeur
Réponses
5
Affichages
854
bernardhericher
B
B
  • Question Question
XL 2016 Macro BVA pour créer une synthèse à partir de plusieurs onglets Excel
Réponses
6
Affichages
1 K
bnolwalid
B
J
  • Question Question
XL 2021 reporter des données entre plusieurs feuilles sans décalage de lignes dans les tableaux
Réponses
4
Affichages
884
job75
  • Résolu(e)
XL 2021 copie de donnée vers diffèrent tableaux sur plusieurs feuilles en fonction d un mot
Réponses
4
Affichages
700
Aleks Shadows
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…