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

ejordan Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   -
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 1985 Date d'inscription   Statut Membre Dernière intervention   713
 
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
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Un autre type de traitement en utilisant un Userform.
https://www.cjoint.com/c/EFEp51EmQXW

A+
0