[EXCEL2010] incrementation apres sauvegarde Résolu/Fermé

Question

Bonjour, 
J'ai une macro de sauvegarde que vous m'avez aider à améliorer
Elle enregistre les donnees dans une feuille

voici le code

Sub Sauvegarder()
Set Source = Union(Range("M17"), Range("M23"))
If Application.CountA(Source) < 2 Then
MsgBox "Entrez un nom de client et une numero de facture pour valider la sauvegarde"
Else
Dim nom As String
    nom = Range("M17") & "_fact" & Range("M23") & "_" & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
Dim Chemin As String
Chemin = "C:\Users\Cedric\Desktop\old"
Sheets("Facture").Copy
With ActiveWorkbook
    .SaveAs Chemin & "\" & nom
    .Close
End With
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
If MsgBox("Voulez vous effacer les données ?", _
    vbYesNo, "Attention !") = vbYes Then Range("B3:B26,C3:C26,F3:F26,H3:H26,M17:P17,M19:P19,M21:P21,M23:P23,M25:P25,M27:P27,M29:P29,M30:P30,M31:P31,M32:P32,M33:P33").ClearContents
End If
Sheets("vente").Select
End Sub


Pour la peaufiner j'aurai souhaiter qu'apres l'enregistrement elle incremente la cellule M23 (numero facture)
Comment dois je faire ? (je ne connais pas toujours pas vba et je pense qu'il va falloir m'y mettre pour arreter de vous harceler avec mes questions ^^)
Je pensais à quelque chose comme ca (j'essai de deviner un peu)

Sheets("vente").Select
    Range("M23").Value = ("M23").Value +1

que je placerai avant le End Sub mais bien entendu elle ne marche pas (ben oui j'ai un QI d'huitre pour le vba )

Auriez vous une solution et si possible l'explication pour que je comprenne le cheminement

Merci :)

Configuration: Windows 7 / Safari 535.2

ced3c · Answer

Ah ben à force d'essayer j'ai trouvé :)

Sheets("vente").Select
Valeur = "+1"
      Range("M23").Value = Range("M23").Value + Valeur

C'est en forgeant qu'on devient forgeron :)

ced3c · Answer

arf je l avais presque au premier essai il me manquait un Range grrrr

Je l ai modifié en prenant ton code c'est bien mieux oui
Me suis compliqué la vie pour rien

Merci pijaku

[EXCEL2010] incrementation apres sauvegarde

2 réponses

Discussions similaires