Dans une macro attendre que l'utilisateur click sur une cellule

Fermé
ejordan Messages postés 1 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 30 juin 2015 - 30 juin 2015 à 17:01
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 30 juin 2015 à 17:59
Ma macro indique à l'utilisateur (MsgBox) de cliquer sur une cellule et dès que c'est fait elle doit récupérer le contenu de la cellule sélectionnée. Comment fait-on ? Mes tentatives aboutissent toutes peu ou prou à des boucles infinies d'attente de saisie ...
A voir également:

2 réponses

thev Messages postés 1925 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 18 décembre 2024 692
Modifié par thev le 30/06/2015 à 17:36
Il faut utiliser l'instruction DoEvents.
ci-dessous, exemple de code que j'ai développé, qui donne à l'utilisateur un temps de 30 secondes pour cliquer sur la cellule.


Sub sélection_cellule():

' routine de sélection cellule --------------------------------------------------------------------

temps_début = Timer
sel_init = Selection.Address
Do While Selection.Address = sel_init
If Timer > temps_début + 30 Then
MsgBox "temps de sélection écoulé - arrêt traitement "
Exit Sub
End If
DoEvents
Loop

' fin de routine --------------------------------------------------------------------

End Sub



--
0