Discussion :

[mouftie]

Bonjour,
J'ai un fichier qui a été à partir d'un autre qui a été supprimé depuis, mais il y a toujours l'invite de mise à jour des liens et la fonction de rompre les liens de fonctionne pas.
J'ai créé un USF sensé s'ouvrir avec un bouton ; pour ce faire j'ai écris le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub OuvrUsf()
'Lance le formulaire de recherche
UsfNir.Show
End Sub

Mais si je clique sur le bouton ou si je lance l'USF à partir de ce code avec la touche F5 (ou F8), il ne se passe rien.
Si je me positionne sur le Usf en mode création et que j'appuie sur F5, il se lance.
Ensuite si j'utilise le bouton, l'Usf fonctionne normalement.
Mais dès que je referme Excel, je me retrouve avec le même phénomène.
Est-ce que quelqu'un voit d'où cela peut venir, svp.
Merci pour votre aide

[MarcelG]

Bonjour Mouftie,

Pour le problème des liens, tu peux peut-être regarder le gestionnaire des noms.
Classement possible par nom ou référence.

Dans le code affecté à ton formulaire, y aurait-il une gestion d'évènement Intialize et/ou Activate?

[mouftie]

Bonjour Marcel, merci pour ta réponse.
Oui, je n'avais pas pensé à aller voir dans le gestionnaire de noms ; j'ai fais le ménage, il n'y a plus de référence à un autre fichier et je n'ai plus d'invite de mise à jour.

Cependant, cela ne résout pas mon pb d'USF.
J'ai repris la version d'hier, avec la même USF, le même code, tout fonctionne bien.
Depuis, mon collègue qui ne fait pas de macro a fait de l'habillage de tableau : masquage de ligne, ajout de lignes, ajout de listes déroulantes avec validation de données...
En matière de code, il a seulement ajouté 4 macros pour naviguer entre les feuilles à partir d'une page de garde.

En ce qui concerne les évènements, j'ai une macro sur la page d'accueil qui est sensée supprimer tous les filtres quand on revient sur la page d'accueil ; voici le code mis dans le module de la page d'accueil :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Private Sub Worksheet_Activate()
'On enlève et on remet les filtres de la feuille chargée
On Error Resume Next
Sheets("Chargée d'entretien").Range("TbPhases[#Headers]").AutoFilter
Sheets("Chargée d'entretien").Range("TbPhases[#Headers]").AutoFilter
Sheets("Technicien ").Range("TbTech[#Headers]").AutoFilter
Sheets("Technicien").Range("TbTech[#Headers]").AutoFilter
End Sub

Merci encore pour ton aide

[MarcelG]

Salut,

Oui, j'ai bien vu 2 questions dans ton post.
En voilà une de résolue.

Pour la 2ème, tu ne réponds pas à ma question à savoir la gestion éventuelle des évènements "Initialize" et "Activate" dans le code affecté au formulaire

[mouftie]

Désolée, non, il n'y a pas d'initialize ou d'activate.

Le code est hyper simple, il y a une macro pour fermer, il n'y a qu'une textbox avec un évènement en sortie et un en cours de frappe ; enfin une macro de recherche dans les 2 feuilles.
C'est très court...

[MarcelG]

Salut,

1 - Peut-être dans le code affecté à l'objet "ThisWorkBook"

2 - Fais une recherche "UsfNir" (CTRL + F) dans tout le projet VBE

3 - En dernier lieu, adresse un classeur simplifié

A demain.