Boutton

[Jean-Paul]

Bonsoir a tous.Je fais appel a votre forum que je trouve formidable.
Voila je vous explique.
je voudrais créer un boutton qui incremente une cellule de +1. ex a1
Mais cette cellule je voudrais l'incrementer sur 3 feuille différente
et ensuite d'avoir incrementer de +1 je voudrais enregistrer automatiquement.
Le but de tout ça,c'est que je voudrais être sur d'avoir enregistrer le no
avant d'entrer autre chose dans mon classeur pour ensuite quiter sans autre changement.
Si c'est pas possible alors je voudrais creer 2 bouttons un pour incrementer et l'autre pour enregistrer

Merci de votre aide precieuse

 

[michel]

bonjour Jean-Paul

j'espere que cela pourra t'aider

Sub BoucleFeuillesEtSauvegarde()
Dim i As Byte
For i = 1 To 3 'exemple de boucle sur les 3 premieres feuilles du classeur
Sheets(i).Range("A1") = Sheets(i).Range("A1") + 1 'ajout d'une unité dans la cellule A1 de chaque feuille
Next i
ThisWorkbook.Save 'enregistrement des modifications
End Sub


bonne apres midi
MichelXld

 

[Jean-Paul]

Merci beaucoup cela m'a beaucoup aider
l'ai enfin regler mon problemme

Mais il y a un autre petit prob.
je voudrais un boutton pour quitter sans savegarde et sans que l'on me demande si je veux enregistrer.

Merci encore pour ton aide precieuse

 

[michel]

rebonsoir Jean-Paul

pour fermer le classeur sans message ni sauvegarde , tu peux tester

Sub FermerClasseurSansSauvegarde()
ThisWorkbook.Close False
End Sub

bonne soiree
MichelXld

 

[Jean-Paul]

Merci beaucoup grace a ton aide j'ai pu terminer le montage de ma facture
Bye