Discussion :

[gillou13]

Bonjour à tous,

Je pose la même question que pour le poste suivant :
http://www.developpez.net/forums/d96...es/#post639931

Mise à part que dans mon cas les sous-formulaires sont au nombre de 4 et doivent être présents dans 3 onglets.

Pour l'info je doit réaliser une liste d' "opérations". Comme le nombre de colonne est important, l'idée a été d'afficher les ID et nom des opérations et de cloisonner le reste des données en 3 parties.

Du coup Figer les colonnes dans un seul formulaire n'est pas une solution dans mon cas...

Quelqu'un aurai une solution pour cette 'syncro' ?

Merci d'avance pour votre aide

[loufab]

Bonjour,

A quel niveau est le problème ?

La synchro elle-même ou bien le rafraichissement ?

Cordialement,

[ClaudeLELOUP]

Bonjour,


J'essaierais ceci :

1° créer le formulaire avec toutes ses colonnes ;
2° laisser une surface vide entre la partie figée (ID/Nom des opérations) et les suivantes. Disons que l'écran afficherait ces 2 colonnes et le vide ;
3° dans cette zone "vide" on copie chacun des 4 groupes de contrôles, les uns au-dessus des autres ;
4° quatre boutons dont le clic rend visibles les contrôles souhaités et cache les autres.

En choisissant judicieusement le nom des contrôles dupliqués, on devrait pouvoir lancer une boucle qui rend visibles les colonnes ad hoc et invisibles les autres.

Suis-je clair ?

[ClaudeLELOUP]

Voici un exemple.
Je souhaite afficher :
soit id, dénomination, appellation et catégorie (1) ;
soit id, dénomination, millésime et région (2) ;
soit id, dénomination, prix et stock (3).

Étape 1 : j’ai composé le formulaire avec toutes ses colonnes et un espace libre après la 2e colonne.



Étape 2 : j’ai copié Étape 1 et j’ai rebaptisé les contrôles des colonnes optionnelles en faisant précéder leur nom par le chiffre respectif. J’ai positionné leur propriété « Visible » à NON.




Étape 3 : j’ai copié Étape 1 (pour le montrer intact) et j’ai copié chaque groupe de Étape 2 dans la surface laissée libre.




Voici le code associé à chacun des trois boutons :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub bt1_Click()
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 1)
      Case 1
        ctl.Visible = True
      Case 2, 3
        ctl.Visible = False
    End Select
Next ctl
 
End Sub
 
Private Sub bt2_Click()
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 1)
      Case 2
        ctl.Visible = True
      Case 1, 3
        ctl.Visible = False
    End Select
Next ctl
End Sub
 
Private Sub bt3_Click()
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 1)
      Case 3
        ctl.Visible = True
      Case 1, 2
        ctl.Visible = False
    End Select
Next ctl
End Sub

[gillou13]

Nikel merci ClaudeLELOUP

Je vais utiliser cette solution ce matin.
c'est plus simple que d'utiliser un tas de sous-formulaires comme j'avais commencé à faire et je n'aurai qu'un scrolling vertical au final.

Encore merci