VBA facturation automatique suivant un tableau

[Bens7]

Bonjour a tous !!
je suis nouveaux en VBA j'essaye d'avancer tout seul mais la j'ai aucune idee !
j;ai chercher sur le forum mais j;ai rien tourver corespondant a mon besoin
en gros creer les factures automatiques suivant un tableau mais avec des fonctions ...
je vous est mis tous dans la pieces jointes c'est super important pour moi merci beaoucoup !


PS: eviter les : Google est ton ami; VBA pour les nuls ; va voir tel URL : .... ; cherche tu trouvera ..... , ect... je vous promet que je suis en train d'apprendre Yaloo en est temoin ! lolll 😉

Merci !

 

[Yaloo]

Re : VBA facturation automatique suivant un tableau

Re,

Oui c'est faisable, j'y regarde demain.

A+

Martial

 

[Bens7]

Re : VBA facturation automatique suivant un tableau

Bon je me suis mis au travail quand meme un peu !
j'ai reussi a faire un fichier qui me convient parfaitement car il garde les formules tout est parfait (voir pieces jointes Facturation #2)
Sauf que ....
1) ca creer des nouvelles feuil dans le meme fichier > j'ai besoin que chaque feuil soit un fichier par lui meme
2) Sauvegarde automatique dans les dossier
3) et sauvegarder automatique en pdf

voila!

 

[Yaloo]

Re : VBA facturation automatique suivant un tableau

Bonjour Bens,

Voici ton fichier, quelques lignes ajoutées pour permettre d'enregistrer en xlsx et en pdf.

N'oublies pas de déclarer tes variables, cela évite toute confusion.

A+

Martial

 

[Bens7]

Re : VBA facturation automatique suivant un tableau

Bonjour Yaloo et merci cependant :
1) Il y a une erreur sur cette ligne :

Dim dlg As Integer

J'ai un message d'erreur : Declaration existante dans la portee en cours
je l'ai donc annuler car il ya deja :

Dim dlg&, i&

Je sais pas si j'ai bien fait ?
2) deplus serais t'il possible pour les excel de sauvegarder uniquement les valeurs sans les fonctions presente dans la feuil facture ?
3) C'est a dire les variables ?

 

[Yaloo]

Re : VBA facturation automatique suivant un tableau

Re,

Oui tu as bien fait, je n'avais pas vu que la variable dlg était déjà déclarée.

Quand tu dis "fonction" tu veux dire formule ? Oui c'est possible mais quel est l'intérêt ?

A+

Martial

 

[JCGL]

Re : VBA facturation automatique suivant un tableau

Bonjour à tous,

Peux-tu essayer en modifiant cette partie :

With Sheets("FACTURE")
            .Range("E1") = Sheets("ACTIF").Range("AA" & i)    'FACTURE
            .Range("B5") = IIf(Sheets("ACTIF").Range("P" & i) = "PSSR", "GUIDE", "REP")
            .Range("D10") = Sheets("ACTIF").Range("B" & i)    'SOCIETE
            .Range("D11") = Sheets("ACTIF").Range("G" & i)    'ADRESSE
            .Range("D12") = Sheets("ACTIF").Range("H" & i) & " " & Sheets("ACTIF").Range("I" & i)    'NPA & COMMUNE
            .Range("D15") = Sheets("ACTIF").Range("C" & i)    'GERANT
            .Range("C17") = Sheets("ACTIF").Range("AA" & i)    'FACTURE
            .Range("C18") = Sheets("ACTIF").Range("AB" & i)    'FACTURATION
            .Range("C20") = Sheets("ACTIF").Range("S" & i)    'SIGNATURE
            .Range("C21") = Sheets("ACTIF").Range("R" & i)    'FORME
            .Range("C22") = Sheets("ACTIF").Range("F" & i)    'NUM FAX
            .Range("C23") = Sheets("ACTIF").Range("K" & i)    'MAIL
            .Range("E26") = Sheets("ACTIF").Range("T" & i)    'SURFACE
            .Range("E27") = Sheets("ACTIF").Range("Y" & i)    'VALIDITE
            .Range("E28") = Sheets("ACTIF").Range("AC" & i)    'ECHEANCES
            .Range("E29") = Sheets("ACTIF").Range("AB" & i) + 30    'A REGLER AVANT
            .Range("E31") = Sheets("ACTIF").Range("U" & i)    'DISTRIB
            .Range("E32") = Sheets("ACTIF").Range("V" & i)    'HT
            .Range("E34") = Sheets("ACTIF").Range("W" & i)    'F TECH
            .Range("E36") = Sheets("ACTIF").Range("X" & i)    'TTC
            .Range("E37") = .Range("E36") * 0.08
            .Range("E38") = .Range("E36") + .Range("E37")

A+ à tous

 

[Bens7]

Re : VBA facturation automatique suivant un tableau

Re,


Quand tu dis "fonction" tu veux dire formule ? Oui c'est possible mais quel est l'intérêt ?

Oui formule de sorte que si ya une modif a faire pour les employes ca sera en format texte
il connaissent pas les formules

 

[Bens7]

Re : VBA facturation automatique suivant un tableau

Martial je peux suprimer le Module 2 ?

Option Explicit

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("FACTURE").Copy
    Fichier = Thisworbook.Path & ""
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Martial\Documents\Excel-Downloads\Bens\Classeur1111.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

 

[JCGL]

Re : VBA facturation automatique suivant un tableau

Bonjour à tous,

Oui tu peux...

A+ à tous

 

[Bens7]

Re : VBA facturation automatique suivant un tableau

.Range("B5") = IIf(Sheets("ACTIF").Range("P" & i) = "PSSR", "GUIDE", "REP")

Si je comprend bien c'est comme la fonction :
SI(F5="PSSR";"GUIDE";"REP")

ok mais comment je fais si ya plus de conditions:
SI (F5="PSSR";"GUIDE";SI(F5="REP";"REPERTOIRE";SI(F5="ART";"ARTISANS";"") ECT

 

[JCGL]

Re : VBA facturation automatique suivant un tableau

Bonjour à tous,

BONJOUR à toi aussi...

Tu déposes un fichier avec tous les "cas" possibles.

Le code sera différent, évidement.

A+ à tous

Edition : Ou tu évites les acronymes ou autre abréviations et tu mets dans ta base le terme dans son entier.

 

[Bens7]

Re : VBA facturation automatique suivant un tableau

Bon je prefere l'option du POST #5
de sauvegarder uniquement les valeurs sans les fonctions presente dans la feuil facture c'est plus simple pour moi
que de modifier le code avec toute les formules

 

[JCGL]

Re : VBA facturation automatique suivant un tableau

Bonjour à tous,

Comme je pensais avec une de mes propositions avoir répondu "à ton # 5", le reste sera sans moi (Mettre les valeurs sans les formules).

A+ à tous