Fenêtre de commentaire programmable

Bonjour le forum;

je me suis demandée en ce bon matin de Vendredi si quelqu'un pouvait me renseigner sur la possiblité de programmer sur excel des sortes de fenêtres qui s'ouvrent juste en frôlant la /les cellule(s), le contenu de ces fenêtres devrait être programmable (dépend de la valeur d'autres cellules) et pour finir elles se fermeraient aussitot qu'on sort du champ de la/des cellule(s).

Si quelqu'un à déjà programmé/vu ce type d'application, ce me serait bien utile d'en savoir plus.



Merci

Bonjour
pour lancer une macro a la selection d'une cellule (pour le survole il me semble, mais je peux me tromper, que ce n'est pas possible, ou alors tu truf ton fichier de frame avec l'évènement mouse move)

Ensuite les fenêtre s'appelle des userforms

Voila de la lecture pour ton week-end
Les évènements dans la feuille de calcul Excel
Utiliser les UserForm en VBA Excel
Utiliser les contrôles dans un UserForm

Edit : C'est vrai que les commentaire serais plus pratique s'il veux juste afficher du texte

Bonjour,

fais des recherches sur le forum sur les Commentaires.
fais insertion commentaire sur un classeur test avec l'aide de l'enregistreur vba pour voir aussi.

par exemple :

Code:

---

Range("C7").Comment.Text Text:=Range("E7").Value

---

à rafraîchir avec un évènement change sur les cellules renfermant les données à afficher..

cordialement,

Didier

Bonjour,
Je suis aussi interesse par la question de jejette. Comment declancher une macro à la selection d'une cellule? la litterature que tu nous fais lire, Krovax, ne parle que d'evenements sur une feuille. Je n'ai jamais trouve l'equivalent sur une cellule particulière ou une plage de cellules.
Merci
Jacques

Citation:

---

ne parle que d'evenements sur une feuille

---

Les evenements de feuille renvoient un objet range appelé target qu'il suffit de tester.

un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo geserr If Target.Cells.Count = 1 Then 'Appliquer seulement sur cellule unique If Target.Value > " " Then If Target.Column = 1 Then ' ... End If End If   geserr: If Err.Number > 0 Then Debug.Print Err.Number & " : " & Err.Description & vbCrLf & "..." End If End Sub

---

edit: un exemple récent par Krovax ici

Bonjour,

ou, pour une cellule donnée :

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("E7")) Is Nothing Then MsgBox "Toto" End If End Sub

---

Toto quand E7 est sélectionné (seul ou en plage), pour seul, combiner avec le code d'aalex_38 /count ;)

PS : on est bien loin du titre du post de départ ;)

cordialement,

Didier

commentaire, : oups ! envoyé avant rajout du lien / post précédent

OK!
je ne connaissais pas Target et Intersect :oops:
je vais essayer tout ça des demain.
Merci!

Voilà, ça marche. J'aurais appris quelque chose!
Je ne clos pas la discussion : c'est jejette qui l'a ouverte, je ne sais pas s'il a lu tout ça.
merci encore.:P
jacques