Archivage
Résolu/Fermé
Dany02_110
Messages postés
7
Date d'inscription
vendredi 14 juin 2019
Statut
Membre
Dernière intervention
1 juillet 2019
-
14 juin 2019 à 18:46
Dany02_110 Messages postés 7 Date d'inscription vendredi 14 juin 2019 Statut Membre Dernière intervention 1 juillet 2019 - 15 juin 2019 à 19:13
Dany02_110 Messages postés 7 Date d'inscription vendredi 14 juin 2019 Statut Membre Dernière intervention 1 juillet 2019 - 15 juin 2019 à 19:13
A voir également:
- Archivage
- Logiciel archivage photo - Guide
- Effet archivage whatsapp - Guide
- Logiciel d'archivage de documents gratuit - Télécharger - Bureautique
- Archivage sms - Guide
- Archivage automatique outlook - Guide
8 réponses
fabien25000
Messages postés
673
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
28 juillet 2022
59
Modifié le 15 juin 2019 à 16:22
Modifié le 15 juin 2019 à 16:22
c'est tout aussi simple, je l'avais encore jamais croisé dans mes lectures
j'espère n'avoir rien oublié cette fois
Edit : je t'ai rajouté une sauvegarde à la fin de la routine, c'est toujours bien d'enregistrer son boulot
Sub CopieColleRecap() Dim derlig As Long Dim TabRecap As Range derlig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row Set TabRecap = ActiveSheet.Range("B" & derlig + 2 & ": I" & derlig + 11) ActiveSheet.Range("B" & derlig + 27 & ":B" & derlig + 36).EntireRow.Insert TabRecap.Copy With ActiveSheet.Range("B" & derlig + 27) .Select .PasteSpecial Paste:=xlPasteValues .PasteSpecial Paste:=xlPasteFormats End With Application.CutCopyMode = False ActiveSheet.Range("B" & derlig + 12).Activate ThisWorkbook.Save End Sub
j'espère n'avoir rien oublié cette fois
Edit : je t'ai rajouté une sauvegarde à la fin de la routine, c'est toujours bien d'enregistrer son boulot
fabien25000
Messages postés
673
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
28 juillet 2022
59
Modifié le 15 juin 2019 à 10:16
Modifié le 15 juin 2019 à 10:16
Bonjour,
A quel moment cette macro est censée se déclencher?
cette macro doit agir sur une feuille choisie ou sur l'ensemble du classeur simultanément?
A quel moment cette macro est censée se déclencher?
cette macro doit agir sur une feuille choisie ou sur l'ensemble du classeur simultanément?
Dany02_110
Messages postés
7
Date d'inscription
vendredi 14 juin 2019
Statut
Membre
Dernière intervention
1 juillet 2019
15 juin 2019 à 10:02
15 juin 2019 à 10:02
Bonjour Fabien,
Cette macro serait déclenchée par un bouton une fois par mois,
voire deux fois si rectification(s).
Elle doit agir sur la feuille en cours.
Dans mon classeur, il y a 14 onglets ( 14 commerciaux )
nombre NON exhaustif.
Merci de ce que tu pourras faire Fabien.
Cette macro serait déclenchée par un bouton une fois par mois,
voire deux fois si rectification(s).
Elle doit agir sur la feuille en cours.
Dans mon classeur, il y a 14 onglets ( 14 commerciaux )
nombre NON exhaustif.
Merci de ce que tu pourras faire Fabien.
fabien25000
Messages postés
673
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
28 juillet 2022
59
Modifié le 15 juin 2019 à 11:47
Modifié le 15 juin 2019 à 11:47
Est ce que c'est ça que tu attends?
Edit : Teste la macro sur une copie de ton fichier pour éviter de perdre des données si la macro ne réagis pas comme il faut (par exemple si la colonne A est vide car je suis parti du principe que A est remplie)
Sub CopieColleRecap() Dim derlig As Long Dim TabRecap As Range derlig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row Set TabRecap = ActiveSheet.Range("B" & derlig + 2 & ": I" & derlig + 11) ActiveSheet.Range("B" & derlig + 27 & ":B" & derlig + 36).EntireRow.Insert TabRecap.Copy ActiveSheet.Range("B" & derlig + 27).Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Range("B" & derlig + 12).Activate End Sub
Edit : Teste la macro sur une copie de ton fichier pour éviter de perdre des données si la macro ne réagis pas comme il faut (par exemple si la colonne A est vide car je suis parti du principe que A est remplie)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Dany02_110
Messages postés
7
Date d'inscription
vendredi 14 juin 2019
Statut
Membre
Dernière intervention
1 juillet 2019
15 juin 2019 à 11:39
15 juin 2019 à 11:39
C'est tout bonnement GÉNIAL.
Merci beaucoup Fabien.
Juste une petite modification, désolé j'ai oublié de préciser.
Il faudrait qu'il colle en format et valeur car dans mon récapitulatif il y a des formules
pour le calculs du salaire du mois.
Encore une fois désolé.
Merci beaucoup Fabien.
Juste une petite modification, désolé j'ai oublié de préciser.
Il faudrait qu'il colle en format et valeur car dans mon récapitulatif il y a des formules
pour le calculs du salaire du mois.
Encore une fois désolé.
fabien25000
Messages postés
673
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
28 juillet 2022
59
Modifié le 15 juin 2019 à 11:59
Modifié le 15 juin 2019 à 11:59
ça devrait être bon comme ça
j'ai modifié légèrement la routine en même temps que tu postais ta réponse..
j'ai modifié légèrement la routine en même temps que tu postais ta réponse..
Sub CopieColleRecap() Dim derlig As Long Dim TabRecap As Range derlig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row Set TabRecap = ActiveSheet.Range("B" & derlig + 2 & ": I" & derlig + 11) ActiveSheet.Range("B" & derlig + 27 & ":B" & derlig + 36).EntireRow.Insert TabRecap.Copy ActiveSheet.Range("B" & derlig + 27).Select ActiveSheet.Range("B" & derlig + 27).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False ActiveSheet.Range("B" & derlig + 12).Activate End Sub
Dany02_110
Messages postés
7
Date d'inscription
vendredi 14 juin 2019
Statut
Membre
Dernière intervention
1 juillet 2019
15 juin 2019 à 15:39
15 juin 2019 à 15:39
Fabien,
Encore une fois, MAGNIFIQUE.
Mais, si tu as fais un collage spécial des "valeurs", ce qui est parfait,
il n'y a pas le collage spécial pour le "format".
Ceci dit, je pense que cela ne sera qu'une petite formalité pour toi.
Encore une fois un GRAND merci.
Daniel.
Encore une fois, MAGNIFIQUE.
Mais, si tu as fais un collage spécial des "valeurs", ce qui est parfait,
il n'y a pas le collage spécial pour le "format".
Ceci dit, je pense que cela ne sera qu'une petite formalité pour toi.
Encore une fois un GRAND merci.
Daniel.
fabien25000
Messages postés
673
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
28 juillet 2022
59
15 juin 2019 à 16:18
15 juin 2019 à 16:18
il n'y a pas le collage spécial pour le "format".
autant pour moi je n'avais pas vu.. dsl
Ceci dit, je pense que cela ne sera qu'une petite formalité pour toi.
non je ne sais pas encore le faire mais google est mon ami, je vais apprendre, merci!
autant pour moi je n'avais pas vu.. dsl
Ceci dit, je pense que cela ne sera qu'une petite formalité pour toi.
non je ne sais pas encore le faire mais google est mon ami, je vais apprendre, merci!
Dany02_110
Messages postés
7
Date d'inscription
vendredi 14 juin 2019
Statut
Membre
Dernière intervention
1 juillet 2019
15 juin 2019 à 17:04
15 juin 2019 à 17:04
Sincèrement, TOUT est PARFAIT Fabien.
Je suis Épaté, Sidéré, ESPANTÉ de la facilité avec laquelle tu as résolu mon problème.
Une dernière question,
comment fait-on pour apprendre et reproduire ce que tu viens de faire ?
Moi, j'adore Excel, mais je pratique plus les formules et franchement
quand je vois ce que tu as fais, j'ai vraiment envie d'apprendre.
En plus, jeune retraité, maintenant je vais avoir du temps. (Enfin peut-être)
Encore un Grand, TRÈS GRAND merci Fabien.
Daniel.
Je suis Épaté, Sidéré, ESPANTÉ de la facilité avec laquelle tu as résolu mon problème.
Une dernière question,
comment fait-on pour apprendre et reproduire ce que tu viens de faire ?
Moi, j'adore Excel, mais je pratique plus les formules et franchement
quand je vois ce que tu as fais, j'ai vraiment envie d'apprendre.
En plus, jeune retraité, maintenant je vais avoir du temps. (Enfin peut-être)
Encore un Grand, TRÈS GRAND merci Fabien.
Daniel.
fabien25000
Messages postés
673
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
28 juillet 2022
59
15 juin 2019 à 17:28
15 juin 2019 à 17:28
De rien, j'adore excel aussi donc c'est avec plaisir !
il y a plein de site qui peuvent apprendre le language VBA comme celui ci par exemple, :https://openclassrooms.com/fr/courses/825502-analysez-des-donnees-avec-excel/823059-le-vba-un-langage-oriente-objet
il suffit de taper "apprendre excel vba" sur google, tu en trouveras beaucoup, et si tu as besoin nous sommes là
il y a plein de site qui peuvent apprendre le language VBA comme celui ci par exemple, :https://openclassrooms.com/fr/courses/825502-analysez-des-donnees-avec-excel/823059-le-vba-un-langage-oriente-objet
il suffit de taper "apprendre excel vba" sur google, tu en trouveras beaucoup, et si tu as besoin nous sommes là
Dany02_110
Messages postés
7
Date d'inscription
vendredi 14 juin 2019
Statut
Membre
Dernière intervention
1 juillet 2019
15 juin 2019 à 19:13
15 juin 2019 à 19:13
Merci beaucoup Fabien,
SUPER SYMPA.
Bon week-end.
Daniel.
SUPER SYMPA.
Bon week-end.
Daniel.