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
Trier par date Trier par votes

Calvus

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

Bonsoir à tous,

Pour compéter ma demande, je souhaite ajouter à ma dernière feuille, en plus du numéro de facture donc, les informations suivantes :

Nom de l'onglet
La date de la saisie, à savoir celle du jour (aujourd'hui)
Et le mois de la date de la facture.

C'est ce dernier point qui pose problème, ayant normalement réussi à régler les 2 premiers.

Tous mes onglets, il y en a plus de 10 dans le fichier original, sont organisés de la même façon.
Je sélectionne une cellule(encadrée pour l'exemple), je démarre la macro.
Celle-ci insère un numéro, en feuille recap, puis dans ma cellule sélectionnée, copie la cellule du dessous de la même feuille, puis insère la date du jour en colonne D de la feuille recap, et enfin colle la date copiée en colonne C.

Ce que j'aimerais, est d'extraire le mois de cette dernière date. Exemple en C35 et C36 de recap.
J'ai essayé avec indirect mais sans succès. J'ai laissé la ligne dans la macro.

Une seconde question : mon code est il cohérent de la manière dont je l'ai rédigé (avec votre aide d'ailleurs pour le début) et fonctionnera t'il ainsi sans soucis ?

Code: 
Sub Bouton_Facture()


x = Sheets("Recap").Range("B" & Rows.Count).End(xlUp).Row
ActiveCell = Sheets("Recap").Range("B" & x) + 1
                        
                        ActiveCell.Offset(1, 0).Copy
                        Nom_Onglet = ActiveSheet.Name

Sheets("Recap").Range("B" & x + 1) = ActiveCell
                        
                        Sheets("Recap").Select
                        Range("A300").End(xlUp).Offset(1, 0).Select
                        ActiveCell = Nom_Onglet
                        
                        ActiveCell.Offset(0, 3).Select
                        ActiveCell.FormulaR1C1 = "=TODAY()"

 ActiveCell.Offset(0, -1).Select
                        ActiveSheet.Paste
                        
                        'Comment remplacer ici la cellule D36 par la cellule active ?
                        'ActiveCell.Formula = "=TEXT(indirect(""d36""),""mmmm"")"
 
End Sub
Merci de vos réponses.
 

Pièces jointes

  • Bouton Facture 2.xlsm
    21.9 KB · Affichages: 42
Vote positif 0 Vote négatif

Staple1600

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

Bonsoir à tous

Calvus
Voici ma "revisitation"* de ton code.
Si tu as des questions , n'hésites pas
(Enfin, laisses passer la nuit, car là présentement, je vais au dodo)
Code: 
Sub Bouton_Facture()
Dim x As Long, r As Range
Set r = ActiveCell
With Sheets("Recap")
    x = .Range("B" & Rows.Count).End(xlUp).Row
    r = .Range("B" & x) + 1
    .Range(.Cells(x + 1, "A"), .Cells(x + 1, "D")) = _
    Array(r.Parent.Name, r.Value, Format(r.Offset(1, 0).Text, "mmmm"), Date)
End With
End Sub

NB: *: c'est juste pour la beauté du geste car ton code tel que tu l'as écrit fonctionne.
 
Vote positif 0 Vote négatif
S

Si...

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

re


Mais si puisque maintenant tu fournis un fichier support plus précis (feuilles, cellules concernées mises en évidence) !
La macro de Staple à ma sauce (première réponse) dans ThisWorbook* donnerait :
Code: 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
  If Sh.Name = "Recap" Then Exit Sub
  If Not IsDate(R(2, 1)) Then Exit Sub
  Dim C As Range
  Set C = Feuil3.[A65000].End(xlUp)(2)
  R = C(0, 2) + 1
  C.Resize(1, 4) = Array(Sh.Name, R, (R(2, 1)), Date)
  C(1, 3).Resize(1, 2).NumberFormat = "m/d/yyyy"
End Sub

* il y a tellement des problèmes avec les "ActiveX" en ce moment que je préfère les éviter dans mes réponses
 

Pièces jointes

  • N° facture .xlsm
    18.9 KB · Affichages: 39
Vote positif 0 Vote négatif

DoubleZero

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

Bonjour, le Fil , le Forum,

Si des tris étaient effectués dans l'onglet "Recap", le code suivant devrait éviter de mauvaises surprises...

Code: 
Option Explicit
Sub Numéro_sans_surprise()
    Selection = Application.WorksheetFunction.Max(Sheets("Recap").Columns("a:a")) + 1
    With Sheets("Recap").Range("a" & Rows.Count).End(xlUp)(2)
        .Value = Selection
        .Offset(, 1) = ActiveSheet.Name
        .Offset(, 2) = Date
        .Offset(, 3) = Format(Date, "mmmm")
    End With
End Sub

A bientôt
 
Vote positif 0 Vote négatif

DoubleZero

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

Re-bonjour,

Pour échapper à la guerre des boutons , un autre essai avec ce code, logé dans le module "ThisWorkbook" :

Code: 
Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal o As Object, ByVal c As Range, Cancel As Boolean)
    If o.Name <> "Recap" Then
        c = Application.WorksheetFunction.Max(Sheets("Recap").Columns("a:a")) + 1
        With Sheets("Recap").Range("a" & Rows.Count).End(xlUp)(2)
            .Value = c
            .Offset(, 1) = o.Name
            .Offset(, 2) = Date
            .Offset(, 3) = Format(Date, "mmmm")
        End With
    End If
    Cancel = True
