Discussion :

[metalleuse]

Bonjour,

Dans un état d'impression, j'ai besoin d'ajouter quelques schémas conditionnels dans un pied de groupe.
J'arrive à les rendre visible ou non en fonction d'une condition, mais l'espace de l'image est quand même ajouté au pied de groupe.
J'ai une zone blanche au dessous des groupes non concernés par l'image.
J'ai essayé de modifier la taille de la section (dont les paramètres "autoextensible" et "autoréductible" sont à "oui"), mais rien à faire, j'ai une zone blanche.

J'ai mis ce code au formatage du pied de groupe :

Code :

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

1
2
3
4
5
6
7
8
9
10
'' Procédure au formatage de la section "Pied_Groupe_3" (Group3), Schémas conditionnels
Private Sub Pied_Groupe_3_Format(Cancel As Integer, FormatCount As Integer)
 
    If (Txt_No_Bloc.Value = 6) Then
        Image_essai.Visible = True
    Else
        Image_essai.Visible = False
        Section("Pied_Groupe_3").Height = 0
    End If
End Sub

"Txt_No_Bloc" correspond à un contrôle textbox de l'état qui contient la valeur d'un champ de la requête, je l'utilise pour la condition d'affichage.

J'ai fait un essai avec un schéma inséré dans un contrôle "image" et un autre dans un contrôle "cadre d'objet indépendant", le résultat est identique. Pour le moment, les schémas sont enregistrés en format .png, mais je pense pouvoir adapter le format (bmp ...) si besoin.

Pour l'instant, j'ai fait un essai avec une seule image, mais le nombre sera variable en fonction de la condition (de 0 à 4), je ne peux donc pas rendre invisible ma section entière.

Si quelqu'un a une idée ?
Merci

[ClaudeLELOUP]

Bonjour,

Et si au lieu de rendre visible ou non visible, tu ajustais la hauteur :
- lui affecter la hauteur ad hoc au lieu de « visible » ;
- lui affecter une hauteur = 0 au lieu de « non visible » ?

[metalleuse]

C'est ce que j'ai essayé de faire avec le code (en mettant une valeur à la place de zéro en fonction de la hauteur souhaitée) :

Code :

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

Section("Pied_Groupe_3").Height = 0

Mais je n'utilise peut-être pas la bonne propriété car la hauteur reste inchangée quelque soit la valeur indiquée ......

Existe-t-il une autre méthode ou propriété ?

[ClaudeLELOUP]

Je ne te parle pas de la hauteur du pied de groupe, mais de la hauteur de ton contrôle Image. C'est lui (avec la place que physiquement il occupe) qui empêche la hauteur du pied de revenir à zéro. Visible ou non visible, il occupe de l'espace !

[metalleuse]

D'accord, donc quand je ne veux pas l'afficher, je mets la hauteur du contrôle à zéro et le pied de groupe "autoréductible" diminuera d'autant.
Super, j'essaye ça.
Merci

[ClaudeLELOUP]

Donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Pied_Groupe_3_Format(Cancel As Integer, FormatCount As Integer)
 
 If (Txt_No_Bloc.Value = 6) Then
        Image_essai.Height = LavaleurNormale en Twips
        Section("Pied_Groupe_3").Height = LavaleurNormale en Twips
    Else
        Image_essai.Height = 0
        Section("Pied_Groupe_3").Height = 0
 End If
End Sub

[metalleuse]

Merci beaucoup,
ça fonctionne à merveille, mais apparemment il n'est pas nécessaire d'augmenter la hauteur de la section quand elle n'est pas vide, elle prend automatiquement la hauteur du contrôle "image". Par contre, il faut la diminuer si le nombre de contrôles "image" diminue.