Discussion :

[fredym]

Bonjour les experts du code vba,

Je voudrais le code vba pour incrémentation du numéro d'ordre ( 003 dans mon exemple )

- valeur de départ: F2020-003 contenue dans la dernière cellule de la colonne B intitulée 'N° doc' d'un tableau dans feuille2
- résultat à obtenir : 2020-004 dans la cellule A1 de la feuille1

infos utiles et/ou complémentaires:

- incrémenter la valeur numérique (003) : format en 3 chiffres "000"

F correspond au 1er caractère extrait d'une cellule ( code Left…) non concerné pour obtenir le résultat final.
2020 correspond à l'année en cours
- le nom de la colonne B du tableau fait référence à: fact_out[[#Tout];[N° doc]] ( N° doc = intitulé du titre dans l'entête du tableau)
- le tiret sera obtenu par concaténation & dans le résultat

mon code débute comme suit (entre les sub):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Dim a As Integer         ' (a pour les 4 chiffres de l'année)
    Dim vinc As String         ' vinc pour valeur incrémentée
 
     a = Year(Now())      '  (renvoi l'année en cours en 4 chiffres)
     vinc = … (Range("B ?… ").End(xlDown)), 3) +1 … pour l'incrémentation ? --> syntaxe non correct.
      ...

Merci de corriger / adapter / créer le code ad hoc

Fredym

[révèr]

Bonjour,

Pourquoi ne pas de nouveau faire un "Left" mais avec un début après le "-" ?

F2020-003 : En débutant en position 7 avec une portée de 3 caractères ?

En extrayant ça, tu pourras aisément incrémenter non ?

[zoltar_x]

Voilà l'incrémentation demandée dans une boucle de 1 à 100

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub num_facture()
 
    Dim annee As String
    Dim i As Long
 
    annee = Year(Now)
 
    For i = 1 To 100
 
        If i <= 9 Then
 
            Cells(i, 1) = "F " & annee & "-00" & i
 
        ElseIf i <= 99 Then
 
            Cells(i, 1) = "F " & annee & "-0" & i
 
        Else
 
            Cells(i, 1) = "F " & annee & "-" & i
 
        End If
 
    Next i
 
End Sub

[Philippe Tulliez]

Bonjour,
Pour ma part, j'ai une autre philosophie.
Dans un numéro de facture, note d'envoi, offre, etc. il y a deux éléments. Le numéro et son format
Ce sont deux éléments à traiter indépendamment l'un de l'autre.
Dans une cellule ont peut utiliser soit le format personnalisé, soit utiliser la fonction TEXT pour excel, Format pour VBA

