XL 2019 Formulaire de saisie des données dans plusieurs feuilles

Jacky67 à dit:

re..
Ok!.. Modifié
On est tout de même loin de la demande initiale 😳

Cliquez pour agrandir...

bauerjackob à dit:

Un petit soucis, quand le formulaire s'ouvre et on le ferme par le X en haut il donne le message suivant " Erreur d'execution "9" l'indice n appartient pas a la selection'". comment solutionner cela? comment effacer le X et utiliser seulement le bouton fermer.

Cliquez pour agrandir...

Jacky67 à dit:

RE...
Je n'ai à aucun moment ce problème...Micro climat ??🙄
Néanmoins dans la version en PJ la croix de fermeture est inhibée.
La suppression de cette croix est très compliqué, je la laisse donc en place.
La fermeture par le bouton sera obligatoire.

Cliquez pour agrandir...

bauerjackob à dit:

merci bcp. Quelle commande a tu ajouté pour inhibé ce X..?

Cliquez pour agrandir...

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
End Sub

Jacky67 à dit:

Re..
C'est ce code qui fait le boulot

VB:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
End Sub

Cliquez pour agrandir...

bauerjackob à dit:

OUI MAIS cette code y est deja mais le x n'inhibe pas pour le fichier avant et on enleve le code Sheets("Saisie").Activate
ok merci

Cliquez pour agrandir...

bauerjackob à dit:

OUI MAIS cette code y est deja mais le x n'inhibe pas pour le fichier avant et on enleve le code Sheets("Saisie").Activate
ok merci

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Ce code n'a rien à voir avec les feuilles et encore moins avec le fichier. il n'agit que sur l'userform de saisie.
Si tu expliques ce que tu souhaites faire , cela irait beaucoup mieux.
Si cela n'est pas en rapport avec le sujet initiale, je te suggère d'ouvrir un nouveau post.

Cliquez pour agrandir...