> Tous les forums > Forum Bureautique
 Débutant en Macro Excel, essai double clickSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jlb34
  Posté le 23/12/2008 @ 16:20 
Aller en bas de la page 
Petit astucien

Débutant en Macro Excel, essai double click

Bonjour,
j'esaye de faire marcher la macro indiquée ci-dessus...
C:\D9.xls existe est est chargé.
le double click ne donne rien !!!
Que manque-t-il ???
Remerciemeznts

bien@vous

Sub essaiD9()
BaseD9 = "C:\D9.xls"
Workbooks.Open Filename:=BaseD9
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "J'aidouble cliqué sur la cellule " & Target.Address
Cancel = True
End Sub

Publicité
gilbert_rgi
 Posté le 23/12/2008 à 17:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

La macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "J'aidouble cliqué sur la cellule " & Target.Address
Cancel = True
End Sub

doit se trouver dans la feuille du double clic

elle ne fonctionnera pas dans le fichier fraichement ouvert par

Sub essaiD9()
BaseD9 = "C:\D9.xls"
Workbooks.Open Filename:=BaseD9
End Sub

Salutations

Gilbert_RGI

jlb34
 Posté le 23/12/2008 à 18:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

Mille fois Merci pour la rapide réponse...

TRES Débutant... Comment l'y mettre ???

bien@toi

gilbert_rgi
 Posté le 24/12/2008 à 11:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

voir ceci http://silkyroad.developpez.com/VBA/VisualBasicEditor/#LVI

Salutations

Gilbert_RGI

gilbert_rgi
 Posté le 24/12/2008 à 11:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

ce qui doit donner :

IMPORTANT : charger la bibliothèque

Microsoft Visual Basic for Applications Extensibility 5.3

Sub mon_test()

BaseD9 = "C:\test2.xls"
Workbooks.Open Filename:=BaseD9
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
X = .CountOfLines

.InsertLines X + 1, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"
.InsertLines X + 2, "MsgBox ""J'ai double cliqué sur la cellule """ & Chr(38) & " Target.Address"
.InsertLines X + 3, "Cancel = True"
.InsertLines X + 4, "End Sub"

End With

End Sub

Espérant avoir répondu à votre attente

Salutations

Gilbert_RGI

PS: Joyeuses fêtes de Noël



Modifié par gilbert_rgi le 24/12/2008 11:24
jlb34
 Posté le 24/12/2008 à 12:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour et bon Noël

Mille fois merci pour cette réponse rapide

Vais essayer...

Je clique sur Résolu !!!

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
308,95 €Disque dur externe Western Digital Elements Desktop USB 3.0 18 To à 308,95 € livré
Valable jusqu'au 22 Mai

Amazon Allemagne propose actuellement le disque dur externe Western Digital Elements Desktop USB 3.0 18 To à 302,51 €. Comptez 6,44 € pour la livraison en France soit un total de 308,95 € livré. On le trouve ailleurs à partir de 450 €. Ce disque dur dispose d'un grande capacité de stockage (18 To) et d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire.

Notez que le disque dur n'est pas soudé et que vous pouvez le récupérer pour l'utiliser dans un ordinateur ou un NAS (il s'agit d'un disque dur CMR Hélium UltraStar DC HC 550).


> Voir l'offre
-7 €-7 € dès 20 € pour une première livraison en point de retrait Amazon (selon éligibilité)
Valable jusqu'au 17 Juin

Amazon propose actuellement 7 euros de remise dès 20 euros d'achats avec le code 7RETRAIT pour une première livraison en point de retrait Amazon. Vous pouvez vérifier votre éligibilité à cette offre en vous rendant sur cette page. Vous trouverez la liste des points de retrait sur cette page.


> Voir l'offre
649,99 €Microsoft Surface Laptop 3 13,5 pouces tactile (Core i5, 8 Go, SSD 128 Go) à 649,99 €
Valable jusqu'au 22 Mai

Fnac fait une promotion sur le tout récent ordinateur portable Microsoft Surface Laptop 3 13 pouces tactile qui passe à 649,99 € alors qu'on le trouve ailleurs autour de 749 €. Cet ordinateur de très grande qualité dispose d'un écran tactile de 13 pouces 2736x1824 pixels, de 8 Go de RAM, d'un processeur Intel Core i5 1035G7, d'un SSD de 128 Go (qui est facilement remplaçable si besoin). Il ne pèse que 1,2 kg et offre une autonomie jusqu'à 9h. Le tout tourne sous Windows 10 Pro.


> Voir l'offre

Sujets relatifs
2 pages par feuille dans macro excel
Creation d' une boucle macro dans fichier EXCEL pour impression
besoin d'une macro excel 2007
Macro Excel. Mes colonnes disparaissent.
libre Office : macro Excel présente et non active
[Excel 2007] Macro : Sélection d'un tableau selon sa longueur variable
Macro couleur séries graphique excel 2010
excel 2007 macro mise en page, quadrillage, filtre
Excel 2007 macro rajouter tri + cellule en surbrillance à chaque changement
Macro pour ouverture d'un fichier Excel
Plus de sujets relatifs à Débutant en Macro Excel, essai double click
 > Tous les forums > Forum Bureautique