Discussion :

[jejette]

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

[Krovax]

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

[Didier Gonard]

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 :

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

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

[Pantagruel92]

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

[aalex_38]

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 :

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

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

[Didier Gonard]

Bonjour,

ou, pour une cellule donnée :

Code :

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

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

[Pantagruel92]

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

[Pantagruel92]

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.
jacques