Mon "Private Sub" correct mais a placer

  • Initiateur de la discussion Initiateur de la discussion herve80
  • 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 !

herve80

XLDnaute Occasionnel
Bonjour,

J'ai une macro (de vous) affichant les commentaires en passant au clavier sur la cellule, macro inefficace à cause de la 2ième macro en bas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Comment
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set c = Target.Comment
If Not c Is Nothing Then Target.Comment.Visible = True
End Sub


Problème : j'ai déjà dans ThisWorkbook une macro utilisant 2 modules :

Private Sub Workbook_Open()
Sheets("03-09b").Select
Range("B3").Select
MsgBox "Manque heures du 1 mars "
Application.OnKey "{F1}", "comm"
Application.OnKey "{F3}", "points"
End Sub


Question : à part mettre la 1ière macro dans chaque feuille, il n'y aurait pas un autre moyen (parce que 9 classeurs excel * 6 feuilles = 54 fois mettre la macro !) ?

NB : désolé pour la longueur du message et merci de votre aide ! 😉
 
Re : Mon "Private Sub" correct mais a placer

Bonjour

au lieu de mettre ta macro dans chaque feuille tu as essayé de la mettre dans le thisworkbook avec l'evenement

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub
 
Re : Mon "Private Sub" correct mais a placer

Bonjour

au lieu de mettre ta macro dans chaque feuille tu as essayé de la mettre dans le thisworkbook avec l'evenement

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

PascalXLD,

Un seul mot : "You are the man". Tout est ok, et je gagne encore quelques précieuses secondes dans mon travail.

Je te souhaite une excellente journée
 
- 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

Retour