Un texte dans une zone

[Laydie]

Bonjour le Forum

Fichier en exemple
La colonne K est masquée.

En face de chaque ligne de la colonne J correspond un texte caché dans la colonne K.

Est il possible via une macro:

En se positionnant ou en cliquant sur le titre en colonne J faire apparaître le texte correspondant dans la colonne K dans la zone jaune en J1 et ceci serait valable pour les 300 titre que je dois traiter ?

Je clique sur n'importe quel titre et le commentaire apparaît dans la zone jaune.

Merci pour votre aide

Laydie [file name=Essai_20060210130847.zip size=7553]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_20060210130847.zip[/file]

 

[Jacques87]

Bonjour Laydie, dis cela te convient-il ? (lol)

Bonne journée [file name=Essai_20060210132647.zip size=7347]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_20060210132647.zip[/file]

 

[JC de Lorient]

salut

mets ce code sur le VBA de ta feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('J:J')) Is Nothing Then
Range('J1') = ActiveCell.Offset(0, 1)
End If
End Sub


JC

 

[Abel]

Bonjour JC de Lorient, Jacques87, Laydie

Je me permets.

Juste une petite amélioration pour éviter un déclenchement si on clique dans une des colonnes de A à I :
If Target.Column = 10 Then Range('J1').Value = Range('K' & ActiveCell.Row).Value

Il y a d'autre solutions.
C'est la plus courte si on considère qu'il n'y a pas d'autre types d'informations en bas des colonnes J et K.

Abel.

Edition :
Oups ! En fait, je n'avais pas vu ta réponse, JC.
Même motif, solution différente.

Message édité par: Abel, à: 10/02/2006 13:37

 

[Jeannot45]

Bonjour Ladie, Jacques, JC, Abel et les autres ...

Je me suis amusé à aller un peu plus loin ...
voir code ci-dessous

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim objIntersect As Range
    Static strAddress As String
    On Error Resume Next
    
    'Supprime s'il existe le dernier comment ouvert
    If Range(strAddress).Comment.Visible = True Then
        Range(strAddress).Comment.Delete
    End If
    
    If Intersect(Range('J2:J5'), Target) Is Nothing Then
        If Range(strAddress).Comment.Visible = True Then
            Range(strAddress).Comment.Delete
        End If
        Exit Sub
    Else
        ActiveCell.AddComment (ActiveCell.Offset(0, 1))
        ActiveCell.Comment.Visible = True
        ' Récupère l'adrese du Comment ouvert
        strAddress = ActiveCell.Address
    End If
End Sub

En fait j'utilise les commentaires des cellules

Just for the fun ...

Jeannot

 

[Jeannot45]

re,

Pour faciliter la lecture voici le fichier

A+

JEannot [file name=GestionInfosBulles.zip size=8656]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GestionInfosBulles.zip[/file]

 

[Laydie]

Merci à tous pour vos réponses

Grace à vous j'ai résolu mon problème.

Félicitations

Laydie