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

[bauerjackob]

Bonjour
J ai un fichier de gestion de stock que j ai concu. En entrant des donnéés dans chaque journaux (voir 3 feuilles) j aimerais avoir un seul formulaire de saisie pour l'entrée des donnée au lieu de changer de feuille a chaque saisie. Ci joint le Fichier

 

[bauerjackob]

Vous etes un genie, tres serieux . oui loin de la demande initiale je fait evoluer le fichier au fil du premier argument

 

[bauerjackob]

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

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.

 

[Jacky67]

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.

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.

 

[bauerjackob]

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.

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

 

[Jacky67]

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

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

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

 

[bauerjackob]

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

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

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
une toute derniere chose mon ami, comme j ai 15 feuilles actives sur mon fichier, est ce possible d 'avoir une chose comme creer des boutons pour ouvrir chaque feuille au lieu de passer a la barre de defil en bas.?

 

[Jacky67]

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

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

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.

 

[bauerjackob]

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.

merci mille fois, t as raison je ve poster