VBA facturation automatique suivant un tableau

Bens7 · 29 Juin 2013

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 · 30 Juin 2013

Re : VBA facturation automatique suivant un tableau

Re,

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

A+

Martial

Bens7 · 30 Juin 2013

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 · 30 Juin 2013

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 · 30 Juin 2013

Re : VBA facturation automatique suivant un tableau

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

Code:

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 :

Code:

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 · 30 Juin 2013

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 · 30 Juin 2013

Re : VBA facturation automatique suivant un tableau

Bonjour à tous,

Peux-tu essayer en modifiant cette partie :

VB:

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 · 30 Juin 2013

Re : VBA facturation automatique suivant un tableau

Yaloo à dit:
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 · 30 Juin 2013

Re : VBA facturation automatique suivant un tableau

Martial je peux suprimer le Module 2 ?

Code:

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 · 30 Juin 2013

Re : VBA facturation automatique suivant un tableau

Bonjour à tous,

Oui tu peux...

A+ à tous

Bens7 · 30 Juin 2013

Re : VBA facturation automatique suivant un tableau

JCGL à dit:
.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 · 30 Juin 2013

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 · 30 Juin 2013

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 · 30 Juin 2013

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

VBA facturation automatique suivant un tableau

Bens7

XLDnaute Impliqué

Pièces jointes

Yaloo

XLDnaute Barbatruc

Bens7

XLDnaute Impliqué

Pièces jointes

Yaloo

XLDnaute Barbatruc

Pièces jointes

Bens7

XLDnaute Impliqué

Yaloo

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Bens7

XLDnaute Impliqué

Bens7

XLDnaute Impliqué

JCGL

XLDnaute Barbatruc

Bens7

XLDnaute Impliqué

JCGL

XLDnaute Barbatruc

Bens7

XLDnaute Impliqué

JCGL

XLDnaute Barbatruc

Discussions similaires

VBA facturation automatique suivant un tableau

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency