Ouvrir automatiquement un commentaire
CR34
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Est il possible d'ouvrir automatiquement un commentaire lorsqu'une cellule est remplie?
Exemple pour un planning de réservation d’hôtel :
Un client réserve pour 3 nuits. Je sélectionne A1+A2+A3 et insère une couleur. Automatiquement, le commentaire apparait pour remplir son N° de CB, son heure d’arrivée, etc…
Merci
Est il possible d'ouvrir automatiquement un commentaire lorsqu'une cellule est remplie?
Exemple pour un planning de réservation d’hôtel :
Un client réserve pour 3 nuits. Je sélectionne A1+A2+A3 et insère une couleur. Automatiquement, le commentaire apparait pour remplir son N° de CB, son heure d’arrivée, etc…
Merci
Configuration: Macintosh / Chrome 91.0.4472.124
A voir également:
- Ouvrir automatiquement un commentaire
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment ouvrir un fichier 7z - Guide
3 réponses
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
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