Evenement BeforeDoubleClick() qui fonctionnerait dans excel

Bonjour à tous, alors voila, je cherche à savoir si cette fonction est réalisable:

Dans ma macro, un userform s'ouvre, et demande une valeur, or l'utilisateur ne peux pas connaitre cette valeur, il y a donc un bouton , rechercher valeur sur ma userform, et en cliquant, la macro se met sur pause, active un workbooks ( qui est variable donc impossible d'ecrire l'évenement dans la workbooks, sauf si il est possible de coder, l'écriture de l'evenement dans la workbooks via la macro).

A partir de la, ce que je voudrai, c'est qu'en double cliquant sur la cellule, la valeur soit recupérée, et recopier dans la textbox1 de la userform.

voici mon code: son seul probleme, l'evenement Worksheet_BeforeDoubleClick() est ecrit dans un module, or je sais qu'il faut le mettre dans la worksheet, mais, c'est impossible, car la macro traite des workwooks qui sont variables, et donc jamais les memes.

code macro

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton3_Click() flag = True Application.ScreenUpdating = True Do While flag = True UserForm4.Hide Workbooks(variable11).Activate Application.EnableEvents = True DoEvents Loop UserForm4.Show

---

code evenement

Code:

---

1 2 3 4 5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) UserForm4.TextBox1.Value = Target.Value Cancel = True flag = False End Sub

---

Des solutions? Merci pour votre aide

Bonjour

Si la macro est est cours, je ne pense pas que les autres événements soient gérables.

Je verrai plutôt une solution par sélection :

Code:

---

1 2 3

Set plage = Application.InputBox(Prompt:="Sélectionnez la cellule correspondant à blabla.", _ Title:="Sélection de cellule", _ Left:=300, Top:=10, Type:=8)

---

Bonjour,
Utilise la procédure événementielle Workbook_SheetBeforeDoubleClick de l'objet ThisWorkbook
sh est l'objet feuille

Code:

---

1 2 3 4

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Cancel = True MsgBox Sh.Name End Sub

---

bonjour, merci pour vos réponses, tout d'abord, j'essaye en parrallèle les deux méthodes, mais celle avec evenement me plait :).

petite question, cet évenement, fonctionne donc bien avec TOUT les workbooks ouverts dans cette meme fenetre d'excel alors?,

ou dois-je taper ce code? dans un module du workbooks ou la macro est ecrite , ou bien ailleur?

Merci

Bonjour,
L'objet ThisWorkbook signifie bien ce classeur.
Un peu de lecture sur le sujet

petite erreur dans la rédaction de mon sujet, ce sont bien des workbooks variables, et non pas des worksheets... du coup sa ne marche plus je suppose, j'ai déja lu le lien :), et n'est pas trouvé le meme evenement pour tout les workbooks....


merci

Bonjour,
Ah oui, c'est pas vraiment la même chose.
Comme l'a si bien écrit Boileau Ce que l'on conçoit bien ...

donc pas de solution du coté des évènement? meme si la macro ecrit le code pour l'evenement dans chaque workbooks?

Bon, jai un petit peu avancé, j'ai donc rédigé ( et récuperer un code lol) un code pour écrire dans le module de chaque feuille de mes workbooks. voici donc ce code qui fonctionne car j'ai vérifié que le code était bel et bien inscrit dans le module de chaque feuille :

Code:

---

1 2 3 4 5 6 7 8 9

Dim f, LeCode(1 To 5) LeCode(1) = "Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)" LeCode(2) = " UserForm4.TextBox1.Value = Target.Value" LeCode(3) = "Cancel = True" LeCode(4) = "flag = False" LeCode(5) = "End sub" For f = 1 To 5 Workbooks(variable11).VBProject.VBComponents("Feuil1").CodeModule.InsertLines f, LeCode(f) Next f

---

grace à une boucle suppérieure, ce code s'inscrit dans tous mes workbooks.

ensuite, j'ai conservé mon code initial dans le topic, et je me retrouve coincé dans ma macro, avec mon workbooks actif à l'écran, j'ai la main, mais meme avec le double clic sur une cellule, impossible de quitter l'étape doevents...

que dois-je faire pour quitter ce Doevents? ( voir ligne 9 de ce code )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton3_Click() flag = True Application.ScreenUpdating = True Do While flag = True UserForm4.Hide Workbooks(variable11).Activate Application.StatusBar = "Selectionner le rendement tube" Application.EnableEvents = True DoEvents Loop Application.StatusBar = False UserForm4.Show End Sub

