Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion alutili
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

alutili

XLDnaute Nouveau
Bonjour,
j'essaie d'ajouter un compteur sur une feuille correspondant à une facture de telle sorte qu'à chaque ouverture ou mieux qu'à chaque impression, le n° de la facture change et passe à n+1
avez-vous des idées à ce sujet ?
merci à tous
LA
 
Re : Compteur

Bonsoir alutili, BrunoM45,

L'idée d'incrémenter un n° de facture à chaque ouverture du fichier, à fortiori à chaque impression, ne me paraît pas judicieuse. Je m'explique :

Si tu es amené à ouvrir plusieurs fois la même facture, ou à l'imprimer plusieurs fois, tu vas te retrouver avec un nombre plus ou moins important de documents identiques avec un n° de commande différent.

La meilleure solution me paraît être la création d'une facture vierge enregistrée en temps que modèle (*.xlt) et dans laquelle tu incrémenterais un N° dans le module Workbook_Open. Ce N° serait bien entendu enregistré dans une cellule masquée de la feuille de facturation ou dans une feuille cachée du classeur.

Espérant avoir aidé.

Cordialement.
 
Re : Compteur

Bonjour,

Je viens de poster une question concernant aussi la numérotation de facture. Bien que différent légèrement, mon problème pourrait trouver sa solution dans la réponse de papou-net... Le hic, c'est que je ne comprend pas tout!
Peux-tu détailler la marche à suivre pour l'incrémentation d'un numéro dans le "WorkBook Open"?

Merci
 
Re : Compteur


Bonsoir stapsounet,

Je ne connais pas ton niveau de maîtrise de VBA, aussi je vais détailler comme si tu débutais :

Tu commences par saisir un N° de facture dans une cellule de ta feuille, disons la case A1 par exemple. Tu peux ensuite masquer la colonne A, ou bien mettre la couleur de la police identique à celle du fond de cette cellule (dans les boutons des barres d'outils Excel).

Ensuite, tu lances l'éditeur de macros en appuyant sur ALT + F11.

Dans l'écran qui vient de s'afficher, tu repères la fenêtre Projet - VBAProject (en principe, en haut à gauche).

Tu repères ton classeur dans la liste des projets (ex : VBAProject (Classeur1).

Tu double-cliques sur la ligne ThisWorkbook, et dans la fenêtre principale tu cliques sur la liste déroulante en haut à gauche.

Tu aperçois dans la fenêtre les 2 lignes écrites automatiquement par VBA :

Code:
Private Sub Workbook_Open()
    
End Sub

Il ne reste plus qu'à entrer au clavier la ligne suivante :

Code:
Private Sub Workbook_Open()
Sheets("Feuil1").Range("A1") = Sheets("Feuil1").Range("A1") + 1

End Sub

Et pis c'est tout !

A chaque ouverture, la cellule A1 augmentera automatiquement d'une unité.
Celà suppose, bien entendu, que tu écrives au départ une valeur numérique dans A1. On peut envisager des données alphanumériques, ça complique légèrement la programmation mais ça reste facilement réalisable.

Espérant avoir répondu.

Cordialement.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
11
Affichages
426
  • Question Question
XL 2013 Annulé
Réponses
6
Affichages
294
Réponses
11
Affichages
424
Réponses
1
Affichages
284
W
Réponses
2
Affichages
183
Réponses
2
Affichages
240
Réponses
5
Affichages
352
Réponses
3
Affichages
233
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…