Bonjour,
L utilisateur clique sur un bouton qui déclenche une procédure qui lui demande dans un premier temps de sélectionner une catégorie dans un USF.
Selon la catégorie choisit l'utilisateur devra choisir un nom dans une liste à partir d'un inputBox qui lui demande de sélectionner une cellule pour ouvrir le fichier correspondant.

Mon problème c'est que l'imputbox se présente sur la feuille du bouton et non sur celle désignée par l'usf.
voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SuppMois()
' Supprime un mois de saisies
 
Application.ScreenUpdating = False
Dim Ms As String, Dev As Range
Call ConTxt    'USF de boutons qui renvoie le nom de la feuille à choisir NmSh
Sheets(NmSh).Activate
'DoEvents
'Application.Wait Now + TimeValue("00:00:03")
On Error Resume Next
         Set Dev = Application.InputBox(prompt:="Cliquer sur le nom de l'agence à traiter", Type:=8)
            If Dev Is Nothing Then Exit Sub 'si annulé
        On Error GoTo 0
J'ai essayé DoEnvents ou Wait, cela ne change rien ; quand je lance la procédure pas à pas, cela fonctionne très bien...
Merci de votre aide