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

Procédure événementielle

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cibleo
  • 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

cibleo

XLDnaute Impliqué
Bonjour à tous,

J'ai créé une petite procédure événementielle qui insère un pied de page dans une feuille de calcul nommée "Modele".
Mais comme je débute en Vba, j'ai nettememt l'impression que celle-ci ralentit le processus.

J'aurai donc 3 questions à vous poser :

L'évènement choisi est-il le bon ?
Si j'ai bien compris c'est un changement dans une cellule de la feuille active qui provoque l'évènement, est-ce le meilleur choix ?

Les instructions sont elles bien ordonnées et bien écrites ?

Et surtout, dans quelle fenêtre de code dois-je placer cette procédure ?
Module standard, ThisWorKbook ou bien dans la fenêtre code de ma feuille de calcul nommée "modèle" qui sera dupliquée 60 fois, sachant que ce pied de page ne doit s'afficher que dans ces 60 feuilles plus le modèle.
J'ai d'autres feuilles de calcul dans mon classeur mais je ne veux pas que ce pied de page s'y affiche.

HTML: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim datejour
datejour = Format(Now, "dddd dd mmmm yyyy à hh:mm")
ActiveSheet.PageSetup.LeftFooter = "Relevé mensuel de " & Range("A2").Value
ActiveSheet.PageSetup.CenterFooter = "Imprimé le " & datejour
ActiveSheet.PageSetup.RightFooter = "Page &P de &N pages"
End Sub

Merci pour vos conseils Cibleo
 
Trier par date Trier par votes
Re : Procédure événementielle

Bonsoir JCGL,

Merci pour le tutoriel, je vais étudier çà de près.

Mais je ne comprends pas le "Beforeprint".

Mais à quoi sert ThisWorbook ! Je croyais qu'en y insérant mon code, ce sont toutes les feuilles de mon classeur qui verront apparaitre ce pied de page.

Est-ce je me trompe JCGL ?

Amicalement Cibleo
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Re,

Le fait de le mettre dans le ThisWorkBook et en Workbook_BeforePrint ne ralentira pas l'exécution à chaque "changement" sur tes 60 feuilles

Pour limiter, tu peux utiliser un

Code: 
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "le_nom_de_la_feuille" Then

A+
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Re JCGL,

J'ai mis ce code dans ThisWorbook comme tu me l'a indiqué ,mais çà patauge.

HTML: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim datejour
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Modele" Then
datejour = Format(Now, "dddd dd mmmm yyyy à hh:mm")
ActiveSheet.PageSetup.LeftFooter = "Planning de " & Range("A2").Value
ActiveSheet.PageSetup.CenterFooter = "Imprimé le " & datejour
ActiveSheet.PageSetup.RightFooter = "Page &P de &N pages"
    End If
