Besoin d'une macro pour le tri des tableaux a imprimer
Résolu/Fermé
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
-
4 févr. 2017 à 17:10
christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024 - 8 févr. 2017 à 04:40
christophedir Messages postés 200 Date d'inscription vendredi 18 novembre 2016 Statut Membre Dernière intervention 28 février 2024 - 8 févr. 2017 à 04:40
A voir également:
- Besoin d'une macro pour le tri des tableaux a imprimer
- Imprimer tableau excel sur une page - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Tableaux croisés dynamiques - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
22 réponses
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
5 févr. 2017 à 00:02
5 févr. 2017 à 00:02
Bonjour
Est ce que ça te convient?
https://www.cjoint.com/c/GBexaR8CRAA
Cordialement
Est ce que ça te convient?
https://www.cjoint.com/c/GBexaR8CRAA
Cordialement
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
5 févr. 2017 à 10:09
5 févr. 2017 à 10:09
Bonjour,
Non pas tout a fait
je vous envoi un lien vers un powerpoint vous montrant lé résultat espérer.
PS dans le powerpoint tout n'est pas vraiment bien dimensionné
https://www.cjoint.com/c/GBfjcZrkmJS
je voudrais plutôt reste dans cette configuration
- impression en format portrait
- Garder l’en tête et l'espace entre le début des feuille et le premier tableau de chaque feuille
- Que je n’ai pas a valider l’impression de chaque feuille
merci tout de même pour le travail
Cordialement
christophedir
Non pas tout a fait
je vous envoi un lien vers un powerpoint vous montrant lé résultat espérer.
PS dans le powerpoint tout n'est pas vraiment bien dimensionné
https://www.cjoint.com/c/GBfjcZrkmJS
je voudrais plutôt reste dans cette configuration
- impression en format portrait
- Garder l’en tête et l'espace entre le début des feuille et le premier tableau de chaque feuille
- Que je n’ai pas a valider l’impression de chaque feuille
merci tout de même pour le travail
Cordialement
christophedir
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
5 févr. 2017 à 11:06
5 févr. 2017 à 11:06
Bonjour
A Tester avec une imprimante
- En tête gardée
- suppression des messages de confirmation d'impression , de même que l'aperçu avant l'impression;
- Format portrait
- l'espace entre le début des feuille et le premier tableau de chaque feuille
Pas très bien compris
Tiens moi au courant
cdt
https://www.cjoint.com/c/GBfkcDBUjTA
A Tester avec une imprimante
- En tête gardée
- suppression des messages de confirmation d'impression , de même que l'aperçu avant l'impression;
- Format portrait
- l'espace entre le début des feuille et le premier tableau de chaque feuille
Pas très bien compris
Tiens moi au courant
cdt
https://www.cjoint.com/c/GBfkcDBUjTA
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
5 févr. 2017 à 12:10
5 févr. 2017 à 12:10
Hello Julia
Je travail cette après-midi, je pourrais donc tester la macro
pour ce qui est de :" l'espace entre le début des feuille et le premier tableau de chaque feuille " je regarde ce que cela donne à l'impression vous tiens au courant
juste que l'espace au début de chaque feuille correspond a la taille l'en tête de la première feuille et que je voudrais garder sur la feuille 2,3 et 4
merci
christophedir
Je travail cette après-midi, je pourrais donc tester la macro
pour ce qui est de :" l'espace entre le début des feuille et le premier tableau de chaque feuille " je regarde ce que cela donne à l'impression vous tiens au courant
juste que l'espace au début de chaque feuille correspond a la taille l'en tête de la première feuille et que je voudrais garder sur la feuille 2,3 et 4
merci
christophedir
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
5 févr. 2017 à 16:40
5 févr. 2017 à 16:40
Rebonjour Julia
j'ai testé la macro, il y a quelque bug, mais c'est pas mal pour un début
pour faciliter le suivi j'ai numéroté les pages de 1 à 4
1: premier fichier : validé tout les tableaux => tout les tableaux son imprimés, mais,a partir de la 2 feuille il y a un l'en téte de la 1 er feuille, dans la 3 eme
il y a l'en tête de la 1 er et la première rangée du premier tableau de la 2 éme feuille et ainsi de suite (je pens e qu'il vos mieux que vous regardiez le fichier ci-joint
https://www.cjoint.com/c/GBfpxWtVn02
sur le 2éme fichier selectionné quelques tableaux première feuille ok,
mais sur les suivantes imprime tout les tableaux même vides, même les feuilles ou il n'y a aucun tabeau validés
fichier ci-joint
https://www.cjoint.com/c/GBfpEYB8rm2
cdt
christophedir
j'ai testé la macro, il y a quelque bug, mais c'est pas mal pour un début
pour faciliter le suivi j'ai numéroté les pages de 1 à 4
1: premier fichier : validé tout les tableaux => tout les tableaux son imprimés, mais,a partir de la 2 feuille il y a un l'en téte de la 1 er feuille, dans la 3 eme
il y a l'en tête de la 1 er et la première rangée du premier tableau de la 2 éme feuille et ainsi de suite (je pens e qu'il vos mieux que vous regardiez le fichier ci-joint
https://www.cjoint.com/c/GBfpxWtVn02
sur le 2éme fichier selectionné quelques tableaux première feuille ok,
mais sur les suivantes imprime tout les tableaux même vides, même les feuilles ou il n'y a aucun tabeau validés
fichier ci-joint
https://www.cjoint.com/c/GBfpEYB8rm2
cdt
christophedir
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
5 févr. 2017 à 22:38
5 févr. 2017 à 22:38
Bonsoir
Le fichier modifié
https://www.cjoint.com/c/GBfvLMFvWOA
cordialement
Le fichier modifié
https://www.cjoint.com/c/GBfvLMFvWOA
cordialement
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
6 févr. 2017 à 10:48
6 févr. 2017 à 10:48
Bonjour
j'ai testé la modifications , les bugs était toujours présent; je me suis penché plus longtemps sur le pourquoi est en regardant de plus prés je me suis aperçu que les cases entre les deux fichier ne correspondait pas.
j'ai mis à jour les cases qui doivent être sélectionner et j'ai aussi mis le début et la fin de chaque page
Vraiment désolé de vous avoir fournit de mauvaises infos et vous remercie pour le temps passé
https://www.cjoint.com/c/GBgjVGbICNS
Voici le lien pour le fichier mis à jour
Cdt
christophedir
j'ai testé la modifications , les bugs était toujours présent; je me suis penché plus longtemps sur le pourquoi est en regardant de plus prés je me suis aperçu que les cases entre les deux fichier ne correspondait pas.
j'ai mis à jour les cases qui doivent être sélectionner et j'ai aussi mis le début et la fin de chaque page
Vraiment désolé de vous avoir fournit de mauvaises infos et vous remercie pour le temps passé
https://www.cjoint.com/c/GBgjVGbICNS
Voici le lien pour le fichier mis à jour
Cdt
christophedir
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
6 févr. 2017 à 14:57
6 févr. 2017 à 14:57
Bonjour
C'est clair , si vous modifiez les emplacements des cellules en insérant ou supprimant des lignes le code devient caduque.
Donc voilà le fichier retravaillé et j'ai effectué plusieurs test concluants avec le .PrintPreview .
Au passage si c'est pas redonnant pour vous ; je vous conseille d 'activer les preview avant Impression.
https://www.cjoint.com/c/GBgnZFHBC7A
Cordialement
C'est clair , si vous modifiez les emplacements des cellules en insérant ou supprimant des lignes le code devient caduque.
Donc voilà le fichier retravaillé et j'ai effectué plusieurs test concluants avec le .PrintPreview .
Au passage si c'est pas redonnant pour vous ; je vous conseille d 'activer les preview avant Impression.
https://www.cjoint.com/c/GBgnZFHBC7A
Cordialement
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
6 févr. 2017 à 18:10
6 févr. 2017 à 18:10
Re bonjour
J'ai commencé a tester le fichier pour l'instant pas de problème
je serai de nuit mardi et mercredi et j'aurrai un peu plus de temps pour le tester complétement.Dès que j'ai fini je vous en informerai.
Encore une, fois désolé pour les mauvaises infos sur les cases a paramétrer. pourtant j'ai fait un copy de l'onglet dans un nouveau fichier je ne m'explique pas les différence au niveau des cellules.
Merci
christophedir
J'ai commencé a tester le fichier pour l'instant pas de problème
je serai de nuit mardi et mercredi et j'aurrai un peu plus de temps pour le tester complétement.Dès que j'ai fini je vous en informerai.
Encore une, fois désolé pour les mauvaises infos sur les cases a paramétrer. pourtant j'ai fait un copy de l'onglet dans un nouveau fichier je ne m'explique pas les différence au niveau des cellules.
Merci
christophedir
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
6 févr. 2017 à 21:51
6 févr. 2017 à 21:51
Question
je voudrais protéger le fichier mais si je fais ça le bouton pour lancer la macro ne marche pas
comment faire pour que je puisse protéger la feuille tout en utilisant le bouton de la macro?
merci
christophedir
je voudrais protéger le fichier mais si je fais ça le bouton pour lancer la macro ne marche pas
comment faire pour que je puisse protéger la feuille tout en utilisant le bouton de la macro?
merci
christophedir
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
6 févr. 2017 à 23:14
6 févr. 2017 à 23:14
Mets au tout début du code
et à la fin du code
Sheets("feuille d'Inventaire").Unprotect Password:="TON MOT DE PASSE"
et à la fin du code
Sheets("feuille d'Inventaire").protect Password:="TON MOT DE PASSE"
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
7 févr. 2017 à 09:42
7 févr. 2017 à 09:42
Bonjour Julia,
Pourriez- vous me faire des captures d'écran du début et de la fin du code, car, car j'ai essayé à plusieurs endroit , la plupart du temps il me marque "runtime erreur (9) "
essayez avec le mot de passe suivant : 1234
merci
christophedir
Pourriez- vous me faire des captures d'écran du début et de la fin du code, car, car j'ai essayé à plusieurs endroit , la plupart du temps il me marque "runtime erreur (9) "
essayez avec le mot de passe suivant : 1234
merci
christophedir
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
Modifié par julia Namor le 7/02/2017 à 15:20
Modifié par julia Namor le 7/02/2017 à 15:20
Sub RoundedRectangle3_Clic()
'Application.ScreenUpdating = False
Sheets("feuille d'Inventaire").Unprotect Password:="TON MOT DE PASSE"
'-----TOUT LE CODE---------------------------------------------------
'-----TOUT LE CODE---------------------------------------------------
'-----TOUT LE CODE---------------------------------------------------
Sheets("feuille d'Inventaire").protect Password:="TON MOT DE PASSE"
'Application.ScreenUpdating = True
End Sub
Ça devrait fonctionner
en supposant que tu as verrouillé et protégé toute la feuille avec un mot de passe
cordialement
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
7 févr. 2017 à 15:46
7 févr. 2017 à 15:46
oui j'ai protégé la feuille avec un mot de passe(1234) sauf les cases qui doivent être sélectionnées
ci joint un fichier avec le message d'erreur et les captures d'écran de la macro
https://www.cjoint.com/c/GBhoUqJzFpL
cdt
ci joint un fichier avec le message d'erreur et les captures d'écran de la macro
https://www.cjoint.com/c/GBhoUqJzFpL
cdt
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
7 févr. 2017 à 16:00
7 févr. 2017 à 16:00
mettez
cdt
"1234"
cdt
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
7 févr. 2017 à 16:46
7 févr. 2017 à 16:46
c'est ce que j'avais fait au début , mais le résultat reste le même
Sub RoundedRectangle3_Clic()
'Application.ScreenUpdating = False
Sheets("feuille d'Inventaire").Unprotect Password:="1234"
'On Error Resume Next
Sub RoundedRectangle3_Clic()
'Application.ScreenUpdating = False
Sheets("feuille d'Inventaire").Unprotect Password:="1234"
'On Error Resume Next
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
7 févr. 2017 à 16:52
7 févr. 2017 à 16:52
Regarde bien si le nom de ta feuille s'intitule
cdt
Sheets("feuille d'Inventaire").Unprotect Password:="1234"
cdt
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
7 févr. 2017 à 17:02
7 févr. 2017 à 17:02
oui c'est bon le nom correspond
Cdt
Cdt
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
7 févr. 2017 à 17:13
7 févr. 2017 à 17:13
Ça doit être surement la méthode de protection
peux tu me joindre le fichier
je regarde ça
peux tu me joindre le fichier
je regarde ça
christophedir
Messages postés
200
Date d'inscription
vendredi 18 novembre 2016
Statut
Membre
Dernière intervention
28 février 2024
7 févr. 2017 à 17:16
7 févr. 2017 à 17:16
c'est bon j'ai trouvé
il manquait un espace a la fin entre le nom du fichier et la parenthèse
Sheets("feuille d'Inventaire ").Unprotect Password:="1234"
Cela tiens vraiment a un petit détail
merci pour la patience
il manquait un espace a la fin entre le nom du fichier et la parenthèse
Sheets("feuille d'Inventaire ").Unprotect Password:="1234"
Cela tiens vraiment a un petit détail
merci pour la patience
