Feuille de compte de dépenses

V

Vériland

Guest
MDR...le plan Vigipirate en action...


http://gifs.toutimages.com/images/gens_combat/g_combat_002.gif[/img
[img]http://gifs.toutimages.com/images/gens_combat/g_combat_002.gif[/img

lol​
 
G

Gaston

Guest
Rebonjour Merci pour le démo...

Sauf que J'aurais apprécier la procédure si je veux monter ma feuille de compte de dépenses je la monte sur la feuille 2????


Merci encore pour ta précieuse aide!
 
@

@+Thierry

Guest
Salut Gaston

Pas compris ta question ...
je la monte sur la feuille 2 ???

Ben tu fais ce que tu veux du code ... Non ?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Compteur As Integer
If ActiveSheet.Name <> "Mafeuille" Then Exit Sub
Compteur = Sheets("Mafeuille").Range("B12")
Compteur = Compteur + 1
Sheets("MaFeuille").Range("B12") = Compteur
End Sub

Le compteur tu le mets où tu veux ? par exemple ...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Compteur As Integer
If ActiveSheet.Name <> "Mafeuille" Then Exit Sub
Compteur = Sheets("Feuille 2").Range("A1")
Compteur = Compteur + 1
Sheets("Feuille 2").Range("A1") = Compteur
End Sub

C'est tout ce que tu as à faire (pour autant que la "Feuille 2" existe bien !

Bye
@+Thierry
 

Discussions similaires


Haut Bas