Comment augmenter automatiquement le n° de facture à chaque fois
marcogd3
-
Guillaume -
Guillaume -
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
- Facture aliexpress ✓ - Forum Consommation & Internet
- Réglo mobile facture ✓ - Forum Autres opérateurs mobiles
- Logiciel de sauvegarde automatique gratuit - Guide
- Facture ryanair - Forum Réseaux sociaux
- Augmenter vitesse pc windows 10 - Guide
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
