Feuille de compte de dépenses

[Gaston]

Bonjour j'aimerais avoir une feuille qui s'indexerait automatiquement pour des comptes de dépenses...

Km, frais de repas, frais de chambre

à l'impression le no. de compte apparaiterais et serait indexer automatiquement comme un no. de facture...

Y-a-t-il une ame charitable pour me monter ça?

 

[Gaston]

Je dois être très ignorant mais habituellement quand tu clic sur le fichier en question tu download mais là c'est un autre forum qui ouvre


merci de combler mon ignorance pourtant ... je suis pas si nul que ça!

 

[@+Thierry]

Salut Gaston

Non tu n'es pas nul il y a un problème pour télécharger les pièces jointes

Ma démo est dans ta BAL

Bonne Soirée
@+Thierry

 

[Vériland]

Bonsoir ou bonjour "el" Forum...j'sais plus à c't'heure ci...hi hi hi

J'viens de revenir et j'suis tombé directement ici...Wouaouh!...dans ce fil tout est dit...Moa j'ai qu'un mot Bravo...c'est du pur esprit de foromiste ça...et hop...envoyé c'est pesé...

bien sûr j'adhère complètement à l'esprit qui règne ici, hormis bien sûr à l'élément quelque peu négatif qui me désole...

A+ Vériland

 

[@+Thierry]

Hi hi hi

​

lol

​

@+Thierry​

 

[@+Thierry]

C'est la patrouille des Forumeurs !!!

 

[Vériland]

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​

 

[Vériland]

la relève...lol

 

[Vériland]

voilà la totale...ouf...

​

 

[@+Thierry]

Hi hi hi



Bonne Nuit !

 

[Gaston]

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]

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