Next ws
End Sub
Les 3 feuilles sont nommées ainsi (pour l'instant) : Feuil1, Fériés et Modele

Si je veux que le pied de page n'apparaisse que dans la feuille modele, est-ce bien modifié ? c'est non puisque le pied de page apparait dans mes 3 feuilles.

Tu sais JCGL, j'apprends beaucoup sur le forum mais je progresse doucement.

Cibleo
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Re,

Modifie la valeur <> en =
soit de différent en égal

Code: 
If ws.Name = "Modele" Then
Pas vraiment au top ce soir : mon petit dernier est Graduate (arf c'est le dernier)

A+ à tous
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Bonsoir cibleo et JC;
JC qui nous dit pas etre au top ;çà fait du bien de savoir que l'un des meilleurs contributeurs (et aussi celui qui répond souvent le plus gentiment et simplement) fait des fois des petites erreurs.LOL
Allez un ptit rhum et çà repart.
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Bonjour
Remplacer
ActiveSheet. par Ws.

et remettre If ws.Name = "Modele"

Sinon cela s'applique à la feuille en cours qui n'est pas forcément la bonne.
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Re,
Salut Roro 🙂,
Salut Chris 🙂,

Roro : merci pour ton intervention 🙂, mais là le petit rhum c'est fini... mais nous avons, aussi..., bu un petit paille de chez toi... que du bonheur.

Chris : merci de "suppléer" un papa qui fête le diplôme de son petit dernier.

Bise à Chris 😉
Tape dans le dos à Roro 😉
A++ à tous
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Bojour le forum
Bonjour JCGL, Chris, Roro

J'ai suivi vos conseils mais j'ai un petit souci dans la création du code de l'en-tête.

Le code du pied de page qui fonctionne bien

Code: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim datejour
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Feuil1" And ws.Name <> "Fériés" Then
datejour = Format(Now, "dddd dd mmmm yyyy à hh:mm")
ws.PageSetup.LeftFooter = "Relevé de " & Range("A2").Value
ws.PageSetup.CenterFooter = "Imprimé le " & datejour
ws.PageSetup.RightFooter = "Page &P sur &N pages"
    End If
Next ws
End Sub

et le code de l'en-tête qui bug (erreur de compilation Nom ambigu détecté : Worbook_BeforePrint)

Code: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim moistravail
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Feuil1" And ws.Name <> "Fériés" Then
moistravail = Format("mmmm yyyy")
ws.PageSetup.CenterHeader = "Relevé mensuel du temps de travail :" & Range("B2").Value
    End If
Next ws
End Sub

La cellule B2 contient le mois de l'année au format mmmm aaaa, à ce niveau là j'ai dû oublié une ligne dans le code !!!

Il faut surement alléger tout çà pour ne faire qu'un code !

C'est difficile l'apprentissage, merci de votre aide.

Cibleo
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Re

Comme ceci :

Code: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim datejour
Dim moistravail
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Feuil1" And ws.Name <> "Fériés" Then
datejour = Format(Now, "dddd dd mmmm yyyy à hh:mm")
moistravail = Format("mmmm yyyy")
ws.PageSetup.CenterHeader = "Relevé mensuel du temps de travail :" & Range("B2").Value
ws.PageSetup.LeftFooter = "Relevé de " & Range("A2").Value
ws.PageSetup.CenterFooter = "Imprimé le " & datejour
ws.PageSetup.RightFooter = "Page &P sur &N pages"
    End If
Next ws
End Sub

Mais j'ai un petit souci au niveau du format de l'en-tête.

"Relevé mensuel du temps de travail : jeudi 01 mai 2008"

en lieu et place de "Relevé mensuel du temps de travail : mai 2008"

Ca doit clocher au niveau du format ou du & Range("B2").Value

Cibleo
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Bonjour à tous

modifies peut être la ligne de code comme suit :

Code: 
ws.PageSetup.CenterHeader = "Relevé mensuel du temps de travail :" &  Format(Range("B2").Value,"mmmm yy")

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Bonjour Pierrot93,

Merci çà marche Pierrot.

Et si je dois formater la taille de la police que dois je rajouter comme ligne et à quel niveau : exemple : Verdana 20

Cibleo
 
Vote positif 0 Vote négatif
Re : Procédure événementielle

Bonjour à tous,
Salut Pierrot 🙂,

Essaye avec :

Code: 
.CenterHeader = "&""Verdana,Normal""&20JCGL"

En remplaçant JCGL par ton texte et en respectant les ""

A+
 
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

Discussions similaires

Y
  • Question Question
Autres Macros étranges sur ancien fichier Excel
2
Réponses
17
Affichages
743
Oneida
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
160
Lu76Fer
M
  • Question Question
Microsoft 365 Impression et transfert de donné.
Réponses
5
Affichages
433
manga419
M
T
  • Résolu(e)
Microsoft 365 résolution erreur d'exécution 5 (argument ou appel de procédure incorrecte)
Réponses
9
Affichages
973
Hasco
S
  • Résolu(e)
XL 2016 Comment classer des résultats avec attributs et couleurs et avoir la somme des classes sur une feuille Excel?
Réponses
6
Affichages
729
stuka
S
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
582
GClaire
G
S
  • Question Question
Microsoft 365 Ajout d'une en-tete et pied de page via macro
Réponses
4
Affichages
1 K
saggigo
S
F
  • Résolu(e)
Microsoft 365 Boucle For Each avec remplissage de case puis création feuille selon données
Réponses
5
Affichages
882
Hasco
A
  • Question Question
Microsoft 365 limiter accès par mot de passe dès l'ouverture uniquement aux feuilles "visibles"
Réponses
2
Affichages
2 K
agathe marcadon
A
C
  • Question Question
XL 2010 grâce à une userform modifier une ligne dans deux feuilles
Réponses
3
Affichages
898
ccia
C
H
  • Question Question
XL 2016 Macro simple ou macro VBA ?
Réponses
4
Affichages
1 K
HaggarduNord
H
W
  • Question Question
XL 2013 génération de plusieurs fichiers nominatifs à partir d'une liste
Réponses
1
Affichages
788
wainso
W
L
  • Question Question
XL 2013 calcul avec excel
Réponses
2
Affichages
690
lepopoff
L
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
O
  • Résolu(e)
Automatiser des liens entre fichiers
Réponses
13
Affichages
1 K
oderoaldes
O
  • Question Question
Fonction VBA équivalente à la fonction INDIRECT Excel
Réponses
10
Affichages
10 K
Ethiryn - Glarilak
  • Question Question
3 boutons utilisent la meme procédure. Où la placer?
Réponses
4
Affichages
568
donpopo
M
  • Question Question
Insérer les données d'un userform sur ma feuille
Réponses
8
Affichages
4 K
Jacky67
  • Question Question
XL 2016 Code VBA pour Imprimer
Réponses
13
Affichages
4 K
AbuTalha
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…