Discussion :

[mouftie]

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

[Philippe Tulliez]

Bonjour,
Plutôt que l'utilisation de l'InputBox (Type 8), utilisez le contrôle RefEdit du UserForm
Celui-ci n'étant pas présent par défaut, il y a lieu de faire un clic droit sur la boîte de dialogue "Boîte à outils" du UserForm, cliquer sur la commande Contrôles supplémentaires... et sélectionner dans la liste de la boîte de dialogue éponyme, le contrôle RefEdit.Ctrl

Si le but est de sélectionner un nom dans une table, il est peut-être plus simple encore de faire la sélection via un ListBox que vous pouvez associer à un TextBox pour effectuer une recherche si la liste est trop longue.

Ne sachant pas ce que vous voulez faire exactement, il est difficile d'apporter une réponse plus pertinente.

[mouftie]

Bonjour Philippe,

Merci pour votre aide, malheureusement, cet USF est utilisé par de nombreuses macros. Donc je ne peux pas toucher à cet USF

C'est une vielle application que l'on me demande régulièrement de modifier pour inclure des nouveaux contextes qui fonctionnent tous selon le même principe.
C'est pourquoi les outils sont communs à tous les contextes, mais je dois les affiner pour prendre en compte les particularités des nouveaux contextes...

Mais effectivement s'il n'y a pas de solution avec l'imputBox, je vais peut-être devoir ajouter un USF... mais ça va me prendre plus de temps...

[Philippe Tulliez]

Bonjour,

je vais peut-être devoir ajouter un USF... mais ça va me prendre plus de temps...

Normalement un UserForm se crée rapidement mais comme vous n'expliquez pas ce que vous cherchez à faire, c'est difficile de vous aider

[mouftie]

Bonjour Philippe,
Merci pour votre réponse
En résumé, voici ce que je veux faire :
dans le fichier "Macros", j'ai 7 feuilles (1 par contexte) à l'identique.
Dans chaque feuille j'ai une Table référencée, sur 2 colonnes.
Dans la 2ème colonne, il y a une liste de fichiers qui s'ouvre par un lien hypertexte.

La macro Contxt ouvre un formulaire USF avec 7 images ; l'utilisateur clique sur une image pour choisir son contexte de travail
selon le contexte choisit, la macro affecte un certain nombre de variables comme le nom de la feuille du contexte, le nom du contexte, le nom de la table référencée, le nom des fichiers (issus de BO) qui serviront à la mise à jour des fichiers du contexte

Le pb que je rencontre depuis quelques temps, c'est qu'Excel plante pendant la mise à jour des fichiers issus de BO.
Donc, je cherche à supprimer les données qui ont été mises à jour partiellement ; pour ce faire, l'utilisateur dois aller dans la feuille du contexte et choisir dans la table référencée, le fichier à traiter.

Donc ma macro ci-dessus, ouvre la macro Contxt pour récupérer les variables du contexte puis dois demander à l'utilisateur quel fichier doit être corrigé. Pour choisir, il faut aller sur la feuille du contexte.

J'espère que j'ai été claire.
Merci encore pour votre aide