Automatiser une matrice devis dans Excel
Automatiser Devis et Bons de Commande sur Excel :
Numérotation, Duplication et Nettoyage en 1 clic !
🎯 Dans ce tutoriel, je vous montre comment simplifier votre travail sur Excel en automatisant trois tâches essentielles :
- la numérotation,
- la duplication,
- le nettoyage de vos données,
et le tout en 1 seul clic !
✅ Ainsi, vous allez pouvoir :
- configurer une numérotation automatique,
- dupliquer facilement un devis ou un bon de commande sur un nouvel onglet,
- et effacer rapidement les données figurant sur votre matrice, afin de préparer un nouveau devis ou bon de commande.
👍 De plus, cela fonctionne que vous utilisiez : le modèle que je partage ci-dessous ou votre propre modèle.
Voir la vidéo pour suivre les différentes étapes :
Pour vous entraîner et suivre les étapes de ce tutoriel :
-> Télécharger le fichier Excel utilisé dans la vidéo
👇
Après avoir ouvert le lien :
- vous cliquez sur "Fichier",
- puis sur "Enregistrer sous",
- et sur "Télécharger une copie".
📌↪️→ Code VBA à utiliser pour automatiser la numérotation, la duplication et le nettoyage des données :
Sub IncrementerEtCopierDevis()
Dim NumDevis As Integer
Dim NewSheetName As String
NumDevis = Worksheets("Matrice Devis").Range("F3").Value 'Attention, si besoin, modifier nom de l'onglet et cellule où figure le numéro du devis
Worksheets("Matrice Devis").Copy After:=Worksheets(Worksheets.Count)
NewSheetName = InputBox("Saisissez le nom de la nouvelle feuille")
ActiveSheet.Name = NewSheetName
' Supprimez uniquement les cellules contenant la date, le nom du client, les codes articles et les quantités
Worksheets("Matrice Devis").Range("F2").ClearContents ' Plage pour la date
Worksheets("Matrice Devis").Range("E15").ClearContents ' Plage pour le nom du client
Worksheets("Matrice Devis").Range("B29:B43").ClearContents ' Plage pour les codes articles
Worksheets("Matrice Devis").Range("D29:D43").ClearContents ' Plage pour les quantités
Worksheets("Matrice Devis").Range("F3").Value = NumDevis + 1 'Attention, si besoin, modifier le nom de l'onglet
Worksheets("Matrice Devis").Activate 'Attention, si besoin, modifier le nom de l'onglet
End Sub
Un autre tutoriel qui pourrait vous intéresser :
