Discussion :

[kyros21]

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 :

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

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 :

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

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

[78chris]

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 :

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

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)

[Philippe Tulliez]

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

Code :

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

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

[kyros21]

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

[Philippe Tulliez]

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

[kyros21]

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