Synthèse de plusieurs feuilles

[Tial]

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

 

[jp14]

Re : Synthèse de plusieurs feuilles

Bonsoir

Voir ce fil

https://www.excel-downloads.com/thr...-differentes-feuilles-vers-une-feuille.71053/

Ci joint un fichier excel avec macro qui devrait répondre au problème posé.
A tester.

JP

 

[Tial]

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

 

[jp14]

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

 

[Tial]

Re : Synthèse de plusieurs feuilles

Sympa, merci à toi
Tial

 

[Tial]

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

 

[jp14]

Re : Synthèse de plusieurs feuilles

Bonsoir

J'ai modifié la macro pour faire recopier soit les formules soit du texte.
A tester

JP

 

[Tial]

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’’

 

[jp14]

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

 

[Tial]

Re : Synthèse de plusieurs feuilles

Bonjour.

Merci JP.
Tout à l'air de fonctionner correctement.

Bonne fin de journée.
Tial