Commentaire(s) dans une msgbox

[Evelynetfrancois]

bonjour à tous
voici le contexte .et donc mon probleme

Dans la colonne A j'ai les dates qui se suivent .........

est-il possible en cliquant sur une des dates ,de renvoyer dans une seule msgbox ou USF le contenu du ou des commentaires de cette meme ligne ?

MERCI d'avance pour toutes vos idées ...........
bonne soirée a tous

E et F

 

[Spitnolan08]

Re : Commentaire(s) dans une msgbox

Bonsoir,

C'est possible avec un double clic (Si j'ai bien compris la question...), mais quel intérêt ? L'utilisation des MsgBox est très lourde : obligation de cliquer pour qu'ils s'effacent alors qu'un commentaire dans une cellule est visible en cliquant sur le petit onglet et s'efface tout seul. Avec dans les deux cas une action volontaire de l'utilisateur au départ...

Cordialement

Edit : Au vu de la réponse de Fred65200 peut être pas bien compris la question.

 

[fred65200]

Re : Commentaire(s) dans une msgbox

bonsoir,

si j'ai bien compris, pour obtenir tous les commentaires d'une ligne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim C As Range
Dim Msg As String
If Target.Column = 1 And Target.Count = 1 Then
  On Error Resume Next
  For Each C In Range(Cells(Target.Row, 1), Cells(Target.Row, Rows(Target.Row).Find("*", , , , , xlPrevious).Column))
    If Not C.Comment Is Nothing Then
      Msg = Msg & C.Address & vbLf & C.Comment.Text & vbLf & "----" & vbLf
    End If
  Next
  If Not Msg = "" Then MsgBox Msg
  Cancel = True
End If

End Sub

à placer dans le module de feuille
clic droit sur l'onglet / visualiser le code

l'événement se déclenche au double clic.
NB les cellules commentée doivent contenir une valeur (texte ou autre)
Cordialement

 

[Evelynetfrancois]

Re : Commentaire(s) dans une msgbox

BONJOUR
MERCI beaucoup fred65200 c'est exactement ce que je souhaité ..super !!!
Spitnolan08 , oui je m'étais peut-etre mal fait comprendre ..
en tout cas merci pour votre réactivité
au plaisir de vous lire ..............
E et F

 

[Evelynetfrancois]

Re : Commentaire(s) dans une msgbox

bonjour
NB les cellules commentée doivent contenir une valeur (texte ou autre)
ou une valeur bidon (1) en bout de ligne IV
E et F

 

[fred65200]

Re : Commentaire(s) dans une msgbox

bonjour,
pour corriger, j'aurais du y penser plus tôt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 1 And Target.Count = 1 Then
Dim C As Range
Dim Msg As String
[COLOR=Red]Dim DerColComm As Long
DerColComm = [/COLOR][COLOR=Red]Rows("1:1").SpecialCells(xlCellTypeLastCell).Column[/COLOR]
  For Each C In Range(Cells(Target.Row, 1), Cells(Target.Row, DerColComm))
    If Not C.Comment Is Nothing Then
      Msg = Msg & C.Address & vbLf & C.Comment.Text & vbLf & "----" & vbLf
    End If
  Next
  If Msg = "" Then MsgBox "Pas de commentaire sur cette ligne." Else MsgBox Msg
  Cancel = True
End If

End Sub

cordialement

 

[Evelynetfrancois]

Re : Commentaire(s) dans une msgbox

Merci Fred !!
E et F