Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Grille dans 1 UserForm

Grille dans 1 UserForm

3 réponses
Avatar
Serge
Bonjour,


Je recherche un contrôle grille et un exemple pour remplir une grille dans
une UserForm.

Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
docm
Bonjour.

Il y a le contrôle Spreadsheet qui pourrait faire une grille.

Amicalement.

"Serge" <serge.g8[NO SPAM]@laposte.net> wrote in message
news:cvicrp$3aj$
Bonjour,


Je recherche un contrôle grille et un exemple pour remplir une grille dans
une UserForm.

Merci




Avatar
Serge
ReBonjour,

Je n'ai pas ce contrôle dans mes ref ou contrôles supplémentaires.
J'utilise Excel 2000.
Autre question, j'ai essayé d'autre contrôle sur mon projet, et lorsque je
les insère dans mon userform j'ai le message :
Le contrôle n'a pas été créé par qu'il n'est pas correctement licencié.
Que dois-je faire ?

Merci

"docm" a écrit dans le message de
news:
Bonjour.

Il y a le contrôle Spreadsheet qui pourrait faire une grille.

Amicalement.

"Serge" <serge.g8[NO SPAM]@laposte.net> wrote in message
news:cvicrp$3aj$
Bonjour,


Je recherche un contrôle grille et un exemple pour remplir une grille
dans


une UserForm.

Merci








Avatar
Michel Pierron
Bonjour Serge;
Tu vas rire, mais pourquoi ne pas mettre directement l'application Excel
dans ton UserForm ?
Exemple en première approche:

Option Explicit
Private Declare Function FindWindow& Lib _
"user32" Alias "FindWindowA" (ByVal _
lpClassName$, ByVal lpWindowName$)
Private Declare Function SetParent& Lib _
"user32" (ByVal hWndChild&, ByVal hWndNewParent&)
Private Declare Function GetWindowLong& _
Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd&, ByVal nIndex&)
Private Declare Function SetWindowLong& _
Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Declare Function MoveWindow& Lib _
"user32" (ByVal hwnd&, ByVal x&, ByVal y& _
, ByVal nWidth&, ByVal nHeight&, ByVal bRepaint&)

Private WithEvents oXL As Excel.Application
Private xlHwnd As Long, hwnd As Long

Private Sub UserForm_Activate()
DoEvents
Dim lStyle&
oXL.Visible = True
SetParent xlHwnd, hwnd
lStyle = GetWindowLong(xlHwnd, -16)
lStyle = lStyle Xor &HC00000
SetWindowLong xlHwnd, -16, lStyle
Call UserForm_Resize
oXL.Workbooks.Add
End Sub

Private Sub UserForm_Initialize()
Me.StartUpPosition = 3
hwnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hwnd, -16, &H84CC0080
Dim c As Object
Set oXL = New Excel.Application
oXL.Caption = "IsMine"
' Mettre en remarque les 3 liges ci-dessous
' pour avoir l'application en totalité avec
' ses barres de commandes et tutti quanti.
For Each c In oXL.CommandBars
If Not c.Name = "Cell" Then c.Enabled = False
Next
xlHwnd = FindWindow(vbNullString, "IsMine")
End Sub

Private Sub UserForm_QueryClose(Cancel _
As Integer, CloseMode As Integer)
On Error Resume Next
SetParent xlHwnd, 0
oXL.Visible = False
DoEvents
Me.Hide
DoEvents
Dim c As Object
For Each c In oXL.CommandBars
c.Enabled = True
Next
oXL.Quit
Set oXL = Nothing
End Sub

Private Sub UserForm_Resize()
MoveWindow xlHwnd, 0, 0, Me.InsideWidth _
* 4 / 3, Me.InsideHeight * 4 / 3, 1
End Sub

MP

"Serge" <serge.g8[NO SPAM]@laposte.net> a écrit dans le message de
news:cvicrp$3aj$
Bonjour,


Je recherche un contrôle grille et un exemple pour remplir une grille dans
une UserForm.

Merci