Microsoft 365 Formulaire

[Marec]

Bonjour,

Est il possible avec un formulaire de saisie,de remplir une feuille avec quelques données,et que cette dernière redevienne vierge après enregistrement de cette feuille en fichier excel ??

D'avance merci pour vos conseils ou exemples

 

[vgendron]

Bonjour et bonne année

déjà, ton fichier a une extension incompatible avec son contenu: .Xlsm.xlsx==>tu aurais donc pu vérifier ton fichier avant de le poster

ensuite
11 modules dont 8 vides==> Aucun intérêt
des feuiles masquées en veryhiden: ca serait sympa de prévenir
dans ta feuille qui contient les listes==> les tables structurées contiennent des lignes vides: aucun intérêt non plus==> peut etre meme source d'erreurs==> il faut supprimer ces lignes vides

dans le code du bouton "Enregistrer"
les 4 premières lignes sont totalement inutiles==> autant les supprimer

transformer le tableau en table structurée et modifier le code pour y inscrire les données (voir PJ)

Pour le moment ça plante. Pti coup de pouce??

ca plante ou ca ne fait pas ce que tu veux? parce que si j'appuie plusieurs fois sur le bouton.. et bah.. le code fait bien ce pour quoi il est écrit (écrire en ligne 12)

 

[Marec]

Bonjour,
Ça ne fait pas ce que je veux
Je voudrai en appuyant plusieurs fois,générer la même ligne plusieurs fois jai utilisé une base d'un fichier que j'utilisais
De ce fait oui il y a veryhidden et autres a supprimer par la suite

 

[patricktoulon]

Bonjour à tous
et le vba est a l'image du reste
mais faite quelque chose bon sang !! appelez un médecin 🤣

je donne quelque truc comme ça en passant
ceci

 If Txtdate <> "" And Txtdate <> " " And Txtdate <> "  " And Txtdate <> "   " Then

peut etre remplacer par

 If isdate(Txtdate)  Then

comme ça on a non seulement le contrôle du textbox vide mais aussi de la validité de la date
et encore la le contrôle n'est que succin

il y a aussi ceci

Txtboite1.Enabled = True
      Txtboite2.Enabled = True
      Txtboite3.Enabled = True
      Txtboite4.Enabled = True
      Txtboite5.Enabled = True
      Txtboite6.Enabled = True
      Txtboite7.Enabled = True
      Txtboite8.Enabled = True
      Txtboite9.Enabled = True
      Txtboite10.Enabled = True
      Txtboite11.Enabled = True

a remplacer par cela

 For i = 1 To 11
       Me.Controls("TextBox" & i).Enabled = True
 Next

et ça non plus faut pas le faire comme ca

Sheets("packing").Range("J1").Value = Me.Txtdate.Value

comme c oui!!

Sheets("packing").Range("J1").Value = CDate(Me.Txtdate.Value)

LOL😂

tout ces modules c'est quoi
tu serait pas un serial-modul-collectionneur toi 🤣

bon du coupje vais aller consulter , j'ai une migraine cérébro-spinal

reLOL😂

 

[patricktoulon]

re
j'ajoute que
vu le tableau de réception (la feuille)donc plusieurs ligne de commandes

1. il me semble qu'un bouton ajouter manque qui ajouterait et ferait un clear des controls apres l'ajout dans la feuille
2. le bouton enregistrer oui ok mais ou quoi et comment
3. la présentation du formulaire on pourrait la soigner et éviter de faire des userform géants pour 5/6 textbox
4. les textbox doivent il être tous remplis impérativement ????parce que dans ce cas, faire un control des vides avant d'enregistrer dans la feuille

etc..etc...
les tableaux dans les feuilles caché ils servent a quoi ???
allez au boulot !

 

[Marec]

re
j'ajoute que
vu le tableau de réception (la feuille)donc plusieurs ligne de commandes

1. il me semble qu'un bouton ajouter manque qui ajouterait et ferait un clear des controls apres l'ajout dans la feuille
2. le bouton enregistrer oui ok mais ou quoi et comment
3. la présentation du formulaire on pourrait la soigner et éviter de faire des userform géants pour 5/6 textbox
4. les textbox doivent il être tous remplis impérativement ????parce que dans ce cas, faire un control des vides avant d'enregistrer dans la feuille

etc..etc...
les tableaux dans les feuilles caché ils servent a quoi ???
allez au boulot !

Merci pour cette réponse

Les critiques sont infinies mais,j'ai utilisé un fichier ancien,a peine nettoyé des inutiles modules et autres effectivement .
Mise en page: c'est un premier jet qui peut être j'arriverai à embellir.

Je vais tenter d'avancer avec mes petites connaissances dans ce domaine.

Merci tour de meme

 

[patricktoulon]

re
avec les maigres renseignement que tu nous fourni sur le contexte
voici une proposition
tu ouvre
tu est obligé de taper la date en premier ,sinon tout le reste est bloqué
tu rempli tes txtboite et tu click ajout ligne ca ajoute et te vide les texte box pour ajouter une future ligne supplémentaire
a chaque fois que tu rempli tu click ajoute
une fois que tu en a assez tu clique sur enregistrer
ca t'enregistre la feuille packing en xlsx dans le même dossier que le fichier lui même
une fois enregistré un message te propose de l'enregistrer en pdf du oui ou non
si oui le pdf sera enregistré au même endroit que la fiche enregistrée précédemment
une fois enregistré la fiche se vide toute seule pour un futur remplissage et enregistrement

Ps j'ai revu un peu la présentation
voilà il y a encore certainement a faire mais c'est une base de départ 😉

 

[Marec]

merci pour ce travail
je n'ai pas ce niveau et vous l'aurai compris.
pour le moment ça plante a la date.

ce que je voudrais savoir dans votre code,c'est es ce qu'au niveau de l'ajout,je peux ajouter plusieurs fois a la suite le contenu des txtbox?

La mise en page sera rectifiée et il y aura des ajouts.
Mais vous m'avez bien aidé

Merci a vous

 

[patricktoulon]

re

ce que je voudrais savoir dans votre code,c'est es ce qu'au niveau de l'ajout,je peux ajouter plusieurs fois a la suite le contenu des txtbox?

la réponse et oui mais pas 2 fois la meme bien sur car a chaque ajout les textbox se vident sauf l’entête

 

[Marec]

re

la réponse et oui mais pas 2 fois la meme bien sur car a chaque ajout les textbox se vident sauf l’entête

Je comprends, mais je pensais pouvoir ajouter plusieurs lignes (ex :7lignes)identiques avec la même saisie dans le Usf.en cliquant 7 fois donc sur ajout.
Et disons pour la 8eme,modifier une quantité ou deux par exemple, et au final enregistrer une feuille unique

Mais la,je ne sais pas si c'est jouable

 

[vgendron]

euh.. as tu au moins regardé / testé ma proposition au post 16?

 

[Marec]

euh.. as tu au moins regardé / testé ma proposition au post 16?

Bonsoir vgendon,

Oui j'ai testé ta proposition qui fonctionne.
Plusieurs lignes générées a la suite mais,j'aurai besoin de retrouver une feuille vierge après enregistrement en pdf.

Et , je ne sais pas faire compte des codes .....trop pointus