Problème création d'un DataGrid

Version imprimable

10/09/2015, 11h35
aracnard

Problème création d'un DataGrid

Bonjour,
Je voulais ajouter des controles de type DataGrid ou MSflexGrid, mais des que je souhaite en placer sur le Userform j'ai un super message d'erreur : "Le sujet n'est pas approuvé pour l'action spécifiée" comment remedier a cela de manière simple merci.
10/09/2015, 15h20
parmi

Bonjour,

Je ne pense pas que tu puisses intégrer ces contrôles dans Excel.
Du moins, je n'ai jamais été capable... question de licence...

Tu pourrais regarder du côté de la ListView.
Un peu compliqué à gérer, mais ça accepte beaucoup de données/colonnes...
10/09/2015, 15h27
kiki29

Salut, toujours d'actualité : Utiliser le contrôle ListView en VBA Excel

1 pièce(s) jointe(s)

bonjour,
fabriquer un contrôle comme celui ci c'et long a faire et je ne sais pas si j'aurai terminé dans e limites qui te sont impartie!

j'utilise un MSFlexGrid mais comme mon VB6 est avec la licence on peut utilise mon contrôle dans Excel alors que MSFlexGrid lui ne l'est pas!, je fabrique un passe plat!

de toutes les façons, je posterai le résulta!

Maintenant si tu me dis les propriétés que tu vas utiliser sur le MSFlexGrid, je pourrais te livrer une version inachevé maisque tu pourras utiliser!

Code:

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Event Compare(ByVal Row1 As Long, ByVal Row2 As Long, Cmp As Integer)
Event DblClick()
Event EnterCell()
Event LeaveCell()
Public Enum Appearance_
    flex3D_ = flex3D
    flexFlat_ = flexFlat
End Enum
Public Enum BorderStyle_
    flexBorderNone_ = flexBorderNone
    flexBorderSingle_flexBorderSingle
End Enum
Property Let AllowBigSelection(value)
MSFlexGrid1.AllowBigSelection = value
End Property
Property Get AllowBigSelection()
AllowBigSelection = MSFlexGrid1.AllowBigSelection
End Property
Property Let AllowUserResizing(value)
MSFlexGrid1.AllowUserResizing = value
End Property
Property Get AllowUserResizing()
AllowUserResizing = MSFlexGrid1.AllowUserResizing
End Property
Property Let Appearance(value As Appearance_)
MSFlexGrid1.Appearance = value
MSFlexGrid1.Appearance = flexFlat
End Property
Property Get Appearance() As Appearance_
AllowUserResizing = MSFlexGrid1.Appearance
End Property
Property Let BackColor(value As Long)
MSFlexGrid1.BackColor = value
End Property
Property Get BackColor() As Long
BackColor = MSFlexGrid1.BackColor
End Property
Property Let BackColorBkg(value As Long)
MSFlexGrid1.BackColorBkg = value
End Property
Property Get BackColorBkg() As Long
BackColorBkg = MSFlexGrid1.BackColorBkg
End Property
 
Property Let BackColorFixed(value As Long)
MSFlexGrid1.BackColorFixed = value
End Property
Property Get BackColorFixed() As Long
BackColorFixed = MSFlexGrid1.BackColorFixed
End Property
Property Let BackColorSel(value As Long)
MSFlexGrid1.BackColorSel = value
End Property
Property Get BackColorSel() As Long
BackColorSel = MSFlexGrid1.BackColorSel
End Property
Property Let BorderStyle(value As BorderStyle_)
MSFlexGrid1.BorderStyle = value
End Property
Property Get BorderStyle() As BorderStyle_
BorderStyle_ = MSFlexGrid1.BorderStyle
End Property
Property Let CausesValidation(value As Boolean)
MSFlexGrid1.CausesValidation = value
End Property
Property Get CausesValidation() As Boolean
CausesValidation = MSFlexGrid1.CausesValidation
End Property
Private Sub MSFlexGrid1_Compare(ByVal Row1 As Long, ByVal Row2 As Long, Cmp As Integer)
RaiseEvent Compare(Row1, ByVal Row2, Cmp)
End Sub
Private Sub MSFlexGrid1_DblClick()
 RaiseEvent DblClick
End Sub
Private Sub MSFlexGrid1_EnterCell()
RaiseEvent EnterCell
End Sub
 
Private Sub MSFlexGrid1_LeaveCell()
RaiseEvent LeaveCell
End Sub
 
Private Sub UserControl_Initialize()
MSFlexGrid1.AllowBigSelection = True
End Sub
 
Public Sub Drag(Optional Action)
MSFlexGrid1.Drag Action
End Sub
Public Sub Clear()
MSFlexGrid1.Clear
End Sub
Public Sub AddItem(item As String)
MSFlexGrid1.AddItem item
End Sub

10/09/2015, 21h13
kiki29

Salut, voir microsoft et ce post
10/09/2015, 21h35
Invité

Depuis 2003,Microsoft suite aux nombreux procès intenté contre lui par la concurrence, ne fournit plus en natif les contrôles dit de deuxième niveau! Même si ils sont installés sur la machine!

Par exemple je dispose du timer installé par mon compilateur vb6 et je ne peux pas utilisé sur l'Excel de la même machine!

Avec 97 il n'était plus possible d'utiliser des contrôles non approuvé, mais il était possible d'utiliser une application Excel développé par un prestataire! Les contrôles étaient embarqué dans l'application. Maintenant seul le chemin complet de la librairie est intégré au projet.

J'ai déjà développé maintes ocx et dll que j'ai installer via l'empaquetage vb6,sen jamais avoir de soucis.

Je dispose de plusieurs VM de xp a win8 des 32 et des 64 bits, même Excel 2013 64 bits!

C'est pour ça que j'ai créé des contrôle que j'appel passe plats, ils dispose du contrôle non approuvé sur Excel, les propriétés et les méthodes du contrôle relaient les propriétés du contrôle encapsulé dans la fram du niveau contrôle!

Pour faire un test pour ceux que ça intéresse, le TimzrRd: http://www.developpez.net/forums/d15...e/#post8364029

Vb6 est passé dans le domaine public il est appelé a de grandes réussite pour des projets VBA!
11/09/2015, 10h35
aracnard

Merci pour ces reponses, moi qui cherchais une solution simple...
Je pense que je vais tenter le controle listview et tenter ma chance avec.
Merci encore
11/09/2015, 10h44
Invité

1 pièce(s) jointe(s)

bonjour, le truc le plus simple c'est Spreadsheet

Pièce jointe 187665