End Sub

A bientôt
 
Vote positif 0 Vote négatif

Calvus

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

Bonjour Staple, Si, Suze Anne....., le forum,

Encore une fois, merci à vous trois ainsi qu'à Pierrejean qui m'a mis sur la voie.

Staple, je ne comprends rien à ton code. J'ai essayé pourtant ! J'ai saisi l'idée mais je dois chercher ce que font Array etc.

Si, ton fichier fonctionne nickel, malgré le format en colonne C. Finalement se serait bien de le conserver en inscrivant le mois en lettres à coté. Je vais voir si je trouve.
Merci pour les explications, je peux ainsi comprendre la fonction de chaque ligne, même si ce qui y est inscrit est parfaitement incompréhensible. Tu m'as encore plus paumé que Staple !

Suze , merci de ton aide. Huitième boite de Doliprane à la tentative de compréhension de ton code !
J' ai tout de même saisi les grandes lignes là aussi me semble t-il. Il ressemble à celui de Staple d'ailleurs. Les Offset sont plus compréhensibles pour moi.
Par contre, une petite erreur à signaler, le mois affiché en colonne C' est systématiquement février.
Et le tri uniquement pour que ce soit en colonne A ?


Je vais donc avancer et revenir vous embêter pour des explications.

En attendant, mon bout de code à moi :


Option Very Explicite
In excel
with
.moult.tentatives
.several.arrachages_de_cheveux
I'm a
Very
Big
Ane
End with


A+
 
Dernière édition:
Vote positif 0 Vote négatif
S

Si...

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

Re

DoubleZero à dit:
Re-bonjour,
Ah !!!!!!!!! Hi, Hi Hi ...
Cliquez pour agrandir...

est-il vrai qu'après un abus de Suze, l'âne rit ?
Désolé pour ce mauvais jeu de mot mais c'était surtout pour te faire un clin d'oeil avant de dire à Calvus que son Calv...aire n'est pas fini. Le plus dur reste à faire : tout remettre en place après suppression d'un numéro déjà attribué.

Nota : pour avoir seulement le nom du mois le format est "mmmm"
 
Vote positif 0 Vote négatif

DoubleZero

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

Re-bonjour,

Si... à dit:
...est-il vrai qu'après un abus de Suze, l'âne rit ?...
Cliquez pour agrandir...

Moi pas savoir car moi pas aimer la suze ! Beurk !

Si... à dit:
...c'était surtout pour te faire un clin d'oeil avant de dire à Calvus que son Calv...aire n'est pas fini...
Cliquez pour agrandir...

Merci beaucoup, Si, pour le clin d’œil mais... chercherais-tu à noyer de désespoir notre petit poisson ?

A bientôt
 
