Dans cette seconde partie de comment créer un gestionnaire des stocks sur Excel nous allons ajouter un article et crée un graphique dans notre tableau.
dans la première partie nous avons créer la base, désormais nous allons créer notre base de donnée pour les articles, cela nous allons le faire en avec un formulaire en VBA pour ajouter un article à notre base de donnée.
Index :
Création du tablau sur la ligne B5
-
- Nr Article
- Nom
- Description
- Prix unité
- Stock
- Valeur stock
- =prix unité x Stock
- Stock min
- Drapeau
- =SI(F6<H6;1; » »)
- Mise en forme -> symbol >= 1 drapeau
- Format personnalisée «Besoin »
- Status
- Crée une liste avec Active et Inactive
- Vide
- De 1 à > 10
Désormais nous allons ajouter quelque article
Création du graphique
Ici nous allons crée un graphique dans les cellules. Et notre graphique va contrôler si le nombre de stock est plus grand ou 0 au nombre.
Sélectionner de 1 à 10 et puisMise enforme conditionnel.
=ET($B6<> » »;$F6>=$H6;$F6>=L$4) couleur bleu et une bordure.
=ET($B6<> » »;$F6<$H6;$F6>=L$4) couleur rouge et une bordure
=$B6<> » »
Graphqiue pour les données plus grand que.
Ici nous allons placer les mis en formes suivant :
=ET($B6<> » »;$F6>U4) couleur bleu et une bordure.
=ET($B6<> » »;$F6>U4) ;$F$6<$h$6) couleur bleu et une bordure.
Création du formulaire Ajouter.
Configurer nos objets du formulaire.
-
- Label 1
- Info
- Textbox1
- Txt_nom
- Textbox2
- Txt_description
- Mutiline = true
- Enterkeybehavior = true
- Textbox3
- Txt_prix
- Txt_prix
- Textbox4
- Txt_min_stock
- Label 1
Ajouter le numéro d’article automatiquement.
Sur la page config nous allons placer dans la cellule B17 le titre suffix. Puis dans B19 nous allons placer le titre article. Dans la cellule C19 nous allons placer le suffixe ou le préfix et dans la cellule D19 le numéro ou nous voulons que notre nr d’article commence.et pour finir dans la cellule E19 nous allons concaténer le tout mais je veux que les chiffre on min 4 zéro et 1 chiffre.
=C19&TEXTE(D19; « 00000 »)
Désormais que nous avons notre nr d’article nous allons dire qu’il faut l’afficher dans info au moment que notre formulaire s’ouvre.
Me.Label1.Caption = Sheets(8).Range(« E19 »)
Ajouter les articles dans le tableau
Sur le bouton nous allons crée la variable DL .
Puis nous allons controler si nos zone ne sont pas vide avec la condition IF. Si nos conditon sont rempli nous allons crée un nouvelle ligne dans notre tabeau et puis place notre article.
Ne pas oublier de sauvegarder avec thisworkbook.save
création du bouton ajouter.
Créer un bouton au-dessus du tableau et dans le code placer
Add_article.Show
Bonsoir,
Svp aidé moi je suis bloqué sur la ligne suivante qui affiche erreur:
Sheets(2).Range(« b » & DL) = Me.Label_info.Caption
bonjour,
tout fonctionne chez moi jusqu’au moment où il faut activer le bouton « ADD »
il me dit qu’il y a une erreur dans « Add.article.Show » (en surlignant en jaune)
le problème est que je ne trouve pas où est l’erreur.
Pour info quand je rentre ce code, je n’ai pas la liste déroulante qui me propose « show » comme sur la vidéo
Merci pour votre aide.
Re-bonjour,
Je viens de trouver ma solution 🙂
Il fallait changer l’ordre dans ‘TabIndex’
Bonjour,
Votre tuto m’a bien servi. J’avais finalisé le code qui est fonctionnel.
J’ai ajouté une information supplementaire (sous la description) que je necessite au niveau de l’ajout d’article.
Mon formulaire s’ouvre, je remplie les premieres info, seulement la tabulation saute ce champs ‘location’. De la description, cela va directement au prix, je ne comprends pas pourquoi. Si je positionne ma souris sur ce champs tout focntionne et se rempli correctement.
Auriez-vous une idee concernant mon soucis svp?
Bonjour,
Merci pour ce tuto et ces explications, c’est vraiment pratique. Je connais un problème également une ligne qui apparaît en jaune, voici la ligne de code qui pose problème : Sheets(2).ListObjects(1).ListRows.Add
Et voici l’ensemble du code :
Private Sub CommandButton1_Click()
Dim DL As Integer
If Me.TextBox_nom « » And Me.TextBox_description « » And Me.TextBox_stock « » And Me.TextBox_prix « » Then
Sheets(2).ListObjects(1).ListRows.Add
DL = Sheets(2).Range(« b99999 »).End(xlUp).Row
‘ajouter dans le tableau
Sheets(2).Range(« B » & DL) = Me.Label_info.Caption
Sheets(2).Range(« C » & DL) = Me.TextBox_nom
Sheets(2).Range(« D » & DL) = Me.TextBox_description
Sheets(2).Range(« h » & DL) = CCur(Me.TextBox_prix)
Sheets(2).Range(« F » & DL) = CInt(Me.TextBox_stock)
Sheets(2).Range(« j » & DL) = « Disponible »
Sheets(6).Range(« D19 ») = Sheets(6).Range(« D19 ») + 1
End If
End Sub
Merci pour votre aide.
est-il possible de nous fournir le lien du fichier Excel afin que nous puissions le télécharger ?
Bonjour Daniel,
Merci pour vos tutoriels
La première ligne apparait en jaune débogage ? SubPrivate CommandButton1_Click()
Dim DL As Integer
If Me.Txt_nom « » And Me.Txt_description « » And Me.Txt_prix « » And Me.Txt_Part_min « » Then
Sheets(2).ListObjects(1).ListRows.Add ‘Ajouter une ligne au tableau
DL = Sheets(2).Range(« b99999 »).End(xlUp).Row ‘Aller à la dernière ligne
‘Ajouter dans le tableau
Sheets(2).Range(« B » & DL) = Me.Label_info.Caption
Sheets(2).Range(« C » & DL) = Me.Txt_nom
Sheets(2).Range(« d » & DL) = Me.Txt_description
Sheets(2).Range(« e » & DL) = CCur(Me.Txt_prix)
Sheets(2).Range(« F » & DL) = CInt(Me.Txt_min)
Sheets(2).Range(« J » & DL) = « active »
‘Incrémenter le nr d’article sur la page config
Sheets(8).Range(« d19 ») = Sheets(8).Range(« d19 ») + 1
ThisWorbook.Save
Unload Add_article
End If
j’ai le meme probleme
J’arrive pas à télécharger vos fichiers ??
J’arrive pas à télécharger vos fichiers ??
Bonjour
Je vous remercie infiniment.
Mon soucis est que je n’arrive pas à créer le formulaire d’ajout et de commande
Parce que a ce lieu cela est fait très rapidement et que j’ai du mal à cerner
Es ce que vous pouvez mieux m’indiqua?
Pardon même si quelqu’un le maîtrise il me le montre
Merci
bonjour monsieur
un enorme merci pour vos tutos
j’ai suivi votre tuto sur YouTube mais j’ai un problèmes pour mettre la couleur sur cellule de 1…….a <10 dans la partie mise en forme conditionnelle, si vous pouvez m'aider a remédier cela. merci
Bonjour,
Pensez-vous qu’il serait possible d’ajouter une exception dans le code de la case txt_prix. Je suis d’accord sur le fait que ça doit être numérique, mais les prix sont rarement rond. Serait-il possible d’ajouter un point ou une virgule ?
bonjour,
Merci beaucoup pour votre partage. Prière de m’explique l’erreur que j’ai faits. le bouttins « Ajouter » ne fonctionne plus.
Private Sub CommandButton1_Click()
Dim DL As integre
If Me.Txt_nom « » And Me.Txt_déscription « » And Me.Txt_prix « » And Me.Txt_min « » Then
Sheets(2).ListObjects(1).ListRows.Add ‘ajouter une ligne au tableau
DL = Sheets(2).Range(« b9999 »).End(xlUp).Row ‘aller à la dernière ligne
‘ajouter dans le tableau
Sheets(2).Range(« b » & DL) = Me.Label_info.Caption
Sheets(2).Range(« c » & DL) = Me.Txt_part_nom
Sheets(2).Range(« d » & DL) = Me.Txt_part_déscription
Sheets(2).Range(« e » & DL) = CCur(Me.Txt_prix)
Sheets(2).Range(« f » & DL) = CInt(Me.Txt_min)
Sheets(2).Range(« j » & DL) = « Active »
‘incrémenter le Nb Article sur la page config
Sheets(8).Range(« d19 ») = Sheets(8).Range(« d19 ») + 1
Unload Add_Article
this Workbook.Save
End If
End Sub
Private Sub Txt_déscription_Change()
End Sub
Private Sub Txt_min_Change()
‘uniquement des chiffres
If Not IsNumeric(Txt_min) And Txt_min « » Then
MsgBox « désoler uniquement des chiffres ! »
Txt_min = « »
End If
End Sub
Private Sub Txt_prix_Change()
‘uniquement des chiffres
If Not IsNumeric(Txt_prix) And Txt_prix vbNullString Then
MsgBox « désoler uniquement des chiffres ! »
Txt_prix = vbNullString
End If
End Sub
Private Sub Création_Initialize()
Me.Label_info.Caption = Sheets(8).Range(« e19 »).Value
End Sub
Private Sub UserForm_Click()
End Sub
mois aussi j’ai le même problème
bonjour, j’ai suivi pas à pas votre tuto
DL = Sheets(2).Range(« b9999 »).End(x1up).Row (ligne en jaune et ajoute une ligne vide)je n’arrive pas à trouver l’erreur .
j’ai donné les mêmes nom,pris les même cases ect..
Private Sub CommandButton1_Click()
Dim DL As Integer
If Me.Txt_nom « » And Me.Txt_description « » And Me.Txt_prix « » And Me.Txt_min « » Then
Sheets(2).ListObjects(1).ListRows.Add
DL = Sheets(2).Range(« b9999 »).End(x1up).Row (ligne en jaune et ajoute une ligne vide)
‘ajouter dans le tableau
Sheets(2).Range(« b » & DL) = Me.Labe_info.Caption
Sheets(2).Range(« c » & DL) = Me.Txt_nom
Sheets(2).Range(« d » & DL) = Me.Txt_description
Sheets(2).Range(« e » & DL) = CCur(Me.Txt_prix)
Sheets(2).Range(« f » & DL) = CInt(Me.Txt_min)
Sheets(2).Range(« j » & DL) = « Active »
Sheets(8).Range(« d19 ») = Sheets(8).Range(« d19 ») + 1
ThisWorkbook.Save
Unload Add_Article
End If
End Sub
Bonjour,
Je’ai soucis à la dernière ligne du code de la deuxième partie de votre tutos ?
Ci joint le code en entier :
Private Sub Label1_Click()
End Sub
Private Sub CommandButton1_Click()
If Me.Txt_nom « » And Me.Txt_description « » And Me.Txt_prix « » And Me.Txt_min « » Then
Sheets(2).ListObjects(1).ListRows.Add
dl = Sheets(2).Range(« b9999 »).Row
‘Ajouter dans le tableau
Sheets(2).Range(« b » & dl) = Me.Labe_info.Caption
Sheets(2).Range(« c » & dl) = Me.Txt_nom
Sheets(2).Range(« d » & dl) = Me.Txt_description
Sheets(2).Range(« e » & dl) = CCure(Me.Txt_prix)
Sheets(2).Range(« f » & dl) = CInt(Me.Txt_min)
Sheets(2).Range(« j » & dl) = « Active »
Sheets(8).Range(« dl9 ») = Sheets(8).Range(« dl9 ») + 1
ThisWorkbook.Save
Unload Add_article
End If
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Txt_description_Change()
End Sub
Private Sub Txt_min_Change()
‘Uniquement des chiffres
If Not IsNumeric(Txt_min) And Txt_min « » Then
MsgBox « Désoler uniquement des chiffres ! »
Txt_min = « »
End If
End Sub
Private Sub Txt_prix_Change()
‘Uniquement des chiffres
If Not IsNumeric(Txt_prix) And Txt_prix « » Then
MsgBox « Désoler uniquement des chiffres ! »
Txt_prix = « »
End If
End Sub
Private Sub UserForm_Click() — CETTE LIGNE EST EN JAUNE.
End Sub
Private Sub UserForm_Initialize()
Me.Labe_info.Caption = Sheets(8).Range(« e19 »).Value — LES DEUX PRMIER MOTS SONT EN JAUNE AUSSI ?
End Sub
En vous remerciant d’avance pour votre future réponse.
-Tony
bonjour monsieur j’ai suivi votre tuto sur youtube mais j’ai un probleme pour mettre la couleur sur cellule de 1…….a <10 dans la partie mise en forme conditionnelle, si vous pouvez m'aider a remedier cela. merci
Bonsoir, a vous, j’ai un problème, j’ai modifier le userform, avec des bouton radio pour avoir le choix un peux comme dans le booking, mais lorsque je veux faire incrémenter les # d’articles, cela fait des problèmes pour certain cela incrémente mais pour d’autres, cela les incrémentes sans que je l’ai choisi.
je vous met mon code:
Private Sub CommandButton1_Click()
Dim Dl As Integer
If Me.Txt_Nom « » And Me.Txt_description « » And Me.Txt_prix « » And Me.Txt_min « » Then
‘ajouter une ligne au tableau
Sheets(2).ListObjects(1).ListRows.Add
‘Aller à la derniere ligne
Dl = Sheets(2).Range(« b99999 »).End(xlUp).Row
‘Ajouter dans le tableau
Sheets(2).Range(« B » & Dl) = Me.Lebel_info.Caption
Sheets(2).Range(« C » & Dl) = Me.Txt_Nom
Sheets(2).Range(« D » & Dl) = Me.Txt_description
Sheets(2).Range(« E » & Dl) = CCur(Me.Txt_prix)
Sheets(2).Range(« H » & Dl) = CInt(Me.Txt_min)
Sheets(2).Range(« J » & Dl) = « Actif »
‘incrémenter le nr d’article sur la page config
If Me.Lebel_info.Caption = Sheets(8).Range(« e19 »).Value = True Then
Sheets(8).Range(« d19 ») = Sheets(8).Range(« d19 ») + 1
ElseIf Sheets(8).Range(« e20 »).Value = True Then
Sheets(8).Range(« d20 ») = Sheets(8).Range(« d20 ») + 1
ElseIf Sheets(8).Range(« e21 »).Value = True Then
Sheets(8).Range(« d21 ») = Sheets(8).Range(« d21 ») + 1
Else
Sheets(8).Range(« d23 ») = Sheets(8).Range(« d23 ») + 1
End If
ThisWorkbook.Save
Unload add_article
End If
End Sub
Je me demande si je peux faire un if avec des valeurs comme : if « e19″=use then
mais je ne sais pas si cela ce peux je n’ai rien trouvé
Merci de votre aide car cela m’a grandement aidé puisque l’on me m’a jamais montrer le excel.
Bonjour,
Merci beaucoup pour vos tutos, ils sont suer bien fait.
J’ai un petit soucis avec le code, en effet j’ai la ligne suivante en jaune : DL = Sheets(2).Range(“b9999”).End(xlUp).Row
voici l’ensemble du code:
Private Sub CommandButton1_Click()
Dim DL As Integer
If Me.Txt_nom « » And Me.Txt_description « » And Me.Txt_prix « » And Me.Txt_min « » Then
Sheets(2).ListObjects(1).ListRows.Add
DL = Sheets(2).Range(“b9999”).End(xlUp).Row
‘ajouter dans le tableau
Sheets(2).Range(“b” & DL) = Me.Label1.Caption
Sheets(2).Range(“c” & DL) = Me.Txt_nom
Sheets(2).Range(“d” & DL) = Me.Txt_description
Sheets(2).Range(“e” & DL) = CCur(Me.Txt_prix)
Sheets(2).Range(“h” & DL) = CInt(Me.Txt_min)
Sheets(2).Range(“j” & DL) = “Active”
Sheets(8).Range(“d19”) = Sheets(8).Range(“d19”) + 1
ThisWorkbook.Save
Unload Add_article
End If
End Sub
Merci beaucoup pour votre aide
Merci pour ces tutos. j’ai bien avancé dans mon document. Au début le graphique avec les couleurs fonctionnait bien et maintenant je n’ai plus les lignes et les couleurs ne veulent plus apparaitre. j’ai voulu refaire cette partie dans un autre document et rien ne veux se faire. le graphique n’apparait pas du tout. je ne sais pas ce qui pose problème.
merci de votre réponse
Bonsoir, Mon premier problème a été réglé, mais j’en ai un autre qui est apparue. Je me demandais lorsque pour les # d’article, j’ai différent préfixe, comment faire pour les incrémenté selon les préfixe utilisé. j’essais les if ou les case, mais cela ne marche pas. Il y a peut-être quelque chose que je ne fait pas bien. Si vous pourriez m’indiqué des piste cela m’aiderais.
Merci à vous et à vos tuto
Bonjour Monsieur. Déjà un grand merci pour vos tutos qui m’aident énormément.
J’ai un petit soucis. Quand j’ajoute un élément avec le formulaire, tout le graphique se me en bleu jusqu’à >10 même si mon stock est < au stock Minimum.
Mais quand je le fais manuellement, ça respecte les couleurs. Ça peut être dû à quoi ??? Est-ce que le formulaire peut avoir un impact sur les formulaires de mise en forme conditionnelles ?
Merci.
bonjour votre tuto est super bien fait, mais j’ai un soucis, quand je rempli le formulaire et que je clique sur le bouton ajouter (rien ne se passe pas de nouvelle ligne dans la feuille ARTICLE)
Private Sub CommandButton1_Click()
Dim DL As Integer
If Me.Txt_nom « » And Me.Txt_description « » And Me.Txt_prix « » And Me.Txt_min « » Then
Sheets(2).ListObjects(1).ListRows.Add
DL = Sheets(2).Range(« b9999 »).End(xlUp).Row
‘ajouter dans le tableau
Sheets(2).Range(« b » & DL) = Me.Labe_info
Sheets(2).Range(« c » & DL) = Me.Txt_nom
Sheets(2).Range(« d » & DL) = Me.Txt_description
Sheets(2).Range(« e » & DL) = CCur(Me.Txt_prix)
Sheets(2).Range(« h » & DL) = CInt(Me.Txt_min)
Sheets(2).Range(« j » & DL) = « Active »
Sheets(8).Range(« d19 ») = Sheets(8).Range(« d19 ») + 1
ThisWorkbook.Save
Unload Add_article
End If
End Sub
Private Sub Add_article_Click()
End Sub
Private Sub Txt_min_Change()
‘uniquement des chiffres
If Not IsNumeric(Txt_min) And Txt_min « » Then
MsgBox « Désoler Uniquement Des Chiffres ! »
Txt_min = « »
End If
End Sub
Private Sub Txt_prix_Change()
‘uniquement des chiffres
If Not IsNumeric(Txt_prix) And Txt_prix « » Then
MsgBox « Désoler Uniquement Des Chiffres ! »
Txt_prix = « »
End If
End Sub
Private Sub UserForm_Initialize()
Me.Labe_info.Caption = Sheets(8).Range(« E19 »).Value
End Sub
Merci de bien vouloir me repondre
Bonjour ,
Merci pour vos tutos très bien fait , j’ai le meme souci que Faith avec une ligne jaune sur DL = Sheets(2).Range(« b99999 »).End(xlUp).Row.
Voici mon code :
Private Sub CommandButton1_Click()
Dim DL As Integer
If Me.txt_nom « » And Me.txt_description « » And Me.txt_prix « » And Me.txt_min « » Then
Sheets(2).ListObjects(1).ListRows.Add
DL = Sheets(2).Range(« b99999 »).End(xlUp).Row
‘ajouter dans le tableau
Sheets(2).Range(« b » & DL) = Me.Label_info.Caption
Sheets(2).Range(« c » & DL) = Me.txt_nom
Sheets(2).Range(« d » & DL) = Me.txt_description
Sheets(2).Range(« e » & DL) = CCur(Me.txt_prix)
Sheets(2).Range(« f » & DL) = CInt(Me.txt_min)
Sheets(2).Range(« j » & DL) = « Active »
Sheets(8).Range(« d19 ») = Sheets(8).Range(« d19 ») + 1
ThisWorkbook.Save
Unload Add_article
End If
End Sub
Merci beaucoup d’avance pour votre réponse car je bloque dessus . 4 essais en reproduisant les mêmes codes que vous sur la vidéo , je désespère !!!!
J’ai également ce problème…
Bonjour je regarde votre tuto avec attention mais cependant jai un soucis pour la partie graphique qui ne fonctionne pas pourriez vous m’aider merci
Bonjour,
Merci de votre retour,
Le fait est que quand je fais cette manœuvre de base ne marche pas, quand je fais clic droit et que la fenetre s’affiche pour me proposer insérer/supprimer ou autre, cela n’est pas grisé.
Peut etre une erreur de ma part dans la codification, qu’en pensez-vous ?
Bonjour,
Votre tutoriel est vraiment génial, simple, clair et limpide avec énormément d’explications, je tenais à vous remercier.
Cependant je suis embêté car je ne sais pas comment supprimer les lignes articles ajouter, pouvez-vous m’éclairer sur ce sujet ? Je ne trouve pas de codes VBA qui pourrait m’aider.
Dans l’attente de votre retour,
Bien cordialement.
Bonjour Aznar,
vous deze faire un clique droit dans le tableau a la ligne de l’article est supprimer la ligne.
Bonjout M.Daniel
Grand Merci pour votre tutoriel.J’ai un souci concernant la dernier ligne du code Ajouter .L’instruction Unload Add_article donne une erreur de type 424 requérant un objetje constate quand meme que les champs sont inséréscomment pourrais-je réparer ceci?
Abder BELAID
Bonjour,
pouvez vous partager le code que vous avez placer ?
bonjour est un grand mercipour ce tuto
mon probleme je ne comprends pas comment vous faites pour faire votre formulaire?
Merci beaucoup et courage
bonjour l’ami je vous dit un grand merci beaucoup pour ce tuto mais j’ai un problème,
a propos du label il ne change pas je ne sais pas ou est le problème pourtant j’ai comme vous l’avez dit pas a pas mais aucun resultat…
eclairez moi svp
Merci d’avance
bonjour Lyes,
vérifier bien que le nom du label correspond à celui que vous indiquer dans votre code
bonjour Mr Daniel ,merci pour ton tutorial je suis en chine pour mon master mais je veux crrer la meme application sur excel mais j’ai rencontres des des diffuculte au 2eme tutorial apres apres finis au niveau de la compilation on me dit Erreur de compilation « Membre de methode ou de donnes introuvable » .Txt_nom es souligner en bleu et le private sub commamdeBouton1_Click () es souligner en jaune veuillez m’assiste merci infinement
Bonjour
Vous allez trop vite pour la creation du formulaire Ajouter.
Existe t’il un autre tuto qui l’expplique?
Merci
Bonjour j’ai écrit le 15 nov 2019 et je n’ai pas de réponse pourtant vous avez répondu à un internaute le 17 .
Est-ce que vous pouvez répondre svp?
Bonjour Anthony,
il y a des questions que je peux répondre sans devoir tester un bout de code donc ils reçoivent plus vite une réponse. dans votre cas il me faut tester le code que vous avez indiquer dans votre commentaire donc il me faut trouver le temps de tester votre code. et pour rappelle vous n’êtes pas la seul a sollicité mon aide.
alors pour répondre à votre problème que vous m’avez soumis qui est la suite .
j’ai donc tester votre code et cela fonctionne vérifier que votre label se nomme bien labe_info et que votre page config se nomme bien config et qu’il y a quelque chose dans le champs E19.
avec le .value nous allons simplement dire de reprendre la valeur de la cellule(range) comme elle est mais c’est optionnel vous pouvez retiré cela si vous le souhaitez.
Bonjour Mr DANIEL,
Merci pour les tutoriels.
Je vous envoie les codes que j’ai introduit dans l’application Gestion de stock N°3, dans la rubrique
ORDER…..Commande AJOUTER comme suite :
Option Explicit
Public memoire As Integer
Private Sub Btn_Ajouter_Click()
With Me.List_Order
.AddItem
.List(memoire, 0) = Me.Cbx_DésignationPdt
.List(memoire, 1) = Me.Txt_Quantité
End With
memoire = memoire + 1
Quand je remplie le formulaire ORDER , j’actionne la commande AJOUTER , l’expression Additem se met en bleu et un message d’erreur apparait : « Erreur de compilation :Membre de méthode ou de données introuvables ».Et l’expression : Private Sub Btn__Ajouter_click()(intitulé du bouton AJOUTER)se colore en jaune.
Veuillez m’aider à résoudre ce problème et à me corriger Merci.
Bonjour Mounir, avez vous placer une zone de text ou une zone de liste car si vous avez placer une zone de text alors vous ne pouvez pas utiliser la fonction .add car elle n’existe pas.
bonjour et encore merci j’ai le mémé souci que Mounir et je trouve pas la solution si tu peux me donner plus de détail merci Daniel..
Bonjour Daniel, j’ai le même problème que Mounir, stp plus de détails ferai l’affaire, stp parce que complètement bloqué par c AddItem ???
Ce code….
Private Sub UserForm2_Initialize()
Me.Labe_info.Caption = Sheets(« config »).Range(“E19”).Value
End Sub
….n’affiche absolument rien! Dans le userform je reste coincé avec LABE dans le haut. De plus entre le code du tuto et le code sur cette page il n’y a pas de .Value !?!
Merci très infiniment
Bonjour,
Merci pour le tuto. Lorsque je veux programmer le bouton « ajouter », un message d’erreur apparaît en me disant : « erreur d’exécution ‘438’, propriété ou méthode non gérée par cet objet ».
La ligne souligné en jaune est : Sheets(7).Listojects(1).ListRows.Add (feuille 7 car « article » est en 7)
le code :
Private Sub CommandButton1_Click()
Dim DL As Integer
If Me.Modele « » And Me.Piece « » And Me.Couleur « » And Me.Qualite « » And Me.TextBox2 « » And Me.Prix « » And Me.Stock_minimum « » Then
Sheets(7).Listojects(1).ListRows.Add
DL = Sheets(7).Range(« b9999 »).End(xlUp).Row
‘ajouter dans le tableau
Sheets(7).Range(« B » & DL) = Me.Modele
Sheets(7).Range(« c » & DL) = Me.Piece
Sheets(7).Range(« D » & DL) = Me.Couleur
Sheets(7).Range(« E » & DL) = Me.Qualite
Sheets(7).Range(« G » & DL) = CCur(Me.Prix)
Sheets(7).Range(« L » & DL) = « Actif »
Sheets(7).Range(« F » & DL) = Me.TextBox2
ThisWorkbook.Save
Unload Add_Article
End If
End Sub
Merci d’avance !
bonjour , merci pour se tutoyer qui est vraiment très instructif et intéressant ; je viens vers vous car j’ai un problème lors de la mise en place de l’article en effet pour labe_info il me dit que’il y aune erreur de compilation savez vous pourquoi et comment résoudre le problème merci d’avance
Bonjour daniel j’aii un probleme dans la creation des articles. si par hasard il y’a des artticles que je veux supprimer mais ne pas laisser la case vide que devrais je ajouter dans le programme pour que ca n’ajoute pas une ligne si la ligne precedente a ete vidé ??
merci de me repondre
Le grand merci mon frère
Est se que tu peux m’aide ?
J’ai des questions pour une conversation pourque tu savoir tout d’abord j’ai commencé le travaille dans un usine un gestionnaire de stock et de production
bonjour,
tout d’abord je vous remercie du fond du coeur pour tout ce que vous faites.
j’ai suivi pas à pas votre tuto , tout marche à merveille , sauf le numéro article je n’arrive pas à l’afficher , un message sur le formulaire , je reçois le message d’erreur suivant ;
» erreur d’execution 1004 , erreur définie par l’application ou par l’objet »
merci d’avance ,
Bonjour Salah,
où n’arrivez-vous pas a afficher le numéro d’article ?
Bonjour,
Un grand merci pour la transmission de votre savoir !
J’avais une question concernant le bouton « ADD » :
Lorsque je clique dessus, le formulaire d’ajout d’un article s’affiche bien. Lorsque je quitte la boite de dialogue et que je clique ailleurs sur la feuille et que je re-clique sur le bouton « ADD » celui-ci a le nom ADD qui descend petit à petit à chaque fois que clique dessus.
Savez-vous d’où peut provenir le problème s’il vous plait ?
Je vous en remercie par avance !
Louis
Bonjour Daniel,
Avant toute chose je tenais à vous remercier pour ce tutoriel. En plus de fournir un outil gratuit chose rare de nos jours, vous m’éclairez d’avantage sur l’élaboration d’une macro.
Cependant je fais face à une problématique. L’outil était fonctionnel jusqu’au moment d’ajouter un nouvel article. En effet, arrivé en ligne 12 de ma feuille 2 « Articles », Excel cesse de fonctionner à partir du moment où je click sur le bouton Ajouter.
Avez-vous une idée du souci ? Je peux vous fournir des éléments pour plus de précision.
En vous remerciant par avance et bonne journée.
Bonjour Kevin,
votre fichier s’arrête ou vous avez un message d’erreur ?
cet ligne
Sheets(« article »).ListObjects(1).ListRows.Add
est jaune
l’indice n’appartiens pas a la selection
j’ai changer le article par N mais reste le meme probleme
bonjour chemseddin,
envoyer moi votre fichier que je regarde à daniel@tutoderien.com
msg est envoyer ,merci de me répondre
Bonjour DANIEL, si je peux vous appeler ainsi,
J’ai le même soucis que FAITH. Après codage j’ai une erreur d’exécution ‘1004’ Erreur défini par l’application ou par l’objet.
C’est cette la ligne qui est jaune
dl = Sheets(2).Range(« b99999 »).End(x1Up).Row
Je vous remercie d’avance
Bonjour Palaye,
je vois que vous avez une erreur dans le code que vous partager ce n’est pas end(x1up) mais end(xlup) c’est un L et non 1
Après avoir fait l’exercice j’ai enregistré et quand j’ai ouvert mon travail à nouveau, mon bouton n’était plus fonctionnel
Bonjour André,
quand vous travaillez avec du vba vous devez sauvegarder vos fichier en preneant en compte les macro sinon quand vous allez l’ouvrir tous sera perdu
Salut Damien.
Merci beaucoup pour tes tutoriels.
En fait j’ai un souci à mon niveau. Je n’arrive pas à afficher la liste déroulante dans la colonne « Statuts » pourtant j’ai bien suivi les étapes. Aussi jen’arrive pas à créer le bouton « Ajouter article » sur la feuille; le bouton « Insérer » présent dans l’onglet « Développeur » est grisé.
Merci pour l’aide.
Bonjour Eric,
avec quelle version d’Excel travaillez vous ?
Bonjour Damien.
Veuillez m’excusez pour le retard.
J’avais finalement réussi à résoudre mon problème en recréant un nouveau ficher Excel et depuis tout va bien.
Merci.
j’ai besoin d’aide sur les graphes, toutes mes lignes ont les mm graphes.
Laye’s je vous ais répondu sur Youtube
Je vous remercie infiniment pour votre bonne générosité.
Au faite moi je me n’arrive pas a réussir le code du bouton d’ajout a la base de donnée.
Quand j’exécute le code cela me dit toujours « Erreur définie par l’application ou par l’objet »
Voici le code ci-dessous, orienter moi svp
Private Sub CommandButton1_Click()
Dim dl As Integer ‘Pour determiner la derniere ligne du tableau
If Me.txt_nom « » And Me.txt_description « » And Me.txt_prix « » And Me.txt_mini « » Then
Sheets(2).ListObjects(1).ListRows.Add ‘Ajouter une ligne au tableau
dl = Sheets(2).Range(« b99999 »).End(x1Up).Row ‘Aller a la derniere ligne
‘Ajout dans le tableau
Sheets(2).Range(« b » & dl) = Me.Label_info.Caption
Sheets(2).Range(« c » & dl) = Me.txt_nom
Sheets(2).Range(« d » & dl) = Me.txt_description
Sheets(2).Range(« e » & dl) = CCur(Me.txt_prix)
Sheets(2).Range(« h » & dl) = CInt(Me.txt_mini)
Sheets(2).Range(« j » & dl) = « Active »
‘incrémenter le nr d’article sur la page config
Sheets(8).Range(« D19 ») = Sheets(« d19 ») + 1
ThisWorkbook.Save
Unload New_Arrivage
End If
End Sub
Merci de me repondre
Moins
RÉPONDRE
Bonjour quel ligne est en jaune ? Qu’an vous avez l’erreur