Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code pour générer un numéro de facture

  • Initiateur de la discussion Initiateur de la discussion Calvus
  • Date de début Date de début

Calvus

XLDnaute Barbatruc
Bonsoir,

Problème de code relativement simple à priori.

J'ai un classeur contenant plusieurs onglets dessinés de la même façon.

J'ai crée un bouton sur le ruban afin de générer un numéro sur ma cellule active.
Ceci marche.

Mon souci est d'incrémenter un nouveau numéro de référence.
La première partie du code fonctione :
Code:
Sub Bouton_Facture()
ActiveCell = Sheets("feuil3").Range("B35") + 1

C'est ensuite que ça se gâte... Et on ne se moque pas, j'essaye !
Code:
i = Range("B35")
For i = 1 To i = 1000
i = Range("B35") + 1
Next i
End Sub

Ici il ne se passe rien.
Ce que j'aimerais, évidemment, c'est de pouvoir repartir de mon dernier numéro.

Merci de votre aide.
 

Pièces jointes

  • Bouton Facture.xlsm
    12.5 KB · Affichages: 45
  • Bouton Facture.xlsm
    12.5 KB · Affichages: 49
  • Bouton Facture.xlsm
    12.5 KB · Affichages: 49

Si...

XLDnaute Barbatruc
Re : Code pour générer un numéro de facture

salut

il suffit de décomposer C(1, 3).Resize(1, 2).NumberFormat = "m/d/yyyy" qui concerne 2 cellules ainsi :

Code:
  C(1, 3).NumberFormat = "mmmm"
  C(1, 4).NumberFormat = "m/d/yyyy"
 

Calvus

XLDnaute Barbatruc
Re : Code pour générer un numéro de facture

Re,

Impec, mersi.

Je reviendrai tout à l'heure ou plutôt demain pour te demander une explication de ce code. Je ne m'en sors pas vraiment.
Je vais donc tenter de déchiffrer à nouveau, bien que sachant que tu veuilles me noyer !
 

Discussions similaires

  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
679
Réponses
3
Affichages
557
Réponses
26
Affichages
1 K
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
605
Réponses
33
Affichages
2 K
Réponses
32
Affichages
1 K
Réponses
2
Affichages
357
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…