Il y a une correction à faire à 13:01 notamment pendant le calcule total j'ai oublier de rendre le nombre dynamique. il faut placer le code suivant: Range("F" & DL) = Range("E" & DL) * prix_article et non pas Range("F" & DL) = Range("E10") * prix_article
Bonsoir Daniel et merci pour la qualité de votre enseignement qui me permet d'espérer de comprendre enfin le VBA. A vous suivre sur les prochaines vidéos.
Bonsoir Daniel. Une petite macro pour expliquer comment intervertir les lignes serait vraiment sympa. Exemple mettre l'article de la 3ème ligne sur la troisième.
Bonjour et Merci pour ce tuto, claire et intéressant. ma question est la suivante: Comment faire plusieurs pages en gardant le logo, la date et les adresses .... Merci d'avance.
Bonsoir Monsieur Merci pour ce tuto, explication très claire. Je comprends enfin le langage VBA QUELQUES QUESTIONS pour améliorer le modéle : Comment faire plusieurs pages et garder la mise en page des 1er lignes (logo+ adresse etc ) comment ajouter le numéro de page et enfin est-il possible de créer une numérotation automatique des factures Merci d'avance
C'est magnifique, c'est exactement ce que je cherchais, je vous remercie vivement monsieur Daniel. J'ai une question, est ce que vous pouvez m'orionter comment appliquer la fonction BDlire ( DGet en anglais ) en VBA. Merci d'avance
Khaled je suis ravi que cette partie vous plait. la fonction Dget BDlire fait plus au moins la meme chose que la fonction Vlookup mais je n'aime pas trop l'utiliser. description_article = WorksheetFunction.DGet(Sheets("article").Range("b2:d12"), 2, Range("K1:k2")) Nr_article = WorksheetFunction.DGet(Sheets("article").Range("b2:d12"), 1, Range("K1:k2")) prix_article = WorksheetFunction.DGet(Sheets("article").Range("b2:d12"), 3, Range("K1:k2")) mais i faut faire attention que l'emplacement ou vous voulez placer votre titre de votre critère de recherche ne ce trouve pas sur le coté mais bien au-dessus et que votre base de données avec les article comporte le meme titre que votre titre de recherche sinon ça ne marche pas.
Je tiens à vous remercie pour votre vidéo. Elle est très intéressante. Toutefois, j'ai rencontré une difficulté lors de l'ajout des nouveaux articles sur la ligne suivante. Lorsque je saisie le code et que je l'exécute, l'ancien article présent sur la prémière ligne(dans votre cas, à la ligne 10) se deplace vers le bas et non j'ajoute à la suite comme chez vous. Pouvez-vous svp m'aider.
Bonjour Daniel, Merci pour ce riche enseignement. Je rencontre un problème sur la partie où l'article existe déjà. Quand je saisie directement le N° Article dans le "K2", il me rajoute une nouvelle ligne même quand l'article existe déjà. Mais quand je copie un N° article existant déjà dans le devis pour le coller dans "K2" là ça marche (il ne rajoute pas de nouvelle ligne). Que faire ? Merci d'avance.
Merci pour vos importantes vidéo. Jai essayé d'exécuter un code vba pour commander l'aiguille d'un speedomètre mais je n'arrive pas à l'exécuter merci encore de m orienter
Bonsoir Daniel, et merci pour le Tuto. Cependant, je rencontre qlq soucis au niveau du calcul du total(Prix_article *nombre d'article). Le résultat affiché n'est pas correct, et sur le tuto aussi, c'est le cas. Malgré la correction, l'erreur est toujours présente. En faisant le teste avec l'addition et la soustraction, le résultat est juste mais la multiplication et la division donnent un résultat différent. Comment corriger cela ?Merci
Merci beaucoup monsieur grâce à vous j'ai pu améliorer mon niveau d'Excel merci encore mais si vous permettez une petite remarque à ce qui concerne le tableau des articles je l'ai mis sous forme de tableau dont j'ai nommer TbArticle et lors de faire la fonction Vloockup au lieu de sélectionner la plage j'ai mis le nom de mon tableau ainsi j'ai eu une liste déroulantes des numéros d'article dynamique au cas ou je veux ajouter un article plus tard j’espère que je vous ai pas embêter la "100........." fois merci monsieur.
Bonjour, Merci pr tout. Intéressant, j'ai fais comme toi par la suite et ça marché. Mais il a fallu que j'aille définir le nom du tableau avant que ça ne prenne. Par défaut Excel met le nom Tableau1, du coup ça marchait pas qd je mettais Tableau1 ds ma ligne de code Vlookup. J'ai du renommer le tableau comme toi. Encore merci pour l'astuce. ça évite de revenir changer la plage dès qu'on ajoute un nouvel article. Vraiment top 👍👍👍
Bonjour Daniel je me suis mis à suivre vos cours excel VBA pour débuter. Dans le 5ème faire une facture automatique j ai remarqué une erreur au niveau des totaux la première ligne est toujours juste mais en suite ligne le nb reste toujours le même. Exemple si le nb est 10 toutes les lignes sont prise avec 10 comme une constante. Je n'arrive pas à corriger l erreur la formule et comme suit. Range("f") & Dl = rangé ("E10") × prix article Je pense que l erreur est en E10 Merci pour la qualité des vidéos et si je pouvais avoir une correction Yves
Bonjour, Tout d'abord merci beaucoup pour vos vidéos😄 Je suis bloquée avec la fonction Vlookup, je ne cesse d'avoir l'erreur 1004 : erreur définie par l'application ou par l'objet. Avez vous un conseil? J'ai essayé tout ce que j'ai lu sur internet et rien ne fonctionne.. Si j'utilise le On erreur Resume Next, alors mes 3 lignes avec Vlookup ne sont plus prises en compte. Merci d'avance! Emma
Bonsoir Daniel et encore bravo pour cette nouvelle série qui est vraiment une source d'inspiration. Cependant pouvez vous me dire comment activer une macro après avoir sélectionner qq chose dans une liste déroulante. Exemple dans la série gestion d'entreprise que j'utilise actuellement lorsque je vais dans ma liste déroulante pour régénérer une facture et que j'en selectionne une différente que celle affichée qu'un petit code vba se lance ? Merci d'avance
vu qu'il y a des formule dans la facture du gestionnaire d'entreprise. je pense qu'il serais plus facile de crée une facture de base qui est 100 ligne de long. puis avec du code vba il faudra compte combien d'article qu'il y dans la facture. avec ce nombre il serra possible d'indiquer la plage de ligne qui'l faut masquer avec le code suivant Rows("x:x").EntireRow.Hidden = True au moment qu'une autre facture ce charge il faudra agrandir à nouveau afficher toute les lignes et les réduire avec le nombre d'article. j’espère que vous comprenez ce que je veux dire
de rien c'est exactement ce que j'ai fait j'ai créer 150 lignes en prévisions pour que les factures soient bien sûr toutes les lignes. Pour le reste je vais trouver un moment merci encore
Bonjour Daniel en suivant le modele de ton code j'ai creer une colonne supplementaire " Yes or No " Avec le YES en Vert et le NO en rouge pour chacun des articles "Articles " dans la feuille . J'aimerais automatiser cela dans le code deja existant pour avoir le YES et le NO avec leurs couleurs respectives dans la feuille "Facture " . Pourrais tu me donner le code approprie ? Merci
Bonjour, je voulais savoir si il y avait le moyen d'avoir un code vba sur excel qui permet de relever le jour en format jj-mm et l'annee en format YYYY a part d'un tableau ou on retrouve une date en format jj/mm/yyyy ? Merci
Bonjour Daniel, j'attend chacun de vos tutos, c'est très instructif, continuez. Dans la continuité de ce tuto, si l'on se retrouve avec un nombre important d'articles qui fait que l'on l'ai 2 pages ou plus, comment peut on gérer le saut de page avec éventuellement un sous total en bas de chaque page et le report du HT/TVA et TTC en dernière page?? Merci pour votre réponse ou tuto. Cdlt
bonjour luis, cela est possible en ajoutant un controle dans votre code vba exemple si vous arriver avec les article à ligne X alors il faut faire un décompte de page et continuer sur la prochaine ligne. il faut prendre en compte dans votre total HTVA qu'il ne dois pas calculer le total de page. qui sais je montrerais cela dans un futur tuto .
Bonjour, J'ai mis le code pour éviter les doublons mais il continue toujours à me mettre une nouvelle ligne sans modifier la quantité de la ligne pré-existante. For ligne = 10 To DL If Range("h2") = Range("b" & ligne) Then Range("e" & ligne) = Range("e" & ligne) + Range("h3") Range("F" & ligne) = Range("e" & ligne) * Range("d" & ligne)
Range("h2:h3").ClearContents
GoTo suite End If Next ligne Pouvez-vous m'aider svp?
Je me suis bloqué dans l première partissur le bouton ajouter j Ecri le même problème que le votre est il m'affiche erreur 9. Debougage. J'ai essayer de refaire le programme plusieurs fois. Il me donne toujours le même erreur
j'ai toujours une erreur lors du calcul HTVA (erreur d'exécution 1004 erreur definie par l'application ou par l'objet Private Sub Ajouter_Click() ' ###### Les variables Dim Description_articles As String Dim Numero_article As String Dim Prix_article As Currency Dim DL As Integer Dim HTVA As Currency DL = Range("B1000").End(xlUp).Row + 1 '### DL = dernière ligne) '### je recherche la dernière ligne remplie et je prends la ligne en dessous '##### la recherche - je vais donc rechercher la valeur de la cellule K2 dans un tableau S17-U25 description_article = WorksheetFunction.VLookup(Range("K2"), Sheets("listes").Range("S17:U25"), 2, 0) Numero_article = WorksheetFunction.VLookup(Range("K2"), Sheets("listes").Range("S17:U25"), 1, 0) Prix_article = WorksheetFunction.VLookup(Range("K2"), Sheets("listes").Range("S17:U25"), 3, 0) '#### Ajouter dans la facture- Le DL sert à mettre sur la ligne suivante
Range("C" & DL) = description_article Range("B" & DL) = Numero_article Range("D" & DL) = Prix_article Range("E" & DL) = Range("K3") '##### après avoir cliquer sur le botn "ajouter", je vide les cellules Range("K2:K3").ClearContents '####" Calcul du total Range("F" & DL) = Range("E" & DL) * Prix_article
'#### calcul du total HTVA HTVA = WorksheetFunction.Sum(Range("F10:F15")) Range("F16") = HTVA
![Lil Uzi Vert - Chill Bae [Official Music Video]](http://i.ytimg.com/vi/D7F42F_JM3U/mqdefault.jpg)
Il y a une correction à faire à 13:01 notamment pendant le calcule total j'ai oublier de rendre le nombre dynamique. il faut placer le code suivant:
Range("F" & DL) = Range("E" & DL) * prix_article
et non pas
Range("F" & DL) = Range("E10") * prix_article
Petite astuce pour insérer ou supprimer des lignes plus rapidement (CTRL + et CTRL -) merci pour le vidéo bonne fin de semaine
Merci . Monsieur .j'avais remarqué l'erreur , donc je l'ai fait chez moi.
A 1:47 quand vous dites "0 qui veut dire vrai, on veut l'exactitude". Ce n'est pas plutôt 1 = "Vrai" et 0 = "Faux"?
Bonsoir Daniel et merci pour la qualité de votre enseignement qui me permet d'espérer de comprendre enfin le VBA. A vous suivre sur les prochaines vidéos.
Gracias Daniel eres el mejor contigo y tus videos he solucionado muchos problemas y cada dia aprendo mas de corazon gracias
Ma facture fonccione 100 pour 100 .Merci enormement Daniel
Bonsoir Daniel. Une petite macro pour expliquer comment intervertir les lignes serait vraiment sympa. Exemple mettre l'article de la 3ème ligne sur la troisième.
Salut daniel !!!! merci pour ce très beau tuto !!!! j'ai bien adoré, un grand merci, et merci pour la petite correction :)
Bonjour et Merci pour ce tuto, claire et intéressant.
ma question est la suivante:
Comment faire plusieurs pages en gardant le logo, la date et les adresses ....
Merci d'avance.
Bonsoir Monsieur Merci pour ce tuto, explication très claire. Je comprends enfin le langage VBA QUELQUES QUESTIONS pour améliorer le modéle :
Comment faire plusieurs pages et garder la mise en page des 1er lignes (logo+ adresse etc )
comment ajouter le numéro de page et enfin est-il possible de créer une numérotation automatique des factures
Merci d'avance
merci pour ce tuto très instructif; peut on avec la fonction VlookUp rendre la plage de recherche dynamique si on joute des articles?
Très intéressant, Merci
Merci beaucoup!
C'est magnifique, c'est exactement ce que je cherchais, je vous remercie vivement monsieur Daniel. J'ai une question, est ce que vous pouvez m'orionter comment appliquer la fonction BDlire ( DGet en anglais ) en VBA. Merci d'avance
Khaled je suis ravi que cette partie vous plait.
la fonction Dget BDlire fait plus au moins la meme chose que la fonction Vlookup mais je n'aime pas trop l'utiliser.
description_article = WorksheetFunction.DGet(Sheets("article").Range("b2:d12"), 2, Range("K1:k2"))
Nr_article = WorksheetFunction.DGet(Sheets("article").Range("b2:d12"), 1, Range("K1:k2"))
prix_article = WorksheetFunction.DGet(Sheets("article").Range("b2:d12"), 3, Range("K1:k2"))
mais i faut faire attention que l'emplacement ou vous voulez placer votre titre de votre critère de recherche ne ce trouve pas sur le coté mais bien au-dessus et que votre base de données avec les article comporte le meme titre que votre titre de recherche sinon ça ne marche pas.
de rien Merci Beaucoup, J'utilise Excel pour mon PFE, et vos vidéos m'ont vraiment aidé. Merci encore pour votre réponse
Je tiens à vous remercie pour votre vidéo. Elle est très intéressante. Toutefois, j'ai rencontré une difficulté lors de l'ajout des nouveaux articles sur la ligne suivante. Lorsque je saisie le code et que je l'exécute, l'ancien article présent sur la prémière ligne(dans votre cas, à la ligne 10) se deplace vers le bas et non j'ajoute à la suite comme chez vous. Pouvez-vous svp m'aider.
Bonjour Daniel, Merci pour ce riche enseignement. Je rencontre un problème sur la partie où l'article existe déjà. Quand je saisie directement le N° Article dans le "K2", il me rajoute une nouvelle ligne même quand l'article existe déjà.
Mais quand je copie un N° article existant déjà dans le devis pour le coller dans "K2" là ça marche (il ne rajoute pas de nouvelle ligne).
Que faire ? Merci d'avance.
Merci pour vos importantes vidéo. Jai essayé d'exécuter un code vba pour commander l'aiguille d'un speedomètre mais je n'arrive pas à l'exécuter merci encore de m orienter
Bonsoir Daniel, et merci pour le Tuto. Cependant, je rencontre qlq soucis au niveau du calcul du total(Prix_article *nombre d'article). Le résultat affiché n'est pas correct, et sur le tuto aussi, c'est le cas. Malgré la correction, l'erreur est toujours présente. En faisant le teste avec l'addition et la soustraction, le résultat est juste mais la multiplication et la division donnent un résultat différent. Comment corriger cela ?Merci
Merci beaucoup monsieur grâce à vous j'ai pu améliorer mon niveau d'Excel merci encore mais si vous permettez une petite remarque à ce qui concerne le tableau des articles je l'ai mis sous forme de tableau dont j'ai nommer TbArticle et lors de faire la fonction Vloockup au lieu de sélectionner la plage j'ai mis le nom de mon tableau ainsi j'ai eu une liste déroulantes des numéros d'article dynamique au cas ou je veux ajouter un article plus tard j’espère que je vous ai pas embêter la "100........." fois merci monsieur.
Bonjour,
Merci pr tout.
Intéressant, j'ai fais comme toi par la suite et ça marché. Mais il a fallu que j'aille définir le nom du tableau avant que ça ne prenne. Par défaut Excel met le nom Tableau1, du coup ça marchait pas qd je mettais Tableau1 ds ma ligne de code Vlookup. J'ai du renommer le tableau comme toi. Encore merci pour l'astuce. ça évite de revenir changer la plage dès qu'on ajoute un nouvel article. Vraiment top 👍👍👍
Bonjour Daniel je me suis mis à suivre vos cours excel VBA pour débuter. Dans le 5ème faire une facture automatique j ai remarqué une erreur au niveau des totaux la première ligne est toujours juste mais en suite ligne le nb reste toujours le même. Exemple si le nb est 10 toutes les lignes sont prise avec 10 comme une constante. Je n'arrive pas à corriger l erreur la formule et comme suit.
Range("f") & Dl = rangé ("E10") × prix article
Je pense que l erreur est en E10
Merci pour la qualité des vidéos et si je pouvais avoir une correction
Yves
Bonjour,
Tout d'abord merci beaucoup pour vos vidéos😄
Je suis bloquée avec la fonction Vlookup, je ne cesse d'avoir l'erreur 1004 : erreur définie par l'application ou par l'objet.
Avez vous un conseil? J'ai essayé tout ce que j'ai lu sur internet et rien ne fonctionne..
Si j'utilise le On erreur Resume Next, alors mes 3 lignes avec Vlookup ne sont plus prises en compte.
Merci d'avance!
Emma
Bonsoir Daniel et encore bravo pour cette nouvelle série qui est vraiment une source d'inspiration. Cependant pouvez vous me dire comment activer une macro après avoir sélectionner qq chose dans une liste déroulante. Exemple dans la série gestion d'entreprise que j'utilise actuellement lorsque je vais dans ma liste déroulante pour régénérer une facture et que j'en selectionne une différente que celle affichée qu'un petit code vba se lance ? Merci d'avance
Bonjour Jacque,
que doit faire votre petit code vba quand vous changer de facture
Bonsoir Daniel il doit ajouter des lignes qd la facture comprends plus de 40 articles
53 lignes pour être précis
vu qu'il y a des formule dans la facture du gestionnaire d'entreprise.
je pense qu'il serais plus facile de crée une facture de base qui est 100 ligne de long.
puis avec du code vba il faudra compte combien d'article qu'il y dans la facture.
avec ce nombre il serra possible d'indiquer la plage de ligne qui'l faut masquer avec le code suivant
Rows("x:x").EntireRow.Hidden = True
au moment qu'une autre facture ce charge il faudra agrandir à nouveau afficher toute les lignes et les réduire avec le nombre d'article.
j’espère que vous comprenez ce que je veux dire
de rien c'est exactement ce que j'ai fait j'ai créer 150 lignes en prévisions pour que les factures soient bien sûr toutes les lignes. Pour le reste je vais trouver un moment merci encore
merci infiniment
Bonjour Daniel en suivant le modele de ton code j'ai creer une colonne supplementaire " Yes or No " Avec le YES en Vert et le NO en rouge pour chacun des articles "Articles " dans la feuille . J'aimerais automatiser cela dans le code deja existant pour avoir le YES et le NO avec leurs couleurs respectives dans la feuille "Facture " . Pourrais tu me donner le code approprie ? Merci
Bonjour, je voulais savoir si il y avait le moyen d'avoir un code vba sur excel qui permet de relever le jour en format jj-mm et l'annee en format YYYY a part d'un tableau ou on retrouve une date en format jj/mm/yyyy ? Merci
Bonjour, serait-il possible d'avoir les fichier excel pour pouvoir faire les exercices svp? Afin de ne pas chaque fois créer un nouveau.
merci.
Bonjour Daniel, j'attend chacun de vos tutos, c'est très instructif, continuez.
Dans la continuité de ce tuto, si l'on se retrouve avec un nombre important d'articles qui fait que l'on l'ai 2 pages ou plus, comment peut on gérer le saut de page avec éventuellement un sous total en bas de chaque page et le report du HT/TVA et TTC en dernière page??
Merci pour votre réponse ou tuto. Cdlt
bonjour luis,
cela est possible en ajoutant un controle dans votre code vba exemple si vous arriver avec les article à ligne X alors il faut faire un décompte de page et continuer sur la prochaine ligne. il faut prendre en compte dans votre total HTVA qu'il ne dois pas calculer le total de page.
qui sais je montrerais cela dans un futur tuto .
Merci bien M.daniel mais je veut savoir quelle est le but d'ajouter la formule "clearcontents" C,a,d pour quoi on l'utilise ??
afin de vider le contenue
@@TutoDeRien merci beaucoup 😊😊
Bonjour,
J'ai mis le code pour éviter les doublons mais il continue toujours à me mettre une nouvelle ligne sans modifier la quantité de la ligne pré-existante.
For ligne = 10 To DL
If Range("h2") = Range("b" & ligne) Then
Range("e" & ligne) = Range("e" & ligne) + Range("h3")
Range("F" & ligne) = Range("e" & ligne) * Range("d" & ligne)
Range("h2:h3").ClearContents
GoTo suite
End If
Next ligne
Pouvez-vous m'aider svp?
Merci Daniel pour ce bon tuto, avez vous reçu mon mail ? Bon dimanche à vous
Hey Smiley non je ne l'ai pas reçu. avec quoi est-ce que je peut vous aidez ?
Ok je vous le renvoi, je vous l'ai envoyé vendredi de la semaine dernière @ bientôt
Voilà c'est parti et merci
Merci Daniel votre aide m'est précieuse, cela fonctionne super, maintenant :)
Je me suis bloqué dans l première partissur le bouton ajouter j Ecri le même problème que le votre est il m'affiche erreur 9. Debougage. J'ai essayer de refaire le programme plusieurs fois. Il me donne toujours le même erreur
J'aimerais savoir comment calculer le décompte final sur Excel!
Bonjour le cours est intéressant mais les codes ne sont pas top visible prière de zoomer pour nous permettre de bien voir les codes .merci !
j'ai toujours une erreur lors du calcul HTVA (erreur d'exécution 1004 erreur definie par l'application ou par l'objet
Private Sub Ajouter_Click()
' ###### Les variables
Dim Description_articles As String
Dim Numero_article As String
Dim Prix_article As Currency
Dim DL As Integer
Dim HTVA As Currency
DL = Range("B1000").End(xlUp).Row + 1
'### DL = dernière ligne)
'### je recherche la dernière ligne remplie et je prends la ligne en dessous
'##### la recherche - je vais donc rechercher la valeur de la cellule K2 dans un tableau S17-U25
description_article = WorksheetFunction.VLookup(Range("K2"), Sheets("listes").Range("S17:U25"), 2, 0)
Numero_article = WorksheetFunction.VLookup(Range("K2"), Sheets("listes").Range("S17:U25"), 1, 0)
Prix_article = WorksheetFunction.VLookup(Range("K2"), Sheets("listes").Range("S17:U25"), 3, 0)
'#### Ajouter dans la facture- Le DL sert à mettre sur la ligne suivante
Range("C" & DL) = description_article
Range("B" & DL) = Numero_article
Range("D" & DL) = Prix_article
Range("E" & DL) = Range("K3")
'##### après avoir cliquer sur le botn "ajouter", je vide les cellules
Range("K2:K3").ClearContents
'####" Calcul du total
Range("F" & DL) = Range("E" & DL) * Prix_article
'#### calcul du total HTVA
HTVA = WorksheetFunction.Sum(Range("F10:F15"))
Range("F16") = HTVA
End Sub
comment enregistre les information avec vba excel pour pouvoir revenir plus tard sur le code
Placer les en commentaire
Je suis bloque au niveau de la selection des elements "ça me marque Erreur d'exécution" '9'
Merci et bravo Monsieur pour ce tuto, est ce que vous pouvez m'envoyez ce code par mail s'il vous plaît (Hichem.ayed@enis.tn)? Merci :D
Non