Bonjour tout le monde,

Je travail sur un classeur qui à une première page nommé accueil avec un bouton pour importer des données et un second pour ouvrir un formulaire de sélection.

Mon problème est que le code associé à mon second bouton (ouverture de formulaire) ne marche plus alors que hier oui.

le code associé au bouton est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Option Explicit
 
Sub afficher()
UserForm1.Show
End Sub
J'ai supprimer le bouton et j'en est recréer un, de même pour le module de code créer, mais le problème persiste.

J'ai vérifier le nom de mon UserForm1 mais aucun soucis la dessus.

J'ai aussi éssayer la syntaxe suivante :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Option Explicit
 
Sub afficher()
Workbooks("nom_du_classeur_avec_ou sans extension").UserForm1.Show
End Sub
Voici l'initialisation du formulaire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Ws As Worksheet
Dim NbLignes As Integer
 
'Initialisation du formulaire 1
 
Private Sub UserForm_Initialize()
    'Définit la feuille contenant les données
    Set Ws = Worksheets("donnee_Commune")
    'Définit le nombre de lignes dans la colonne A
    NbLignes = Ws.Range("A65536").End(xlUp).Row
 
    'Remplissage du ComboBox1
    Alim_Combo 1
 
End Sub
J'attend votre réponse avec impatience car ça fais quelques jours que je bataille dessus sans trouver de réponse.