Discussion :

[PapouMAC]

Bonjour

J'aimerais afficher un message en faisant un double-clic dans une cellule. Merci.

[Mobydick_62]

Bonjour,

Un exemple sur double clic sur la cellule B2

Cordialement

DoubleClic.ods

[PapouMAC]

bonjour

Merci beaucoup pour cette solution qui fonctionne très Bien.
Mais je vais abuser une dernière fois, comment fait-on pour récupérer la valeur de la cellule par un double clic sur celle-ci ? Merci.

[PapouMAC]

J'ai une autre question en rapport avec la 1ere , la solution donnée ne concerne que la cellule B2, mais comment faire afficher un message en cliquant sur n'importe quelle cellule ? Merci

[Mobydick_62]

RE,

Changer le code par celui-ci :
Dans ce cas le double clic est valable pour toutes les cellules de la feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
 'Macro relié à l'événement de la feuille sur double clic
 Sub ClicCellule()
  Dim oDoc As Object, oFeuille As Object, oCell As Object
  oDoc = ThisComponent
  oFeuille = oDoc.getSheets.getByName("Feuille1")
  oCell = ThisComponent.CurrentSelection
 'Affichage
  MsgBox (oCell.String, 64, "Valeur de la cellule") 
'ou  MsgBox (oCell.Value, 64, "Valeur de la cellule")
 End Sub

Cordialement

[PapouMAC]

Merci, mais j'ai le message suivant :

Erreur de syntaxe du BASIC.
Attendu :=

Et ceci à la ligne de MsgBox.

[PapouMAC]

J'ai résolu le problème en supprimant le message.
et je n'ai conservé que :

MsgBox oCell.String

Et là tout fonctionne. Encore Merci.