Affiche Msg box avec double clic sur cellule

[phylisias]

Bonjour à tous,

Sur une feuille (feuille1) de mon fichier Excel, j'ai préparé un tableau donnant une résumé des données présentes dans une autre feuille (feuille 2). Mon problème est que je voudrais pouvoir, lorsque je double clique sur une cellule précise de la feuille 1, faire apparaître un msg box qui afficherait les données d'une place de cellule de la feuille 2.

En naviguant sur le web, j'ai trouvé ce code qui en principe devrait faire ce que je souhaite. Par contre, lorsque je l'enregistre dans Visual Basic, ça m'indique qu'il y a des erreur en mettant en surbrillance soit la toute première ligne : Private Sub Worksheet_... ou la deuxième If Target.Address =...

Voici le code que j'avais trouvé:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Adress= "$A$1" Then
MsgBox (Cells(Target.Cells, A114).Value)

End If

End Sub

J'ai vraiment besoin de votre aide. Donc merci de à l'avance.

 

[CB60]

Re : Affiche Msg box avec double clic sur cellule

Bonjour
essai cela :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
MsgBox "tu a selectionné sur A1 " & Chr(10) & "la valeur de A2 est  " & Chr(10) & [A2].Value
End If
End Sub

à mettre dans le code de la feuille

 

[eriiic]

Re : Affiche Msg box avec double clic sur cellule

Bonjour,

ou :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.A[COLOR=Red]d[/COLOR]dress = "$A$1" Then
        MsgBox ("A114=" & [COLOR=Red]Worksheets("Feuil2").[/COLOR][A114].Value)
        Cancel = True
    End If
End Sub

eric

 

[Claudy]

Re : Affiche Msg box avec double clic sur cellule

Bonjour Eriiic,
Question :
Cancel=True pourquoi?
Merci

 

[eriiic]

Re : Affiche Msg box avec double clic sur cellule

Cancel = true pour annuler l'effet du double-clic et ne pas se retrouver en mode édition dans la cellule.
eric

 

[Claudy]

Re : Affiche Msg box avec double clic sur cellule

Ok, merci pour l'astuce

 

[phylisias]

Re : Affiche Msg box avec double clic sur cellule

Merci beaucoup pour vos réponses, malheureusement, ça ne fonctionne toujours pas. À chaque fois que j'enregiste, Excel me renvoi un message d'erreur. Voici ce qui se passe.

1. Un boite de dialogue s'ouvre pour me dire : Erreur de compilation: Erreur de syntaxe

2. Ensuite, dans ma fenêtre visual basic la première ligne (Private Sub Worksheet_BeforeRightClick...) se retrouve en surbrillance jaune

3. La deuxième ligne (If Target.Address = "$A$1") devient rouge.

Peut-être que finalement, ce code est vraiment inutile et que je devrais recommencer au début. Par contre, Je ne suis pas encore très à l'aise avec le VBA et je ne sais pas par où commencer. J'ai essayé plusieurs choses mais toujours en vain. Quelqu'un a un idée?

Merci encore.

 

[Claudy]

Re : Affiche Msg box avec double clic sur cellule

Bonjour,
Tu dois mettre cette procédure dans le code la feuille , fenetre VBA, tu cliques sur cette feuille et non pas dans un module classique!
A+
Claudy

 

[eriiic]

Re : Affiche Msg box avec double clic sur cellule

Pour être sûr de l'endroit où coller le code fais un clic-droit sur le nom d'onglet de la feuille et 'visualiser le code'
eric