SANDRA2012
XLDnaute Junior
Bonjour à tous,
je souhaite incrémenter ma cellule D9 et ajouter + 1 à chaque impression
j'avais fait cette macro qui fonctionne très bien et qui ajoute +1 après enregistrement mais j'enregistre trop souvent sur la même facture et je suis obligée de modifier manuellement à chaque modification
Merci d'avance à tous ceux qui pourront m'aider
bonne journée
Option Explicit
Dim f, n°
Private Sub Workbook_Open()
Set f = Sheets("facture")
If Range("D9") = "" Then
f.Range("D9") = Format(1, "000")
Else
n° = Mid(f.Range("D9"), 3, Len(f.Range("D9")) - 2) + 1
f.Range("D9") = Format(n°, "000")
End If
End Sub
je souhaite incrémenter ma cellule D9 et ajouter + 1 à chaque impression
j'avais fait cette macro qui fonctionne très bien et qui ajoute +1 après enregistrement mais j'enregistre trop souvent sur la même facture et je suis obligée de modifier manuellement à chaque modification
Merci d'avance à tous ceux qui pourront m'aider
bonne journée
Option Explicit
Dim f, n°
Private Sub Workbook_Open()
Set f = Sheets("facture")
If Range("D9") = "" Then
f.Range("D9") = Format(1, "000")
Else
n° = Mid(f.Range("D9"), 3, Len(f.Range("D9")) - 2) + 1
f.Range("D9") = Format(n°, "000")
End If
End Sub
