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

[Philippe Tulliez]

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 ...

[kyros21]

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

[kyros21]

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 :

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

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 :

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

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

[Philippe Tulliez]

Bonsoir,

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 :

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

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)

[kyros21]

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 :

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

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

[kyros21]

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 :

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

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 :

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

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

[kyros21]

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 :

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

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 :

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

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 :

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

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

[Philippe Tulliez]

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.

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.

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.

[kyros21]

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

[Philippe Tulliez]

Bonjour,

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

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

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 ?

[kyros21]

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

[kyros21]

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

[AlainTech]

Bonjour,

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