Ouvrir automatiquement un commentaire
Fermé
CR34
-
13 déc. 2021 à 17:00
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 14 déc. 2021 à 11:10
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 14 déc. 2021 à 11:10
A voir également:
- Ouvrir automatiquement un commentaire
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir un fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier 7z - Guide
3 réponses
The_boss_68
Messages postés
932
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
24 janvier 2025
178
13 déc. 2021 à 18:48
13 déc. 2021 à 18:48
Bonsoir,
Un fichier EXCEL complété par des explications anonymisé mis sur https://www.cjoint.com/ permettrait aux intervenants de répondre plus précisément à ta question.
Slts
Un fichier EXCEL complété par des explications anonymisé mis sur https://www.cjoint.com/ permettrait aux intervenants de répondre plus précisément à ta question.
Slts
Raymond PENTIER
Messages postés
58836
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 janvier 2025
17 275
13 déc. 2021 à 23:28
13 déc. 2021 à 23:28
Bonjour CR34.
La réponse est NON, sauf peut-être en programmant une macro avec VBA ...
La réponse est NON, sauf peut-être en programmant une macro avec VBA ...
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
14 déc. 2021 à 11:10
14 déc. 2021 à 11:10
Bonjour,
en vba faire Alt F11 sur la feuille concernée pour accéder à l'éditeur.
Mettre ce code qui se déclenchera au double clic sur une cellule de la colonne A :
en vba faire Alt F11 sur la feuille concernée pour accéder à l'éditeur.
Mettre ce code qui se déclenchera au double clic sur une cellule de la colonne A :
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Value = "" Then Exit Sub
'si il y a pas de commentaire, on en ajoute un
If Range(Target.Address).Comment Is Nothing Then Range(Target.Address).AddComment
'on le rend visible
Range(Target.Address).Comment.Visible = True
'on écrit notre texte. vbLf permet de passer à la ligne
Range(Target.Address).Comment.Text Text:="N° CB:" & vbLf & "Heure d'arrivée:" & vbLf & "N° de chambre:"
End If
End Sub