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

Calvus · 1 Février 2015

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.

Si... · 6 Février 2015

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 · 6 Février 2015

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 !

DoubleZero · 7 Février 2015

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

Bonjour, le Fil , le Forum,

Calvus à dit:
... sachant que tu veuilles me noyer !

Pour ta sécurité...

A bientôt

Calvus · 7 Février 2015

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

Bonjour à tous,

DoubleZéro, Gare à toi, sinon !!

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

Calvus

XLDnaute Barbatruc

Pièces jointes

Si...

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Calvus

XLDnaute Barbatruc

Pièces jointes

Discussions similaires