Pour ma part, dans mes programmes j'ai une fonction qui se charge de renvoyer un numéro soit continu soit dépendant des critères définit par le client (remise à zéro tous les mois, trimestres, années, etc.) et ensuite on s'occupe du format (partie visuelle mais non concernée par la numérotation-. C'est l'habillage.

On place les paramètres de la numérotation soit dans un fichier ini soit dans une feuille paramètre du classeur et dans une autre cellule du classeur la fonction TEXT "habille" la manière dont le client souhaite voir apparaître le numéro dans son document.
Bien plus simple à mettre en place, maintenir l'application sans "hard coder" dans le VBA et je fais pareil pour charger les modèles et indiquer à mon application où et sous quel nom le document doit être sauvé

[fredym]

Bonjour,
Pour ma part, j'ai une autre philosophie.
Dans un numéro de facture, note d'envoi, offre, etc. il y a deux éléments. Le numéro et son format
Ce sont deux éléments à traiter indépendamment l'un de l'autre.
Dans une cellule ont peut utiliser soit le format personnalisé, soit utiliser la fonction TEXT pour excel, Format pour VBA

Pour ma part, dans mes programmes j'ai une fonction qui se charge de renvoyer un numéro soit continu soit dépendant des critères définit par le client (remise à zéro tous les mois, trimestres, années, etc.) et ensuite on s'occupe du format (partie visuelle mais non concernée par la numérotation-. C'est l'habillage.

On place les paramètres de la numérotation soit dans un fichier ini soit dans une feuille paramètre du classeur et dans une autre cellule du classeur la fonction TEXT "habille" la manière dont le client souhaite voir apparaître le numéro dans son document.
Bien plus simple à mettre en place, maintenir l'application sans "hard coder" dans le VBA et je fais pareil pour charger les modèles et indiquer à mon application où et sous quel nom le document doit être sauvé

Mr Tulliez,
Je ne suis pas sûr d'avoir tout compris le message que vous voulez me faire passer, par contre je serai ravi de connaitre votre solution plus simple à mettre en place;
de mon côté la cellule qui reçoit le numéro de facture (exemple 2020-001) est soumis à une validation (fonction txt) et dans le listing des documents (factures et note de crédit) ce numéro est précédé du 1er caractère du type de document (exemple F pour facture et N pour note de crédit). Je désire également garder le contrôle du n° de document.
J'attend le plaisir de vous lire.
Fredym

[fredym]

Bonjour,
Pour ma part, j'ai une autre philosophie.
Dans un numéro de facture, note d'envoi, offre, etc. il y a deux éléments. Le numéro et son format
Ce sont deux éléments à traiter indépendamment l'un de l'autre.
Dans une cellule ont peut utiliser soit le format personnalisé, soit utiliser la fonction TEXT pour excel, Format pour VBA

Pour ma part, dans mes programmes j'ai une fonction qui se charge de renvoyer un numéro soit continu soit dépendant des critères définit par le client (remise à zéro tous les mois, trimestres, années, etc.) et ensuite on s'occupe du format (partie visuelle mais non concernée par la numérotation-. C'est l'habillage.

On place les paramètres de la numérotation soit dans un fichier ini soit dans une feuille paramètre du classeur et dans une autre cellule du classeur la fonction TEXT "habille" la manière dont le client souhaite voir apparaître le numéro dans son document.
Bien plus simple à mettre en place, maintenir l'application sans "hard coder" dans le VBA et je fais pareil pour charger les modèles et indiquer à mon application où et sous quel nom le document doit être sauvé

Mr Tulliez,
J'ai bien relu avec attention ,j'ai compris qu'il fallait dissocier les éléments pour les utiliser et ensuite les concaténer pour obtenir le résultat voulu.
Merci pour le conseil
Fredym

[Philippe Tulliez]

Bonjour,

J'ai bien relu avec attention ,j'ai compris qu'il fallait dissocier les éléments pour les utiliser et ensuite les concaténer pour obtenir le résultat voulu.
Merci pour le conseil

Parfait.
Je n'ai malheureusement pas pu donner le lien sur l'article que j'avais écrit à ce sujet (avec classeur en téléchargement) car suite à un problème technique chez notre hébergeur, nous avons subi une panne d'une semaine mais c'est maintenant réparé.
Voici le lien sur un billet titré Excel – Incrémenter un numéro de facture, devis, à l’aide d’une fonction personnalisée

[fredym]

Voilà l'incrémentation demandée dans une boucle de 1 à 100

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub num_facture()
 
    Dim annee As String
    Dim i As Long
 
    annee = Year(Now)
 
    For i = 1 To 100
 
        If i <= 9 Then
 
            Cells(i, 1) = "F " & annee & "-00" & i
 
        ElseIf i <= 99 Then
 
            Cells(i, 1) = "F " & annee & "-0" & i
 
        Else
 
            Cells(i, 1) = "F " & annee & "-" & i
 
        End If
 
    Next i
 
End Sub

Merci pour cette belle boucle d'incrémentation.

je dois la retravailler pour arriver au résultat final;
ce n'est pas le code que j'attendais pour répondre à ma requête.
Fredym

[zoltar_x]

Merci pour cette belle boucle d'incrémentation.

je dois la retravailler pour arriver au résultat final;
ce n'est pas le code que j'attendais pour répondre à ma requête.
Fredym

En voilà une idée qu'elles est bonne : c'est l'occasion de faire travailler tes petites neurones.
Je pense que tu te trompes de forum : les contributeurs dans ce forum ne sont pas des sous-traitants.
Ils fournissent un coup de main lorsqu'un code bugue.

En général, un premier travail est fourni et les gens essayent de trouver là où ça ne va pas.
On voudrait bien voir un début de quelque chose...

[fredym]

bj Zoltar-x

merci pour ta remarque...
je vous ai peut-être heurté avec mon message assez bref mais ce n'est pas mon intention...
bien sûr que j'avais entamé le code ...
J'ai trouvé la solution...
merci

[fredym]

Bonjour,

Pourquoi ne pas de nouveau faire un "Left" mais avec un début après le "-" ?

F2020-003 : En débutant en position 7 avec une portée de 3 caractères ?

En extrayant ça, tu pourras aisément incrémenter non ?

Merci pour cette solution,
c'est probablement celle que je vais retenir sauf si ... ?
Fredym