Discussion :

[dubidon]

Voila mon souci, j'ai une mshflexgrid que je dois remplir pour une partie à partir du code source, et l'autre partie se afit à l'aide d'un recordset.
Daans la partie que je remplie à partir du code, j'ai des cases qui se situe sur la même ligne que j'aimerais fusionner.
Après quelques recherche j'ai trouver qu'il fallait indiquer dans les propriétes de la flexgrid que " MergeCells = flexmergefree" et qu'il suffisait de mettre les mêmes valeur dans des cases successives que l'ont veut fusionner pour que çà le fasse automatiquement.
Mais chez moi çà ne fonctionne pas.
J'ai même forcé dans le code le flexmergefree à l'aide de cette commande "mshTri.MergeCells = flexMergeFree" mais idem.

Voici la partie du code intéressante:

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
37
mshTri.Visible = False  ' on cache la msh pour des raisons de vitesse d'éxécution
mshTri.Redraw = False   ' on garde les données en mémoire
PgB.Visible = True
PgB.Value = 0
PgB.max = rs.RecordCount
mshTri.MergeCells = flexMergeFree
ChargeGrid = False
 
With mshTri
        .Rows = 3           ' déclarations du nombre de ligne
        .Cols = 8           ' déclaration du nombre de colonne
        .FixedRows = 2      ' déclaration du nombre de ligne fixe
        .FixedCols = 0      ' déclaration du nombre de colonne fixe
        .row = 0            ' on se positionne sur la 1ere ligne
 
        'On crèe les en-tetes du service
            ' Pour les colonnes 1 et 2
            For I = 0 To 1
                .col = I
                .Text = "Numéro"
                .CellAlignment = flexAlignCenterCenter
                .CellBackColor = &H80000001
            Next I
            'pour les colonnes 3 à 6
            For I = 2 To 5
                .col = I
                .Text = "Libellé"
                .CellAlignment = flexAlignCenterCenter
                .CellBackColor = &H80000001
            Next I
            ' pour les colonnes 7 et 8
            For I = 6 To 7
                .col = I
                .Text = "Budget"
                .CellAlignment = flexAlignCenterCenter
                .CellBackColor = &H80000001
            Next I

n'étant pas un pro de vb6 il y aurait t'il quelque chose que j'ai oublié, ou tout simplement mal renseigné ??

d'avance merci

@++
dubidon

[jacma]

Bonjour
Tu dois aussi définir les lignes ou les colonnes pour lesquelles les cellules doivent (ou peuvent) être fusionnées. Par exemple, le code suivant indique que seule les lignes peuvent être fusionnées et que la ligne 0 le sera effectivement.

Code :

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

1
2
3
4
5
With msfgDates
 ....
 .MergeCells = 2
 .MergeRow(0) = True
  ....

Si tu ne définis pas la propriété MergeRow (ou MergeCol), la propriété MergeCells ne peut agir, autant que je me rappelle. Je sais que j'avais à l'époque aussi beaucoup cherché...

[dubidon]

merci, çà focntionne parfaitement comme çà, je croyais que le mergerow et le mergecolonne c'etait pour indiquer que l'on veux fusionner toute la ligne ou toute la colonne.

en tout cas encore merci

@++
dubidon