Discussion :

[europium2]

Bonjour à tous,
je cherche à créer une checkbox "ne pas afficher au démarrage" sur une userform d'acceuil en quelque sorte, pour que si je coche eh bien quand je relance mon fichier excel la fenêtre ne se reaffiche pas...
J'ai essayé pas mal de truc et rien ne marche.

merci de votre aide !

[pijaku]

Bonjour,

Une proposition :
Lors de l'ouverture du classeur, tu as dans la procédure WorkBooks_open(), un code qui montre ton UserForm d'accueil, du genre :

Code :

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

1
2
3
Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Il faut donc faire un test, sur l'existence de "quelque chose", qui si le test est vrai n'ouvre pas le UserForm.
Ma proposition, lorsque la CheckBox est cochée, tu ajoutes un nom dans le classeur automatiquement, bien entendu.

Code :

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

1
2
3
4
5
Private Sub CheckBox1_Change()
If CheckBox1 = True Then
    ActiveWorkbook.Names.Add Name:="NePlusAfficher", RefersTo:=Range("A1")
End If
End Sub

Ensuite, tu testes, à l'ouverture du classeur, si dans tous les noms du classeur on trouve "NePlusAfficher". Si on ne le trouve pas, alors on ouvre l'UserForm :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
Dim Nom As Name
For Each Nom In ThisWorkbook.Names
If Nom.Name = "NePlusAfficher" Then
    Exit Sub
End If
Next
UserForm1.Show
End Sub

J'ai choisi de tester la présence d'un nom (Insertion/Nom/Définir), mais ça aurait pu être la valeur contenue dans une cellule. L'avantage c'est qu'ici, le "nom" est totalement invisible...

Un fichier exemple ici...

Un second avantage, pour "réafficher" l'userform de démarrage, suffit de supprimer le nom "NePlusAfficher"...

[europium2]

Alors nikel pour l'aide.
Par contre j'essayais de faire ce que tu disais à la fin c'est à dire ajouter la contre-possibilité de réafficher au démarrage en permettant l'accès à cette fenêtre d'acceuil via un autre liens macro.
Mais pour supprimer "NePlusAfficher" tu fais comment ?
J'avais essayer bêtement "ActiveWorkbook.Names.delete Name:="NePlusAfficher", RefersTo:=Range("A1")" mais ça n'a aps marché
En tous cas merci pour cette aide rapide et de grande qualité !

[europium2]

Autant pour moi, j'ai trouvé !
Merci beaucoup !