Comment augmenter automatiquement le n° de facture à chaque fois
Fermé
Bonjour Messieurs, Mesdames
Je vous soumet ce petit problème :
SVP comment faites-vous pour qu'une nouvelle page excel augmente de 1 à chaque fois qu'on crée une nouvelle page (facture ou devis).
Je vous remercie à l'avance pour vos réponses
Je vous soumet ce petit problème :
SVP comment faites-vous pour qu'une nouvelle page excel augmente de 1 à chaque fois qu'on crée une nouvelle page (facture ou devis).
Je vous remercie à l'avance pour vos réponses
A voir également:
- Comment augmenter automatiquement le n° de facture à chaque fois
- Augmenter vitesse pc windows 10 - Guide
- Facture instagram ✓ - Forum Instagram
- Relevé de facturation amazon ✓ - Forum Consommation & Internet
- Comment augmenter la luminosité de l'écran - Guide
- J'ai payer ma facture free mais aucun service - Forum Free mobile
1 réponse
La macro suivante fonctionne, ajoute un bouton qui l'active sur la premiere feuille de ton classeur et nomme la deuxième feuille avec le numéro de facture que tu souhaite avoir. Cela ne fonctionne que pour des feuilles qui portent des numéros de facture sans lettres.
Sub Macro1()
'
' Macro1 Macro
'
Dim numeroFeuille As Integer
numeroFeuille = Sheets(Sheets.Count).Index
Dim numeroFacture As String
numeroFacture = Sheets(Sheets.Count).Name
If IsNumeric(numeroFacture) Then
numeroFacture = CInt(numeroFacture)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Activate
ActiveSheet.Name = numeroFacture + 1
Else
MsgBox ("Le nom de la derniere feuille n'est pas un nombre.")
End If
End Sub
Sub Macro1()
'
' Macro1 Macro
'
Dim numeroFeuille As Integer
numeroFeuille = Sheets(Sheets.Count).Index
Dim numeroFacture As String
numeroFacture = Sheets(Sheets.Count).Name
If IsNumeric(numeroFacture) Then
numeroFacture = CInt(numeroFacture)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Activate
ActiveSheet.Name = numeroFacture + 1
Else
MsgBox ("Le nom de la derniere feuille n'est pas un nombre.")
End If
End Sub