---

Merci

Bonsoir,

Citation:

---

Bon, jai un petit peu avancé, j'ai donc rédigé ( et récuperer un code lol) un code pour écrire dans le module de chaque feuille de mes workbooks. voici donc ce code qui fonctionne car j'ai vérifié que le code était bel et bien inscrit dans le module de chaque feuille :

---

Le code qui suit ne peux pas être écrit dans chaque feuille de tes WorkBooks mais dans tous les Workbooks car c'est une procédure événementielle pour ThisWorkBook.

Code:

---

1 2 3

Dim f, LeCode(1 To 5) LeCode(1) = "Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)" LeCode(2) = " UserForm4.TextBox1.Value = Target.Value"

---

La procédure événementielle ci-dessous est une procédure de l'objet ThisWorkbook
Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Celle-ci est une procédure événementielle de l'objet feuille
Worksheet_SelectionChange(ByVal Target As Range)

Citation:

---

Envoyé par corona

La procédure événementielle ci-dessous est une procédure de l'objet ThisWorkbook
Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Celle-ci est une procédure événementielle de l'objet feuille
Worksheet_SelectionChange(ByVal Target As Range)

---

Oui mais, pourquoi un évenement qui marche dans le workbooks, ne serait pas identifié dans une worksheet de ce meme workbooks ?

>>Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Identifie le double clic dans une cellule.

Cet évènement est déclenché à la suite de WorkSheet_BeforeDoubleClick.


l'evenement workbooks s'ecrit-il ailleur ? que celui worksheets? ( pour ma culture)


je vais essayer avec ce code :>

Code:

---

Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

---

Derniere question, y aurait-il une commande a rajouter en fin de boucle, pour supprimer ce code de la feuille, pour éviter qu'un utilisateur lambda utilise cette feuille, avec l'évenement double clic modifié ?


Merci Pour votre aide

Bon bon, d'une part le code fonctionne, cad: la macro se met en pause grace au doevents, et laisse la main à l'utilisateur, ce qui lui permet de selectionner la valeur voulu, à travers l'évènement doubleclick de la feuille.

Mais après sa, les instructions de l'evenement s'effectue, mais impossible de revenir dans la macro, elle reste en pause sur le doevents, comment faire pour la relancer sans devoir appuyer sur un bouton, juste avec une instruction en fin d'evenement.

Sachant deja que dans ma macro, elle est encadré par une boucle, donc la condition de validation est dans l'evenement, mais sa ne fonctionne pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

flag = True Application.ScreenUpdating = True Do While flag = True UserForm4.Hide Workbooks(variable11).Activate Application.StatusBar = "Selectionner le rendement tube" DoEvents Loop Application.StatusBar = False UserForm4.TextBox1.Value = rendement UserForm4.Show End Sub

---

dans le module de la feuille :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) rendement = Target MsgBox rendement Cancel = True flag = False End Sub

---

la macro reste bloké à Doevents ....
merci

Pas d'idée sur le pourquoi du blocage à l'étape doevents de la feuille ?

Merci

bon et bien je sèche un peu, ma macro continue à se bloquer, à l'étape DoEvents, et impossible d'en sortir sans arreter la macro.

Pour reprendre voici le code et son fonctionnement :

Dans un module de mon workbook de référence :
ce code recopie le dit "LeCode" dans chacune des worksheets de mes workbooks crées:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim f, LeCode(1 To 6) LeCode(1) = "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)" LeCode(2) = "rendement = target * 1000" LeCode(3) = "Application.StatusBar = rendement " LeCode(4) = "Cancel = True" LeCode(5) = "flag = False" LeCode(6) = "End sub" For f = 1 To 6 Workbooks(variable11).VBProject.VBComponents("Feuil1").CodeModule.InsertLines f, LeCode(f) Next f

---

viens ensuite dans le meme module un peu plus loin :

Code:

---

1 2 3 4 5 6 7

If Not 1000 <= rendement And rendement <= 2000 Then Workbooks(variable11).Activate Application.StatusBar = "Selectionner le rendement tube" UserForm4.Label1.Caption = "Merci d'indiquer le rendement du tube " & First & "" UserForm4.Show Else End If

---

