Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Double click

Double click

4 réponses
Avatar
Brucat
Bonjour,

En double cliquant dans une cellule D15 de ma feuille3, je désire lancer une
macro.

Je me suis inspiré de l'aide Excel mais ?????????????

Private Sub Feuil3_BeforeDoubleClick(ByVal D15 As Range)

Macro "MAJ"

End Sub

Merci pour vos réponses.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ru-th
Salut

non testé
Private Sub Feuil3_BeforeDoubleClick(ByVal target As Range)
if target.address="$D$15" then maj
end sub

a+
rural thierry

"Brucat" a écrit dans le message de news:
bu643i$ma4$
Bonjour,

En double cliquant dans une cellule D15 de ma feuille3, je désire lancer
une

macro.

Je me suis inspiré de l'aide Excel mais ?????????????

Private Sub Feuil3_BeforeDoubleClick(ByVal D15 As Range)

Macro "MAJ"

End Sub

Merci pour vos réponses.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004




Avatar
Ellimac
Bonjour,

A mettre dans le code de la feuille concernée :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Excel.Range, Cancel As Boolean)
If Target.Address = "$D$15" Then MsgBox "coucou"
End Sub

Camille

-----Message d'origine-----
Bonjour,

En double cliquant dans une cellule D15 de ma feuille3,
je désire lancer une

macro.

Je me suis inspiré de l'aide Excel mais ?????????????

Private Sub Feuil3_BeforeDoubleClick(ByVal D15 As Range)

Macro "MAJ"

End Sub

Merci pour vos réponses.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date:
13/01/2004



.



Avatar
ChrisV
Bonjour Brucat,

Dans la feuille de code de l'onglet concerné:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$D$15" Then _
zaza
End Sub

avec dans un module du classeur:

Sub zaza()
MsgBox "A bientôt sur MPFE !"
End Sub


ChrisV


"Brucat" a écrit dans le message de news:
bu643i$ma4$
Bonjour,

En double cliquant dans une cellule D15 de ma feuille3, je désire lancer
une

macro.

Je me suis inspiré de l'aide Excel mais ?????????????

Private Sub Feuil3_BeforeDoubleClick(ByVal D15 As Range)

Macro "MAJ"

End Sub

Merci pour vos réponses.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004




Avatar
Brucat
Super
Merci
De ZAZA
"ChrisV" a écrit dans le message de
news:uiEup$
Bonjour Brucat,

Dans la feuille de code de l'onglet concerné:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$D$15" Then _
zaza
End Sub

avec dans un module du classeur:

Sub zaza()
MsgBox "A bientôt sur MPFE !"
End Sub


ChrisV


"Brucat" a écrit dans le message de news:
bu643i$ma4$
Bonjour,

En double cliquant dans une cellule D15 de ma feuille3, je désire lancer
une

macro.

Je me suis inspiré de l'aide Excel mais ?????????????

Private Sub Feuil3_BeforeDoubleClick(ByVal D15 As Range)

Macro "MAJ"

End Sub

Merci pour vos réponses.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004








---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004