Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
j'ai un programme que j'ai créer (stockEPI) qui possèdes un onglet par type d'EPI (Accressoire,Casque,Gant etc...). J'ai vu une video qui explique comment faire une facture en automatique (
) mon souci c'est que ça fonctionne quand je fait ce qu'il y a sur cette video mais qu'avec un seul onglet (Accessoire) mais je voudrai que la macro vérifie tout les onglet afin de renseigner ma facture. J'ai fait plusieurs tantative mais sans résultat. Donc je fait appel a vous pour m'aider a trouver si vous voulez bien.
Je vous laisse regarder la video et je vous joint une demo de mon programme.
bon je suis rentre chez moi je vais pouvoir m'y plonger et découvrir ton travail pour le reproduire sur tout les boutons. J'ai des heures a passer mais ça va le faire. C'est vraiment sympa de ta part
c'est gentil parce que là je ne sais pas par où commencer lol je suis dans ajout et je vais libérer les ligne que tu a bloquer avec un guillemet pour remettre en service l'ajout d'un article. Si je veux mettre un nouveau casque, il va s'ajouter dans la liste BDD mais il ne sera pas dans le combobox "Casque" ?
Dans le Userform "Stock" La ComboBox "ComboBoxCategory" s'auto-alimente avec le code "Refresh_Click".
Cet algo trouve toutes les catégories de la feuille BDD sans avoir besoin d'un table séparée, il les ajoute dans la ComboBox en valeur unique.
Ainsi si dans Ajout tu integres une Catégorie "Lunettes" (par exemple) sur la bonne colonne (attention tout doit être décalé dans le vieux code mis en commentaires) cette nouvelle catégorie sera listée lors du prochain "Refresh".
NB tu dois aussi t'inspirer de ce que j'ai fait dans le Modifier pour incrémenter le compteur "Clef Primaire" de la Table BDD :
VB:
LastLine = WSArchive.Range("A65536").End(xlUp).Row
If LastLine = 2 Then
MyNo = 1
Else
MyNo = WSArchive.Cells(LastLine, 1) + 1
End If
Si tu veux juste mettre un nouveau Casque, il faudra choisir Categorie Casque dans une ComboBox qui n'existe pas encore dans le UserForm "Ajout", donc ta première tâche est d'ajouter et de faire fonctionner cette ComboBoxCategory dans Ajout...
Dans le Userform "Stock" La ComboBox "ComboBoxCategory" s'auto-alimente avec le code "Refresh_Click".
Cet algo trouve toutes les catégories de la feuille BDD sans avoir besoin d'un table séparée, il les ajoute dans la ComboBox en valeur unique.
Ainsi si dans Ajout tu integres une Catégorie "Lunettes" (par exemple) sur la bonne colonne (attention tout doit être décalé dans le vieux code mis en commentaires) cette nouvelle catégorie sera listée lors du prochain "Refresh".
NB tu dois aussi t'inspirer de ce que j'ai fait dans le Modifier pour incrémenter le compteur "Clef Primaire" de la Table BDD :
VB:
LastLine = WSArchive.Range("A65536").End(xlUp).Row
If LastLine = 2 Then
MyNo = 1
Else
MyNo = WSArchive.Cells(LastLine, 1) + 1
End If
Si tu veux juste mettre un nouveau Casque, il faudra choisir Categorie Casque dans une ComboBox qui n'existe pas encore dans le UserForm "Ajout", donc ta première tâche est d'ajouter et de faire fonctionner cette ComboBoxCategory dans Ajout...
ok donc j'ajoute une combobox catégorie (donc je fait un copier collet de ton code pour alimenter ma nouvel combobox que j'ajoute dans l'userforme "Ajout" ?
Oui exactement 🙂 Refresh_Click (que tu pourras lancer depuis l'Initialize)
Par contre il faut que les autres controls ComboBox se nomment tous pareils aussi (ComboBoxCategory, ComboBoxArticle, ComboBoxReference)
EDIT ou alors comme l'existant tu mets des TexBox et tu vires alors les "clear"...
EDIT II les ComboxBox ont l'avantage de lister l'existant et d'ajouter de nouveaux items
EDIT III Je vais devoir m'absenter un moment je reviendrai tard.
ok mais je met un ComboBoxCategory pour choisir l'article a ajouter (exemple casque) et en dessous je met des text box pour y mettre une référence et le nom de l'article ou je doit y mettre aussi des combobox ? (j'ai copier collet le code mais rien dans le combobox category)
Il te faut l'initialize simplifiée aussi et la Private RngCat As Range en Top de Module....
@+Thierry
EDIT Initialize Simplifiée pour Ajout :
VB:
Option Explicit
Private RngCat As Range
Private Sub UserForm_Initialize()
Dim WS As Worksheet
Set WS = ThisWorkbook.Worksheets("BDD")
Set RngCat = WS.Range("B2:B" & WS.Range("B1000").End(xlUp).Row)
Refresh_Click 'on lance d'ici
End Sub
ok mais je met un ComboBoxCategory pour choisir l'article a ajouter (exemple casque) et en dessous je met des text box pour y mettre une référence et le nom de l'article ou je doit y mettre aussi des combobox ? (j'ai copier collet le code mais rien dans le combobox category)
ouaaa je comprend pas lol probablement la fin de semaine lol j'avais déjà mis énormément de temps a faire le premier mais là il faut que je me dépasse lol
Re bjr. Non j’ai essayé de mettre les combobox en faisant un copier coller de ceux que tu à fait pour ajouter une référence, mais ça ne marche pas et malheureusement je ne suis pas disponible demain, je pose du parquet chez ma sœur lol Et invité dimanche lol. Donc je m’y remet lundi mais j’aimerais proposer un programme fin de semaine prochaine mais c’est pas gagné lol.
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD