augmenter une cellule par macro + invite pour sauvegarde

W

wamme

XLDnaute Occasionnel

• 22 Mars 2009

• #2

Re : augmenter une cellule par macro + invite pour sauvegarde

Bonjour,
un début de réponse.
Pour augmenter de 1 le numéro, ajouter en début de macro [C3] = [C3] + 1

 

Vote positif 0 Vote négatif

W

wamme

XLDnaute Occasionnel

• 22 Mars 2009

• #3

Re : augmenter une cellule par macro + invite pour sauvegarde

Re,

pour sauvegarder sous:

Application.Dialogs(xlDialogSaveAs).Show

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Mars 2009

• #4

Re : augmenter une cellule par macro + invite pour sauvegarde

Bonjour à tous,

Utilisation de :

Code:

Option Explicit

Sub Enregistre()
Range("C3") = Range("C3") + 1
Application.Dialogs(xlDialogSaveAs).Show
End Sub

A+ à tous

 

Pièces jointes

• JC Facturier.zip

  7.3 KB · Affichages: 26

Vote positif 0 Vote négatif

E

EricD01

XLDnaute Junior

• 22 Mars 2009

• #5

Re : augmenter une cellule par macro + invite pour sauvegarde

Salut...

Voila, j'ai modifié ton fichier en espérant que cela te convienne...

Bye et bon dimanche à toi alors...@ plus...

 

Pièces jointes

• FACTURIER.xls

  37.5 KB · Affichages: 67
• FACTURIER.xls

  37.5 KB · Affichages: 69
• FACTURIER.xls

  37.5 KB · Affichages: 70

Vote positif 0 Vote négatif

natorp

XLDnaute Accro

• 22 Mars 2009

• #6

Re : augmenter une cellule par macro + invite pour sauvegarde

Merci à vous 3,

Comme tjrs, vive excel-downloads !!! on sèche, on est aidé....
J'ai ma solution,
Bon après-midi.....
Au plaisir, Gérard

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 22 Mars 2009

• #7

Re : augmenter une cellule par macro + invite pour sauvegarde

Bonjour,
Salut JC
Si comme moi, y a des jours...vaut mieux tester avant
Avec le code de JC

Code:

Option Explicit
Sub Enregistre()
Dim Q As Boolean
Q = Application.Dialogs(xlDialogSaveAs).Show
If Q = 0 Then
Exit Sub
End If
Range("C3") = Range("C3") + 1
End Sub

Si tu annules, la facture n'est pas incrémentée
A+
kjin

 

Vote positif 0 Vote négatif