Vote positif 0 Vote négatif

Staple1600

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

Bonsoir à tous

Conclusion , je refile la patate chaude à Si...

NB:
[phrase d'évitement du quiproquo post-apéritif]
Étant entendu que la patate n'est pas un membre du forum présent dans ce fil.
/[phrase d'évitement du quiproquo post-apéritif]
 
Dernière édition:
Vote positif 0 Vote négatif

Calvus

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

Bonsoir,
Oh la la la la ! Mais que se passe t-il sur ce forum ?




Je vois que tu n'as pas attendu pour l'apéro...et apparemment, ça ne te fait pas peur d'abuser de la boisson...
Et qui te dit que je suis petit d'abord ??


DoubleZero à dit:
Re-bonjour,



Moi pas savoir car moi pas aimer la suze ! Beurk !



Merci beaucoup, Si, pour le clin d’œil mais... chercherais-tu à noyer de désespoir notre petit poisson ?

A bientôt
Cliquez pour agrandir...


La suze tu dis non, mais pas à l'apéro manifestement, toi non plus. Et tu n'aurais pas peur d'abuser de la poisson...



Notre ami n'est pas en reste non plus !
Et tu ne vas pas te débarrasser de moi comme ça. Je sais nager en eaux troubles !
D'ailleurs, quelqu'un a des nouvelles de Carcharodon ?

Nobbe buit les betits...
 
Vote positif 0 Vote négatif
S

Si...

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

re

Comment as-tu deviné que je préfère le Calva... mais pas pour accompagner les patates de Staple (qui aurait été plus sympa en me refilant aussi ses endives, au lieu de m'asticot er) !

J'espère que n'as pas perdu espoir : je ne tenais vraiment à te décourager .
Il y a des cas où une solution donnée compte plus que sa construction. Maintenant pour celui qui veut progresser dans la programmation ...
 
Vote positif 0 Vote négatif

Calvus

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

Bonsoir,

Si, j'ai hésité entre ton code et celui de DoubleZéro, et finalement opté pour le tien, le fait de se placer sur ma cellule pour déclencher l’événement me convenant. (DB, désolé de ne pas t'avoir retenue sur ce coup là, j'espère tu ne va pas encore me traiter de petit...).

En revanche comment faire pour avoir la colonne C ( sur ton fichier joint) en format "mmmm" et la colonne D en "m/d/yyyy" ?

Mersi..
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Résolu(e)
XL 2019 Nouveau Numéro
2 3 4
Réponses
57
Affichages
2 K
patricktoulon
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
166
AlCapone
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
679
halecs93
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
231
Etoto
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
363
Phil69970
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
557
AtTheOne
  • Question Question
Microsoft 365 Trouver et attribuer une plage de cellule en fonction de la cellule active
Réponses
6
Affichages
411
Jojo973
6
  • Question Question
XL 2019 Générer mails sous conditions
2
Réponses
26
Affichages
1 K
Oneida
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
605
TooFatBoy
T
  • Question Question
Autres Incrémenter un numéro de facture
2 3
Réponses
41
Affichages
2 K
toune21
T
N
  • Question Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
324
NONO14
N
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
430
Chaton77
N
  • Résolu(e)
Microsoft 365 Aide pour terminer un code Vba Excel
2
Réponses
23
Affichages
1 K
job75
R
  • Question Question
XL 2019 Transpose et limiter nombre de valeur
Réponses
1
Affichages
318
Rabeto
R
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
N
  • Résolu(e)
Microsoft 365 Aide pour un code Vba
2 3
Réponses
32
Affichages
1 K
Nicolas JACQUIN
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
357
Gégé-45550
N
  • Résolu(e)
Microsoft 365 Aide pour insertion nombre aléatoire
2
Réponses
22
Affichages
810
NONO14
N
L
  • Résolu(e)
Microsoft 365 Suppression de cellules vide
Réponses
3
Affichages
431
Le Rouky
L
R
  • Question Question
XL 2019 Demande à la macro de chercher et de remplir automatiquement jusqu'à la dernière valeur
Réponses
1
Affichages
452
Aya_flo
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…