Fenetre sur cellule

XXOR · 25 Mars 2005

Bonjour le forum ,

est il possible , en mettant le curseur sur une cellule , qu une fenetre s'ouvre pour afficher les resultats de la cellule A1,A2,A3 d'une autre feuille .

je sais pas si vous me comprenez bien alors voici le fichier .

merci

Hervé · 25 Mars 2005

Bonjour

Il manque ton fichier.

Sinon, en pièce jointe, une proposition, me satisfaisant qu'à moitié.

a plus
[file name=xxor.zip size=12047]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/xxor.zip[/file]

xxor · 25 Mars 2005

Merci , c est un peu ca mais sans cliquer dans la cellule , l'affichage se fait comme pour un commentaire

Hervé · 25 Mars 2005

Bonjour

Il n'existe pas de méthode pour faire apparaitre un commentaire ou quoi que ce soit d'autre par le survol de cellule :

ce code affiche un commentaire pour repérer les valeurs de la feuille 2 :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

For Each commentaire In ActiveSheet.Comments
    commentaire.Delete
Next commentaire

With Sheets('feuil2')
letexte = 'A1 = ' & .Range('a1') & Chr(10) & _
          'A2 = ' & .Range('a2') & Chr(10) & _
          'A3 = ' & .Range('a3') & Chr(10)
End With

Target.AddComment letexte
End Sub

Celui-ci utilise la barre d'état de excel, pour peu qu'elle ne soit pas masqué :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim letexte As String
With Sheets('feuil2')
letexte = 'A1 = ' & .Range('a1') & ' ' & _
          'A2 = ' & .Range('a2') & ' ' & _
          'A3 = ' & .Range('a3') & ' '
End With

Application.StatusBar = letexte
End Sub

Sinon, en excel 2002, il existe dans le menu outils/audits de formules/Afficher la fenêtre espions, une méthode qui parait correspondre à ton besoin.

A plus

XXOR · 25 Mars 2005

Merci pour ta reponse
la 2eme solution me plait bien
toutefois lorsque je change les chiffres sur la feuil2 je suis oblige de revenir sur la feuil1 pour que ca valide .

Hervé · 25 Mars 2005

re

oui, sinon, places cette macro dans le module thisworkbook, dans :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim letexte As String

With Sheets('feuil2')
letexte = 'A1 = ' & .Range('a1') & ' ' & _
'A2 = ' & .Range('a2') & ' ' & _
'A3 = ' & .Range('a3') & ' '
End With

Application.StatusBar = letexte

End Sub

Et ainsi, elle sera disponible pour chaque feuille du classeur.

A plus

Hervé · 25 Mars 2005

re

Complément d'info, dans le module thisworkbook, places cette macro, ainsi tu quitteras ton fichier, en vidant la barre d'état :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = ''
End Sub

Plus propre.

Bye

Fenetre sur cellule

XXOR

Guest

Hervé

XLDnaute Barbatruc

Pièces jointes

xxor

Guest

Hervé

XLDnaute Barbatruc

XXOR

Guest

Hervé

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Discussions similaires