A voir également:
- Comment augmenter automatiquement le n° de facture à chaque fois
- Augmenter vitesse pc windows 10 - Guide
- Facture ryanair - Forum Réseaux sociaux
- Comment augmenter la luminosité de l'écran - Guide
- Score snap qui augmente de 3 points - Forum Snapchat
- Logiciel de sauvegarde automatique gratuit - 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
