Feuille de compte de dépenses

G

Gaston

Guest
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?
 
G

Gaston

Guest
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!
 
V

Vériland

Guest
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
 
V

Vériland

Guest
la relève...lol



g_combat_002.gif

g_combat_002.gif

g_combat_002.gif
 
@

@+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

Réponses
5
Affichages
349

Statistiques des forums

Discussions
311 720
Messages
2 081 886
Membres
101 830
dernier inscrit
sonia poulaert