Microsoft 365 Logiciel de facturation Excel

[Boissavy]

Bonjour,
Je possède un dossier déjà bien développer sur excel pour créer mes devis . Par contre je souhaites automatisé mes factures dans mon onglet "base facture" depuis mon onglet "base devis".
en fait dans mon onglet "base facture" je souhaites à la ligne "devis " quand je rentre le numéro de devis il puisse me remplir les lignes "contenu ligne 1" montant".
Mot de passe LIB11

Je vous joint le dossier en espérant que je me suis bien expliqué.
bonne soirée.

Eve

 

[Boissavy]

 

[Boissavy]

Peut on annuler la ligne de pourcentage. Merci

 

[vgendron]

qu'as tu mis comme valeur dans la remise globale?
chez moi, je ne vois pas d'erreur..

Peut on annuler la ligne de pourcentage. Merci

de quelle ligne parles tu ??

 

[Boissavy]

Rien car je ne l'utilise pas du tout

 

[vgendron]

alors, je ne vois pas pourquoi tu as une erreur..
si tu ne mets rien, la valeur 0 est remplie automatiquement..

dans la version ci jointe, j'ai ajouté un control de saisie pour vérififier que les montants et qté saisis sont bien des nombres

 

[Boissavy]

Toujours même problème. Est ce que tu peux pas enlever la case remise?

 

[vgendron]

si si, on peut l'enlever.. mais ca ne se fait pas en 10s

en PJ, une V4, ou j'ai supprimé la remise sur le formulaire VBA
dans les feuilles "Devis" et "Facture", j'ai effacé la ligne "remise"
par contre.. il reste à supprimer dans "Base devis"
la ligne Remise % et la ligne "Montant remisé"
mais ca.. je ferais ca un peu plus tard==> ca va décaler les autres lignes, donc il va falloir modifier d'autres choses dans le code pour que les infos soient mises à la bonne place

tu peux continuer tes tests avec cette version 4, pas de souci

 

[Boissavy]

si si, on peut l'enlever.. mais ca ne se fait pas en 10s

en PJ, une V4, ou j'ai supprimé la remise sur le formulaire VBA
dans les feuilles "Devis" et "Facture", j'ai effacé la ligne "remise"
par contre.. il reste à supprimer dans "Base devis"
la ligne Remise % et la ligne "Montant remisé"
mais ca.. je ferais ca un peu plus tard==> ca va décaler les autres lignes, donc il va falloir modifier d'autres choses dans le code pour que les infos soient mises à la bonne place

tu peux continuer tes tests avec cette version 4, pas de souci

Salut,
ça marche!!!!!😁😁😁 Merci beaucoup. Est il possible d'avoir le montant de mon chiffre d'affaire . Est il possible du coup maintenant de me le remettre à Zéro pour que je puisse commencer par le devis 1 et le facture pareil. Encore merci

 

[vgendron]

hello

Voir PJ pour remettre zero les bases "bouton "RAZ données"

pour le chiffre d'affaire...?? tu le calcules ou? et comment ?

 

[Boissavy]

Merci beaucoup. Pour le CA c'est dans statistique Je veux regrouper le CA mois par mois et pour l'année. Est ce qu'il faudra que je fasse un nouveau fichier pour chaque année? Merci

 

[vgendron]

PJ mise à jour avec le CA
PS: si tu viens de vider les devis, les CA sortent avec une #Ref
suffit de créer un devis, et les formules redeviennent ok

pour le changement d'année..
dans la base devis: normalement, y a pas besoin de changer de fichier
le seul endroit ou il faudrait modifier les formules. ou ajouter des lignes? c'est dans les stat.... pas sur..

 

[natorp]

@vgendron : Bonjour
J'aimerais beaucoup tester votre fichier pour voir s'il pourrait être utiliser par notre association de garage solidaire.
Par contre, quand je lance "Gestion des devis + facturation", j'ai une erreur :

Le débogage donne ceci :

Précision : cela se produit si, au démarrage, je lance le RAZ

Pouvez-vous me dire où je dois modifier quelque chose ?
Merci pour votre attention, cordialement, Gérard

 

[wDog66]

Bonjour natorp

@vgendron : Bonjour
J'aimerais beaucoup tester votre fichier pour voir s'il pourrait être utiliser par notre association de garage solidaire.
Par contre, quand je lance "Gestion des devis + facturation", j'ai une erreur :
Regarde la pièce jointe 1195772
Le débogage donne ceci :
Regarde la pièce jointe 1195774

Précision : cela se produit si, au démarrage, je lance le RAZ

Pouvez-vous me dire où je dois modifier quelque chose ?
Merci pour votre attention, cordialement, Gérard

Soyez juste logique SVP 🤔

Vous avez réinitialisé l'outil, ce qui veut dire que la base client est vide !
Il faudrait certainement commencer par ajouter 1 client pour pouvoir utiliser ""Gestion des devis + facturation"

Nota : étonné qu'une application qui semble "déplombé" se trouve sur ce forum

 

[natorp]

Bonjour natorp


Soyez juste logique SVP 🤔

Vous avez réinitialisé l'outil, ce qui veut dire que la base client est vide !
Il faudrait certainement commencer par ajouter 1 client pour pouvoir utiliser ""Gestion des devis + facturation"

Nota : étonné qu'une application qui semble "déplombé" se trouve sur ce forum

Merci de vous intéresser à cette question, mais, même en ajoutant un client, j'ai l'erreur en question
Apparemment il en faut au moins 2 ??

Cordialement, Gérard

 

[vgendron]

Bonjour

ca fait un moment que je suis intervenu sur ce post, et j'avoue ne plus du tout savoir ce que j'y ai fait, ni à quoi sert le fichier ni comment il fonctionne

pour le message d'erreur, le chargement du userform ne se fait pas car effectivement, la base des devis est vide
l'erreur arrive dans le Userform_Initialize, lorsque on essai de charger le combo Cbx_Client

il faut juste ajouter un test:
voir code ci dessous

Private Sub UserForm_Initialize()
    Cl.initiate Me
    Me.Cbx_Devis.Clear
    With Sheets("Base Devis").ListObjects("t_Devis")
        For i = 2 To .ListColumns.Count
            Me.Cbx_Devis.AddItem .Range(1, i)
        Next i
    End With
    
    With Sheets("Base Clients").ListObjects("t_Clients")
        If .ListRows.Count <> 0 Then 'ajout du test pour éviter l'erreur
            Me.Cbx_Client.List = .ListColumns("Réf.").DataBodyRange.Value
        End If
    End With
    
    With Sheets("Paramètres").ListObjects("t_TxTVA")
        For i = 1 To 15
            Me.Controls("Cbx_TVA" & i).Clear
            For j = 1 To .ListRows.Count
                Me.Controls("Cbx_TVA" & i).AddItem Format(.DataBodyRange(j).Value, "0.0%")
            Next j
        Next i
    End With
    
    Me.Cbx_Devis = ""
'    With Application
'        .WindowState = xlMaximized
'        Width = .Width
'        Height = .Height
'    End With
    
End Sub