VBA checkbox de non affichage

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 !

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:

---

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:

---

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:

---

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"...

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é :oops:
En tous cas merci pour cette aide rapide et de grande qualité !

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