Numérotation auto de chaques ouvertures

[proslider]

Pour commencer, bonjour à tous !🙂

Voila je rencontre un petit problème sur excel 2000, je l'utilise pour éditer des factures mais je voudrais qu'il numérote automatiquement chaques factures à chaques ouvertures, mais je ne sais déja pas si c'est possible 😱 !
étant débutant... enfin voila quoi ! merci d'avance

 

[Spitnolan08]

Re : Numérotation auto de chaques ouvertures

Re,

Tu as bien fait JP😉
Et ta transformation est bonne aussi proslider...
Pour voir les effets, il faut fermer et rouvrir le classeur concerné en activant les macros si un message te le demande.

Cordialement

 

[jeanpierre]

Re : Numérotation auto de chaques ouvertures

Re,

En théorie, je fais confiance à certain, ici, pour leur code....

Si ta cellule, au début, à au moins un premier numéro, cela doit fonctionner....

avec "0000", cela te fait 9999 factures possibles...

En A11, pourquoi pas.... là c'est toi qui vois....

Bonne soirée et de tes nouvelles pour suivre tes évolutions.

Jean-Pierre

 

[Compte Supprimé 979]

Re : Numérotation auto de chaques ouvertures

Re,

J'ajouterais que mon numéro de facture apparait en A11 et souhaiterais sur quatre chiffres, j'ai donc procédé comme suit :

Private Sub Workbook_Open()
Numero = CInt(Right(Sheets(1).Range("A11"), 3))
Sheets(1).Range("A11") = Year(Date) & Month(Date) & Format(Numero + 1, "0000")
End Sub

Pour un débutant, tu ne t'en ai pas mal sorti pour la modification, sauf que tu as oublié un petit truc 😉

Si tu veux quatre chiffres pour tes facture, il faut récupérer 4 chiffres et non 3 dans le numéro

Numero = CInt(Right(Sheets(1).Range("A11"), 4))

Sinon lorsque que tu vas changer de millier il va y avoir soucis 😀

 

[Spitnolan08]

Re : Numérotation auto de chaques ouvertures

Re,

Pour tenir compte de la dernière remarque de jeanpierre une proposition un peu plus lourde mais qui absorbe le cas (normalement unique) d'une absence de saisie en A11

Private Sub Workbook_Open()
Dim Numero As Variant

Numero = Right(Sheets(1).Range("A11"), 4)
If IsNumeric(Numero) = False And Numéro <> "" Then Exit Sub
    If Len(Numero) = 0 Then
        Numero = Format(0, "0000")
    Else
        Numero = CInt(Right(Sheets(1).Range("A11"), 4))
    End If
Sheets(1).Range("A1") = Year(Date) & Month(Date) & Format(Numero + 1, "0000")
End Sub

Cordialement

Edit: pas vu BrunoM45, désolé

 

[Compte Supprimé 979]

Re : Numérotation auto de chaques ouvertures

Re, Spitnolan

Sinon peut-être plus simple mais tout aussi efficace

Private Sub Workbook_Open()
Dim Numero as integer
 
' Continue le code en cas d'erreur
On Error Resume Next
Numero = Right(Sheets(1).Range("A11"), 4)
' Arrête le resume
On Error Goto 0
' Numero = 0 si pas de valeur dans A11
' donc 0 + 1 = 1
Sheets(1).Range("A1") = Year(Date) & Month(Date) & Format(Numero + 1, "0000")
End Sub

Voili, voilà 😉

 

[proslider]

Re : Numérotation auto de chaques ouvertures

Me re voila , j'ai donc essayé les trois formule ( pas de jaloux) la première comporte une erreur dans la deuxième ligne c'excel qui me le dit 😱 en surlignant en jaune, et pour les deux autes il me l'affiche en A1, de plus est-il possible de glisser une séparation entre 20011 et 0001 -> 200711-0001 ?

En tout cas vraiment merci a tous, vous etes patient, c'est une grande vertue !

 

[jeanpierre]

Re : Numérotation auto de chaques ouvertures

Re,

Patient, pas tant que tu crois....

Essaies avec :Sheets(1).Range("A11") = Year(Date) & Month(Date) &"-" & Format(Numero + 1, "0000")

En direct et pas testé...

 

[proslider]

Re : Numérotation auto de chaques ouvertures

ok , j'ai donc modifié comme-ci :

Private Sub Workbook_Open()
Dim Numero As Integer

' Continue le code en cas d'erreur
On Error Resume Next
Numero = Right(Sheets(1).Range("A11"), 4)
' Arrête le resume
On Error GoTo 0
' Numero = 0 si pas de valeur dans A11
' donc 0 + 1 = 1
Sheets(1).Range("A11") = "FACTURE N°" & Year(Date) & Month(Date) & "- " & Format(Numero + 1, "0000")

Mais j'ai un petit problème j'ai un double affichage
en A1 j'ai : 2007110001
et en A11 j'ai Facture n° 200711 - 0001 ( comme je le voulais)

Je n'arrive pas à supprimer A1

 

[jeanpierre]

Re : Numérotation auto de chaques ouvertures

Re,

En A1, il me semble que c'était un exemple à un instant donné....

Sur ta feuille et sur A1, un Suppr, et ce doit être bon....

Tu nous dis....

 

[Spitnolan08]

Re : Numérotation auto de chaques ouvertures

Re,

Me re voila , j'ai donc essayé les trois formule ( pas de jaloux) la première comporte une erreur dans la deuxième ligne c'excel qui me le dit 😱 en surlignant en jaune

Si tu parles de ma première proposition, ce n'est pas une erreur à proprement parler. Ce code ne prenait pas en compte les cas particuliers tels que l'absence de n° de facture dans la case prévue à cet effet ou la saisie d'une référence invalide. Si tu te trouves dans un de ces cas, il est donc normal que la macro indique une erreur.

Je n'arrive pas à supprimer A1

Fais comme te dit JeanPierre et tu devrais solutionner ton pb : ce doit être un résidu d'un essai précédent.

Cordialement

 

[proslider]

Re : Numérotation auto de chaques ouvertures

Je tiens à vous remercier tous pour votre précieuse aide, mon problème est solutionné et cela marche parfaitement, donc merci , Spitnolan08, Jeanpierre, BrunoM45 et Coriolan 😉