Saisir un commentaire.

Luigi · 2 Juin 2009

Bonjour à vous tous

Je voudrais via une macro Excel saisir dans la cellule [D6] un commentaire lorsque la cellule contient la lettre « P », le voudrais que la fenêtre commentaire s’ouvre que je puisse saisir mon texte et après en cliquant sur une autre cellule que la fenêtre commentaire se ferme.
Quelqu’un pourrait-il m’aider sur cette demande, ci-dessous la macro que j’ai réalisé le problème c’est que je ne sais pas comment faire pour saisir mon texte qui n’est jamais le même.

Merci

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If [D6] = "P" Then

Range("D6").Select
Range("D6").AddComment
Range("D6").Comment.Visible = True
MsgBox "Saisir le texte"
Range("D6").Comment.Text Text:="lneves:" & Chr(10) & "Test commentaire"
Range("D6").Select
ActiveCell.Comment.Visible = False

Else: [D6] = "O"

Range("D6").Select
Selection.ClearComments
End If
Range("A1").Select
End Sub

mromain · 2 Juin 2009

Re : Saisir un commentaire.

bonjour Luigi,

tu devrais trouver ton bonheur avec

Code:

Application.InputBox

a+

Luigi · 2 Juin 2009

Re : Saisir un commentaire.

Merci mromain pour le conseille, je ne connais pas encore le code "Application.InputBox" je vais essayé.

A+

myDearFriend! · 2 Juin 2009

Re : Saisir un commentaire.

Bonsoir Luigi, mromain, le Forum,

Si j'ai bien compris ce que tu cherches à faire, tu peux éventuellement tester cette autre façon de faire qui te permettra la saisie du texte directement dans le frame du commentaire. Code à copier dans le module de code de la Feuille :

Code:

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=GREEN]'myDearFriend!  -  www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Worksheet_Change([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
[COLOR=NAVY]Dim[/COLOR] Cmt [COLOR=NAVY]As[/COLOR] Comment
    [COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target(1), Range("D6")) [COLOR=NAVY]Is Nothing Then
        With[/COLOR] Target(1)
            [COLOR=NAVY]If[/COLOR] .Value = "P" [COLOR=NAVY]Then
                Set[/COLOR] Cmt = .Comment
                [COLOR=NAVY]If[/COLOR] Cmt [COLOR=NAVY]Is Nothing Then Set[/COLOR] Cmt = .AddComment
                [COLOR=NAVY]With[/COLOR] Cmt
                    .Visible = [COLOR=NAVY]True[/COLOR]
                    .Shape.[COLOR=NAVY]Select
                End With[/COLOR]
                Application.CommandBars.FindControl(ID:=1401).Execute
            [COLOR=NAVY]ElseIf[/COLOR] .Value = "O" [COLOR=NAVY]Then[/COLOR]
                .ClearComments
            [COLOR=NAVY]End If
        End With
    End If
End Sub[/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Worksheet_SelectionChange([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
    [COLOR=NAVY]On Error Resume Next
    If[/COLOR] Application.Intersect(Target, Range("D6")) [COLOR=NAVY]Is Nothing Then[/COLOR]
        Range("D6").Comment.Visible = [COLOR=NAVY]False
    End If
End Sub[/COLOR]

Si tu veux absolument mettre le code dans le ThisWorkbook (comme dans ton exemple), il conviendra d'utiliser Workbook_SheetChange() et Workbook_SheetSelectionChange().

Cordialement,

Saisir un commentaire.

Luigi

XLDnaute Occasionnel

mromain

XLDnaute Barbatruc

Luigi

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Saisir un commentaire.

Luigi

XLDnaute Occasionnel

mromain

XLDnaute Barbatruc

Luigi

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency