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 ! 😉
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 ! 😉