Discussion :

[Prekestolen]

Bonjour,

Je dois travailler avec du code VBA (j'en ai fait très peu)pour mon état. Si mon état à plusieurs pages, certaines donnés doivent resté non écrite (elles seront écrites seulement à la dernière page (donc je compte mes pages pour savoir si plus que une et jusqu'à xxxx).

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If PageCumule > 1 And PageCumule < "Pages" Then
     Texte44 = ""
End if

mais au lieu de ne rien marquer , ma valeur de Texte44 que je comtabilise reste toujours la même. J'ai essayé de mettre mon code dans la formule du Source Contrôle des Propriétés, rien à faire. Est-ce que quelqu'un à une piste à me suggérer. Merci d'avance

[Gabout]

Bonjour,

Je ne comprends pas ton problème. qu'est ce que PageCumule et qu'est ce que "Pages" ?

La page courante se nomme [Page] et le nombre total de pages d'un état [Pages]

Explique un peu stp

[Prekestolen]

Bonjour

le "PageCumule" est le compteur de page (pour savoir si on est à la dernière page) et le "Pages" est la dernière page. Cette partie du code fonctionne bien car j'ai mis un pointbreak pour le faire pas-à-pas. C'est la condition suivante qui ne fonctionne pas Texte44 = "". Dans mon état, Texte44 calcule un sous-total suivant une formule (qui fonctionne très bien). Mais comme ce sous-total doit s'afficher seulement sur la dernière page, rien ne doit s'écrire sur les pages d'avant. Si c'est pas clair, dis le moi et je vais essayer de mieux m'expliquer. Je continue de travailler dessus.

[Gabout]

Re,

Ok : dans ce cas, dans ton pied d'état, tu mets un champ calculé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=vraifaux([Page]<[Pages];"";Texte44)

Essaie

[Prekestolen]

Merci Gabout
j'ai retravaillé ta formule avec voici mon code avec mes noms de champ et mon sous-état et cela fonctionne très bien

=VraiFaux([Page]=[PageCumule],[Sous-état facture].Etat![Sous-total_sous-état],"")

Merci à tous