La Userform se lance, voici son code : ( le bouton 2 pour valider, et le bouton 3 pour selectionner la cellule contenant la valeur cherché):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub CommandButton2_Click() rendement = UserForm4.TextBox1.Value rendement=rendement*1000 Unload UserForm4 End Sub   Private Sub CommandButton3_Click() flag = True Application.ScreenUpdating = True Do While flag = True UserForm4.Hide Workbooks(variable11).Activate Application.StatusBar = "Selectionner le rendement tube" DoEvents 'Blocage ICI Loop Application.StatusBar = False UserForm4.TextBox1.Value = rendement UserForm4.Show End Sub

---

et c'est donc ici à l'étape Doevents que le blocage survient!, pourtant le dit "Lecode" du début est bel et bien présent dans le workbooks variable11, worksheets "feuil1"!

Merci pour votre aide

Bonjour,
Si tu expliquais ce que tu souhaites faire exactement. Parce-que si je lis ton premier message, tu écris en gros qu'un Userform s'ouvre pour demander une valeur à l'utilisateur or cette valeur il ne l'a connaît pas (sic .)
Il y a donc un bouton. Pourquoi pas une liste.
Ensuite la macro se met en pause, pourquoi en pause ?
Y a-t-il un événement extérieur qui doit arriver ?
Cela déjà c'est très interpellant.

Citation:

---

Dans ma macro, un userform s'ouvre, et demande une valeur, or l'utilisateur ne peux pas connaitre cette valeur, il y a donc un bouton , rechercher valeur sur ma userform, et en cliquant, la macro se met sur pause, active un workbooks ( qui est variable donc impossible d'ecrire l'évenement dans la workbooks, sauf si il est possible de coder, l'écriture de l'evenement dans la workbooks via la macro).

---

Ensuite, toujours dans ton premier message.

Citation:

---

A partir de la, ce que je voudrai, c'est qu'en double cliquant sur la cellule, la valeur soit recupérée, et recopier dans la textbox1 de la userform.

---

Que vient faire cette cellule alors que tu as ouvert un UserForm pour en principe attendre le choix de l'utilisateur. C'est en tout les cas ce que j'ai pu deviner.
Et cette valeur vient se placer dans un TextBox de cette dite UserForm

C'est bien de montrer ton code mais en expliquant clairement ce que tu veux faire, tu aurais plus de chance d'avoir un début de réponse concrète parce-que d'après ma petite expérience, tu es sur la mauvaise voie.

Pour faire simple, comme on peut le voir dans le code, en fait

la macro demande une valeur, cette valeur est disponible sur un workbooks ( le workbooks variable11, et nullepart ailleur)

Cette valeur est demandé grace à la userform4 sur laquelle il y a deux boutons, l'un pour selectionner la valeur demandé, l'autre pour la valider, et une textbox qui affiche cette valeur.

Par défaut la Textbox est vide--> l'utilisateur clique alors sur le bouton pour selectionner la cellule contenant la valeur par doubleclic ( d'ou l'évenement doubleclik ..)

et à partir de la la valeur devrait se rentrer automatiquement dans la textbo, l'utilisateur clique alors sur valider. et C'est fini.

Sauf que pour selectionner la cellule contenant la valeur, j'ai fait cacher la userform, afficher le bon workbook et worksheets, et utiliser doevents pour donner la main à l'utilisateur, mais je n'arrive pas a en sortir , meme avec le doubleclic....

Voila, j'espere etre assez précis et clair.


Merci

Bonjour,

Citation:

---

Pour faire simple, comme on peut le voir dans le code, en fait

---

C'est toi qui le dit que c'est simple.

Citation:

---

la macro demande une valeur, cette valeur est disponible sur un workbooks ( le workbooks variable11, et nullepart ailleur)

---

Variable 11 ?
Tu as une variable 11 dans ton code ?

oui, cette variable11 est un nom de workbooks, donc de la forme xxx.xls, on l'aperçoit deux fois dans le code de mon précédent message, mais la déclaration de la variable n'est pas présente, car c'est une variable publique

j'ai l'impression de m'etre perdue, dans une methode sans solution...

Le fait est que je cherche, via ma macro, à afficher une userform, qui avec un bouton permette de donner la main à l'utilisateur sur un workbook donné, lui permettre de voir le contenu et récuperer la valeur qui l'interesse pour la rentrer dans la userform, et cliquer sur le 2eme bouton pour la valider....

mise à part le doevents pour donner la main, et le Evenement BeforeDoubleClick() pour faire réagir la macro, je n'est pas trop d'idée..

Merci pour votre aide

Bonjour,

Un contrôle RefEdit, peut-être...