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

[Calvus]

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 :

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 !

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...]

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 :

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

 

[Calvus]

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]

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

Bonjour, le Fil , le Forum,

... sachant que tu veuilles me noyer !

Pour ta sécurité...

A bientôt

 

[Calvus]

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

Bonjour à tous,


DoubleZéro, Gare à toi, sinon !!