Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Réponses
5
Affichages
366
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…