mwlhfwz
Messages postés3Date d'inscriptionlundi 13 septembre 2004StatutMembreDernière intervention12 juillet 2012
-
11 juil. 2012 à 12:24
mwlhfwz
Messages postés3Date d'inscriptionlundi 13 septembre 2004StatutMembreDernière intervention12 juillet 2012
-
12 juil. 2012 à 11:54
bonjour!
je tente en vain d'arreter 1 macro qui tourne en boucle!
le probleme est le suivant:
0. j'ai un texte msword (fait )
1. je lis un texte mot par mot (fait )
2. la lecture est cadencée grâce à un "Compte A Rebours" (fait )
3. chaque seconde je lis un mot (fait )
4. la selection apparait dans un textbox (fait )
5. LE PROBLEME = pour récupérer la valeur de mon textbox je etre à même d'arreter mon compte A Rebours qui tourne en boucle!
QUE FAIRE?
Merci
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 11 juil. 2012 à 12:42
Bonjour,
QUE FAIRE?
=>>
modifier la 8ème ligne du code que tu nous as montré (?) ou y ajouter une ligne !
C'est une plaisanterie, ta question, telle que posée (sans code) ?
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list ---
Mon site
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 12 juil. 2012 à 11:27
Bien.
Cghange donc ce vilain Goto FIN par un simple Exit For (ou même, dans ton cas, Exit Sub)
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
mwlhfwz
Messages postés3Date d'inscriptionlundi 13 septembre 2004StatutMembreDernière intervention12 juillet 2012 12 juil. 2012 à 11:23
Débutant et bleu à la fois! 1000000 excuses!
en m'adressant au forum je me suis mis à penser à haute voix, et j'ai fini par trouver une solution qui me satifait et qui est la suivante:
code vba:
'======================================================
Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Integer
Sub touche()
For i = 1 To 100
'je selectionne au maximum 100 mots
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
'la cadense est de 1 seconde
PauseTime = 1 ' Définit la durée en secondes
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
Loop
'Le fonctionnement de GetAsyncKeyState
'est asynchrone
'L'utilisation de la touche est mémorisée
If (GetAsyncKeyState(2) <> 0) Then
'quand je clique gauche
MsgBox "LA SELECTION ARRETEE"
g = Selection.Text
'la selection dans le texte est transmise à Textbox2 de l'userforf1
UserForm1.TextBox2 = g
GoTo FIN
End If
Next
FIN:
End Sub
=================================================
j'espère avoir été utile!
Vous n’avez pas trouvé la réponse que vous recherchez ?