Discussion :

[grrimag]

Bonjour à tous.

Encore un problème simple à vous soumettre.
Dans une feuille excel, j'ai plein de données et je voudrais que lorsque l'utilisateur sélectionne une case, un message d'info (spécifique à la case)s'affiche.
Mais je ne veux pas utiliser une msgbox car cela oblige l'utilisateur à cliquer dedans pour la fermer (ce qui va finir par être long et gonflant). Est-ce que quelqu'un aurait une idée sublime??

Merci à tous

Grrimag

[wilfried_42]

Bonjour

Regarde les commentaires, associé avec une macro evennementielle, Worksheet_selectionchange

Salutations

[grrimag]

Oui, ça c'est pas le problème. J'arrive sans problème à afficher ce que je veux quand l'utilisateur bouge.
Je veux juste l'afficher autrement que par msgbox. Ci-dessous le code en question (un peu simplifié):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim activer As Boolean
activer = (Feuil2.Cells(2, 1).Value = 1)
If activer = True Then
    If Target.Column < 3 Then
        Select Case Feuil9.Cells(Target.Row, 2).Value
            Case Is = "A"
                MsgBox "A"
            Case Else
                MsgBox "pas K"
        End Select
    End If
End If
End Sub

Merci

[wilfried_42]

re:

Tu mets dans un module, tout en haut

Code :

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

Public mem_select as range

Cela permettra de supprimer le commentaire qui à été créer

ensuite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim activer As Boolean, comm as comment, travail as string
' detruit le commentaire de l'ancienne cellule si elle a fait l'objet d'un commentaire par cette procedure
      if non mem_select is nothin then mem_select.comment.delete 
      activer = (Feuil2.Cells(2, 1).Value = 1)
      If activer = True Then
' Met en memoire la cellule pour destruction future du commentaire
            set mem_select = target
            If Target.Column < 3 Then
                   Select Case Feuil9.Cells(Target.Row, 2).Value
                         Case Is = "A"
                                travail =  "A"
                         Case Else
                                travail =  "pas K"
                   End Select
                   Set comm = target.AddComment
                   comm.Text travail
                   comm.visible = true
            End If
      End If
End Sub

@ te lire

[ouskel'n'or]

Ou tu peux simplement mettre tes commentaires dans le code, dans Worksheet_SelectionChange

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Blabla
    For Each Blabla In ActiveSheet.Comments
        Blabla.Delete
    Next
    Select Case Target.Address(False, False)
        Case "D6"
            Range("D6").AddComment
            Range("D6").Comment.Text Text:="L'auteur" & Chr(10) & "blabla pour la cellule D6"
        Case "E8"
            Range("E8").AddComment
            Range("E8").Comment.Text Text:="L'auteur" & Chr(10) & "blabla pour la cellule E8"
    End Select
    Application.DisplayCommentIndicator = xlCommentAndIndicator
End Sub

Tu peux tester en sélectionnant les deux cellules mensionnées D6 ou E8
A+

[grrimag]

Merci Wilfried, ça marche nickel!!
dsl ousk', j'ai vu ta solution trop tard. Mais elle marche aussi, je l'ai testée.