Discussion :

[malhivertman1]

Bonjour a tous,

Mon titre est assez clair, j'aimerai faire des fusions de cellules dans un grid et j'aimerai savoir comment on fait.
Si qq peut m'aiguiller, il serait bien cool.

Merci

[Xo]

As-tu regardé du côté du MSHFlexGrid comme indiqué sur ce post :
http://www.developpez.net/forums/vie....php?p=2454956

Sinon, voici de quoi débuter :
- Créée un nouveau projet,
- Ajoute la référnce "Microsoft Hierarchical Flex Grid Control,
- Sur ta form Form1, ajoute ce contrôle, renomme-le en monMSHFlexGrid,
- Ajoute 2 boutons Command1 et Command2
- Ajoute le code suivant à ton projet :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Explicit
 
Private Sub Form_Load()
 
    monMSHFlexGrid.Cols = 3
    monMSHFlexGrid.Rows = 0
 
    monMSHFlexGrid.FixedCols = 0
    monMSHFlexGrid.FixedRows = 0
 
    monMSHFlexGrid.AddItem "1" & vbTab & "1" & vbTab & "2"
    monMSHFlexGrid.AddItem "1" & vbTab & "1" & vbTab & "2"
    monMSHFlexGrid.AddItem "3" & vbTab & "3" & vbTab & "4"
 
End Sub
 
Private Sub Command1_Click()
    'Fusionne les colonnes
    monMSHFlexGrid.MergeCells = flexMergeRestrictColumns
    FusionneCellulesRow True
 
End Sub
 
Private Sub Command2_Click()
    'Fusionne les lignes
    monMSHFlexGrid.MergeCells = flexMergeRestrictColumns
    FusionneCellulesCol True
 
End Sub
 
Private Sub FusionneCellulesCol(bFusionne As Boolean)
   ' fusionne ou défusionne les cellules par colonnes
   Dim i As Integer
 
   With monMSHFlexGrid
      For i = 0 To .Cols - 1
         .MergeCol(i) = bFusionne
      Next i
   End With
 
End Sub
 
Private Sub FusionneCellulesRow(bFusionne As Boolean)
   ' fusionne ou défusionne les cellules par lignes
   Dim i As Integer
 
   With monMSHFlexGrid
      For i = 0 To .Rows - 1
         .MergeRow(i) = bFusionne
      Next i
   End With
 
End Sub

Il existe d'autres valeurs de la propriété MergeCelles (flexMergeCellsfree en particulier) mais je ne connais pas ...

[malhivertman1]

En fait, je suis contraint dans mon projet et je n'ai pas le droit de rajouter de composant, et je ne dispose pas du Microsoft hierarchical Flexgrid Control.
C'est pour cela que je cherche directement dans un grid tout simple

[malhivertman1]

[img]C:\Documents and Settings\Gael.TGI\Bureau\Sans Titre

Voila, ce sera peut etre plus clair avec l'image.
En fait, chaque entete de colonnes avec le même nom comme collaboratori doit etre fusionner et ne faire qu'un et etre centré.

Merci, en esperant qu'un adepte des grid lira ce message[/img]

[malhivertman1]

bon ben l'image ne s'afiche pas, tant pis, jespere que qq comprendra sans..

[Xo]

La balise img ne sert que pour des images disponibles via une URL Internet, et ne permettra en aucun cas de nous afficher une image sur ton PC. de plus, la balise fermante doit se situer en fin d'URL

Si tu veux développer une telle fonctionnalité avec un grid tout simple, pas d'autre solution que celle donnée par khany dans le post mentionné plus haut :
http://www.developpez.net/forums/vie....php?p=2454956

A savoir, la gestion manuelle de TextBox à superposer à ta grille. Bon courage, ça ve va pas être de la tarte ...

[malhivertman1]

Mais il n'y a pas de fusion dans sa solution !!

[Xo]

Non, mais on te montre comment superposer une zone de texte à une cellule. A toi de l'adapter sur plusieurs cellules, si les contenus sont égaux.

En fait, je suis contraint dans mon projet et je n'ai pas le droit de rajouter de composant, et je ne dispose pas du Microsoft hierarchical Flexgrid Control.

Si tu ne peux revenir sur cette clause, oublie cette histoire de fusion, tu vas passer un temps fou à développer une usine à gaz pour pas grand-chose. C'est juste mon avis, basé sur mes connaissances, peut-être que je me trompe ...

N'hésite pas à expliquer à ton responsable que cette fameuse clause t'empêche toute évolution sur ton produit, et qu'il est impossible de répondre à son besoin de "fusion" de cellules. Ou alors ne passe pas par un grid ... mais je n'ai pas d'autres alternatives à te proposer, vu la clause anti-évolutions ...

[malhivertman1]

ok bon ben c'est pas grave, merci de t'etre penché sur mon probleme même s'il n'est pa resolu, je ferait donc sans.

Bonne journée
@+