Bonjour,

Je suis un étudiant débutant sur Excel. J'ai créé un tableau, genre liste de clients. J'aimerais apprendre comment je pourrais, en mettant un "x" dans une certain cellule (ou autre chose au besoin), déclencher la création automatique d'une facture (à partir d'un modèle déjà fait) dans un fichier Word, avec le nom du client, son adresse, son numéro de téléphone et un tableau inséré Excel, avoir seulement à compléter les lignes en y inscrivant les quantités de pièces, leur nature, leur prix: le sous-total, et les calculs se feraient tout seul, avec les taxes et le grand total à payer.

Dois-je utiliser la commande "IF" (SI) et si oui, comment la paramétrer ? J'ai cherché sur Internet mais peut-être pas aux bons endroits puisque je n'ai pas trouvé. J'ai trouvé des explications sur la commande "IF" mais ça ne va pas assez loin. Je ne veux pas nécessairement qu'on me cuise tout dans le bec mais avoir ma part à faire. Je ne possède pas de notions de programmation, juste une base en Word et Excel (version 2000).

S'agirait-il plutôt de créer ce qu'on appelle une "macro" ? Ça a l'air très compliqué, ça.

Votre aide est très appréciée. Merci d'avance.

Bonjour,

Habituellement les gens qui font leurs factures le font directement avec Excel, mais Excel + Word me parait assez improbable.

Effectivement cela passe par une dose non négligeable de programmation.

A+

Merci galopin01 !

Alors je revise mon plan selon votre commentaire. J'opte maintenant de créer ma facture sur Excel, mon but n'étant pas de me compliquer la vie ni celle des autres.

Je viens de commencer à étudier les macros et je ne sais pas si je vais y arriver. Par exemple, comment utiliser un modèle de facture et pourvoir l'utiliser sans l'effacer ? Comment y transférer toutes les données du client ? Il y a bien des mystères pour moi là-dedans.

Puis-je vous demander conseil si ça coince ?

Merci encore !

danestpo a écrit :

Puis-je vous demander conseil si ça coince ?

Bien sur ! Il suffit de taper Facture Excel sur Google pour avoir un choix énorme.

A+

bonjour a tous,

n'y a t-il pas un modele de facture dans excel ?

fichier - nouveau - modele

Merci à galopin01 et à vieuxmonsieur pour vos réponses !

Wow, j'ai de quoi avancer beaucoup avec ce que vous m'avez donné comme information !!

Je vais y travailler et je reviendrai pour vous dire où j'en suis et demander de l'aide en cas de besoin.

Merci encore.

Bonjour,

A tout hasard si tu repasse par là, je joins ici une petite ébauche d'un fichier de ce genre.

Fichier au format .xls avec macro

Le même en xlsm

A+

Merci galopin01 ! Ça me sera très utile.

Je travaille sur les macros présentement.

J'ai réussi à en créer une pour copier le contenu de plusieurs cellules qui sont toutes sur la même ligne à un modèle de facture que j'ai créé, juste pour pratiquer. Ça fonctionne très bien pour la ligne 1 seulement. SVP, que faire pour que cette macro prenne les infos de la 2ième ou 3ième ligne pour les copier dans les cellules de la facture ?(Le but est de ne pas avoir à réécrire les mêmes informations.)

Il y a 7 cellules à copier. Voici la macro:

Sub Facture()

Selection.Copy
Sheets("Facture (2)").Select
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Sheets("Feuil1").Select
Range("B2").Select
Selection.Copy
Sheets("Facture (2)").Select
Range("B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Sheets("Feuil1").Select
Range("C2").Select
Selection.Copy
Sheets("Facture (2)").Select
Range("B4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Sheets("Feuil1").Select
Range("D2").Select
Selection.Copy
Sheets("Facture (2)").Select
Range("B5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Sheets("Feuil1").Select
Range("E2").Select
Selection.Copy
Sheets("Facture (2)").Select
Range("B6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Sheets("Feuil1").Select
Range("F2").Select
Selection.Copy
Sheets("Facture (2)").Select
Range("B8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Sheets("Feuil1").Select
Range("G2").Select
Selection.Copy
Sheets("Facture (2)").Select
Range("B9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Sheets("Feuil1").Select
End Sub

Merci à l'avance !

danestpo a écrit :

SVP, que faire pour que cette macro prenne les infos de la 2ème ou 3ème ligne pour les copier dans les cellules de la facture

Bonjour,

Malheureusement ce n'est pas aussi simple qu'il y parait. Tout d'abord il faut dire qu'une macro enregistrée doit aussitôt être élaguée (on dit optimisée) afin d'ôter les bribes inutiles.

Sinon tu te retrouverais très rapidement envahi par des km d'un fouilli inextricable et qui ralentiraient considérablement tout le bouzin.

De plus l'espace imparti à VBA se retrouverait vite saturé et tu serais rapidement bloqué.

Pour te donner une vague idée, j'ai élagué ton code. Voici ce que ça donne :

Sub Facture()
Sheets("Feuil1").Activate
With Sheets("Facture (2)")
Range("A2").Copy .Range("B2")
Range("B2").Copy .Range("B3")
Range("C2").Copy .Range("B4")
Range("D2").Copy .Range("B5")
Range("E2").Copy .Range("B6")
Range("F2").Copy .Range("B8")
Range("G2").Copy .Range("B9")
Application.CutCopyMode = False
End With
End Sub

Enfin il n'est pas possible de prévoir si c'est la 2ème, 3 ou n.ièmeligne que tu veux copier.

VBA ne peux pas détecter ce que tu veux copier. Il faut bien lui donner cette information d'une manière ou d'une autre.

C'est la raison pour laquelle une facture fait (en général) très peu appel à VBA

Regarde un peu mon modèle, tu verras que les zones "Clients" et "produit" sont remplies via des listes de validation en faisant appel à des formules qui utilisent des "Références Clients" et des "Références produits".

La partie VBA concerne essentiellement la numérotation des factures. L'archivage des factures et la remise à zéro de la facture après archivage.

A+

Merci encore galopin01 ! Je rends hommage à tes talents en programmation. Cela me fascine de voir comment tu as optimisée ma macro !

Pour la faire fonctionner avec d'autres lignes, je les coupes puis les colle en haut de la liste. Je me demande maintenant s'il est possible de créer une macro pour cela ou de modifier ma macro Facture pour y arriver.

Je vais faire ma part en travaillant là-dessus et reviendrai plus tard.

Merci encore !

J'ai créé une macro que j'ai nommé "déplacer". Elle prend la 5ième ligne et la déplace à la 2ième ligne.

Est-il possible de modifier cette macro pour qu'elle prenne la ligne que je vais sélectionner au besoin au lieu de prendre toujours la 5ième ?

Sub déplacer()
Rows("5:5").Select
Selection.Cut
Rows("2:2").Select
Selection.Insert Shift:=xlDown
End Sub

Ce n'est pas que je tienne à faire les choses toutes croches en n'utilisant pas les modèles que tu m'as envoyé. Je suis en apprentissage en travaillant les limites des macros.

No problème :

Sub deplacer()
Dim i%
i = ActiveCell.Row
Rows(i).Cut
Rows(2).Insert Shift:=xlDown
End Sub

A+

Je viens d'essayer cette dernière macro et elle fonctionne parfaitement.

Merci beaucoup !