Facturation VBA

Question

J'ai deux algorithmes à traduire dans des macros VBA malheureusement je n'y connais rien et ne pratique jamais. Quelqu'un serait-il prêt à m'aider et à me traduire ces lignes ? Les voici ci-dessous : Début Nb_lignes_max &lt;- le nombre de lignes du tableau de stock ‘avec End(xldown) La couleur de texte du tableau de stock &lt;- xlNone Ref_cherché &lt;- le contenu de la cellule « G2 » Pour ligne de 3 à Nb_lignes_max faire Si le contenu de cellule « A » & ligne = Ref_cherché Alors La couleur de texte de la ligne dans le tableau &lt;- Rouge Afficher la description et la quantité sur l’écran Quitter la macro Fin Si Fin pour Afficher le message « Erreur : référence non trouvée dans le tableur » Fin Début ‘1. Contrôle Si Nom Ou Prénom est vide alors Afficher un message d’erreur Quitter la macro Fin Si Si Réf. Facture ou Montant est vide alors Afficher un message d’erreur Quitter la macro Fin Si ‘2. Récupérer le nom du fichier Nom_f = Application.GetSaveAsFilename(filefilter := « PDF(*.pdf),*.pdf ») Si nom_f = False alors Quitter la macro Fin si ‘3. Afficher les informations sur Feuil2 Cellule « I4 » de Feuil2 &lt;- contenu du champ « Réf. Facture » Cellule « I5 » de Feuil2 &lt;- contenu du champ « Réf. client » Cellule « I7 » de Feuil2 &lt;- contenu du champ « Code client » Cellule « E10 » de Feuil2 &lt;- contenu du champ « Institution » Cellule « E11 » de Feuil2 &lt;- contenu du champ « Service » Cellule « E12 » de Feuil2 &lt;- contenu du champ « Adresse » Cellule « E13 » de Feuil2 &lt;- contenu du champ « code postal » et « ville » Cellule « A26 » de Feuil2 &lt;- « Inscription de » & contenu des champs « Nom » et Prénom » Cellule « G22 » de Feuil2 &lt;- contenu du champ « Montant » ‘4. Exporter Feuil2 en PDF selon le code enregistré ci-dessus ‘code à compléter ‘5. Réinitialiser le contenu de Feuil2 ‘code à compléter Fin...

21Formatic · Answer

Pourtant, le prof a mis toutes les indications nécessaires. En ayant assisté au moins à 1 des cours, pas mal de choses sont réalisables. Ou je me trompe ...

21Formatic · Answer

Le souci ici c'est que ne sachant pas ton niveau sur Excel, ni le temps que tu veux investir dedans, par écrit qui plus est... En sachant que le mieux au début semble être de bidouiller dans son coin avec l'enregistreur de macros.. Il s'agit de quelle formation, qui intègre du VBA ? Vous en êtes en théorie à combien d'heures de cours dans la matière ? Il doit y avoir des fichiers liés à ces questions, non ...

3GB · Answer

Voici une traduction, selon moi très proche de l'énoncé (du premier problème :)): Sub Debut() dim Nb_lignes_max as long, i as long dim Ref_cherché as string, description as string dim qté as double with activesheet Nb_lignes_max = .range("Stock").end(xldown).row .range("Stock").font.color = xlnone Ref_cherché = .range("G2").value &nbsp;&nbsp;&nbsp;&nbsp;for i = 3 to Nb_lignes_max &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if .range("A" & i).value = Ref_cherché then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;intersect(.range("stock"), .rows(i)).font.color = RGB(255, 0, 0) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;description = .cells(i, ?).value &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;qté = .cells(i, ?).value &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;msgbox description & " : " & qté &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exit sub &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if &nbsp;&nbsp;&nbsp;&nbsp;next i end with msgbox "Erreur : référence non trouvée dans le tableur" end sub Il faudra éventuellement adapter le nom du tableau stock et préciser la colonne de description et quantité. Cdlt...