Discussion :

[mandiant_du_savoir]

Bonjour,

Comment afficher un message qui oblige la saisie d un commentaire sur une cellule lorsqu'une autre est remplie merci d'avance pour vos reponses

P.S: j'utilise excel 2003 et 2007.

[PMO2017]

Bonjour,

Comment afficher un message qui oblige la saisie d un commentaire sur une cellule

Qu'entendez-vous par commentaire ?
1) est-ce la saisie d'un texte dans l'intérieur même d'une cellule (ex: A1 contiendrait "Salut les copains") ?
2) est-ce un objet "Commentaire" tel qu'on l'obtient en faisant menu (2003) Insertion/Commentaire ?

Merci de m'éclairer.

[Daniel.C]

Bonjour,

Par exemple, pour obliger la saisie du commentaire en colonne B lorsque tu saisis dans une cellule de la colonne A (macro à mettre dans le module de la feuille) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Txt As String
    If Target.Column = 1 Then
        Do Until Txt <> ""
            Txt = InputBox("Veuillez saisir le texte du commentaire")
        Loop
        If Target.Offset(, 1).Comment Is Nothing Then Target.Offset(, 1).AddComment
        Target.Offset(, 1).Comment.Text Txt
    End If
End Sub