XL 2013 Afficher les commentaires en VBA

[lestoiles1]

Bonjour à tous,

J'aimerais afficher les commentaires qui se trouve dans la feuille détails dans la feuilles resumé.

Je m'explique, en passant le curseur de la souris sur la cellule contenant l'efficience (exemple: sur la cellule D7, ça affiche le commentaire du matricule 13719 du 16 Mars 😛ANNE MACHINE)

Merci de votre aide

Lestoiles1

 

[sousou]

Bonjour
un essai sur sélection d'une cellule
Question:
peut-il y avoir plusieurs fois le même matricule dans la même journée,
il reste encore à améliorer la sécu si pas de nom, pas de date.....
j'ai choisi de laisser le commentaire, il sera effacé lors de la prochaine sélection..
A voir

 

[lestoiles1]

Bonjour
un essai sur sélection d'une cellule
Question:
peut-il y avoir plusieurs fois le même matricule dans la même journée,
il reste encore à améliorer la sécu si pas de nom, pas de date.....
j'ai choisi de laisser le commentaire, il sera effacé lors de la prochaine sélection..
A voir

Bonjour,

Merci de votre réponse, non, il n'y a pas de même matricule dans une seule journée.

Je trouve que vous avez la clé a ce problème.

Est-il possible que ça n'affiche qu'un seul commentaire à la fois?

Merci

Patrice

 

[lestoiles1]

Je crois que c'est ok Sousou, Merci bcp

 

[sousou]

Re
Voici une version qui ajoute des contrôles sur l'existance d'un matricule à la date ( on ne sait jamais)
Pour ta question, je supprime tous les commentaires de la zone avant d'écrier celui choisit, si j'ai bien compris

 

[lestoiles1]

Re
Voici une version qui ajoute des contrôles sur l'existance d'un matricule à la date ( on ne sait jamais)
Pour ta question, je supprime tous les commentaires de la zone avant d'écrier celui choisit, si j'ai bien compris

C'est top, merci bcp

 

[lestoiles1]

Re
Voici une version qui ajoute des contrôles sur l'existance d'un matricule à la date ( on ne sait jamais)
Pour ta question, je supprime tous les commentaires de la zone avant d'écrier celui choisit, si j'ai bien compris

Bonjour Sousou, merci pour ton aide, mais est-ce que tu peux m'arranger quelque chose car à chaque fois que je selection 2 cellules ou une ligne ou un colonne, il y a toujour un message de bug qui s'affiche.

Pourrait-tu m'enlever ça stp.

Merci

Lestoiles

 

[sousou]

Bonjour
Corrige comme ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 3 And Target.Row > 2 And Target <> 0 Then
Call commentaire(Target)
End If
End Sub

 

[lestoiles1]

Bonjour
Corrige comme ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 3 And Target.Row > 2 And Target <> 0 Then
Call commentaire(Target)
End If
End Sub

MERCI