Ouvrir automatiquement un commentaire

CR34 -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Configuration: Macintosh / Chrome 91.0.4472.124
A voir également:

3 réponses

Réponse 1 / 3
The_boss_68 Messages postés 952 Date d'inscription   Statut Membre Dernière intervention   182
 
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
0
Réponse 2 / 3
Raymond PENTIER Messages postés 58990 Date d'inscription   Statut Contributeur Dernière intervention   17 354
 
Bonjour CR34.

La réponse est NON, sauf peut-être en programmant une macro avec VBA ...
0
Réponse 3 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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 : 

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


0