Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel tableau ds userform

tableau ds userform

3 réponses
Avatar
Christian Raoux
Salut à tous

est il possible de metre un tableau ds un userform
et si oui comment

merci d'avance

christian
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
pmo
Bonjour,

Voici, ci-dessous, un code répondant par l'affirmative
à l'interprétation que j'ai eu de votre question
(en espérant qu'elle soit la bonne).
Cette macro construit dynamiquement un UserForm, un
CommandButton de fermeture, une ListBox pour l'affichage
des données. Ces données sont préalablement stockées dans
un Range à partir des cellules renseignées de la feuille
active. Puis, après avoir cliquer sur le bouton "Fermer",
la macro détruit le UserForm.

Essayez-la et modifiez le code à votre convenance.

A bientôt.

PMO

'*******************************
Sub TabInListBox()
Dim R As Range
Dim UF As Object
Dim LB As MSForms.ListBox
Dim CB As MSForms.CommandButton
Dim A$
Dim i&
On Error GoTo fin
'---- Fabrication du Range des données ----
Set R = ActiveSheet.UsedRange
If R.Rows.Count = 1 And _
R.Columns.Count = 1 Then Exit Sub
'---- Crée dynamiquement un UserForm ----
Set UF = ThisWorkbook.VBProject _
.VBComponents.Add(vbext_ct_MSForm)
With UF
.Properties("Caption") = "Tableau"
.Properties("Height") = 240
.Properties("Width") = 320
End With
'---- Crée le bouton de fermeture ----
Set CB = UF.Designer.Controls _
.Add("forms.CommandButton.1")
With CB
.Caption = "Fermer"
.Left = 200
.Top = 180
End With
'°°° Ajout du code évènementiel °°°
A$ = "Sub CommandButton1_Click()" & _
vbCrLf & "Unload Me" & _
vbCrLf & "End Sub"
With UF.CodeModule
i& = .CountOfLines
.InsertLines i& + 1, A$
End With
'---- Crée une ListBox ----
Set LB = UF.Designer.Controls _
.Add("forms.listbox.1")
With LB
'°°° Nb de colonnes °°°
.ColumnCount = R.Columns.Count
'°°° Affectation des données °°°
.RowSource = R.Address
.Left = 45
.Top = 45
.Height = 130
.Width = 230
End With
'---- Affiche le UserForm ----
DoEvents
VBA.UserForms.Add(UF.Name).Show
'---- Détruit le UserForm ----
ThisWorkbook.VBProject.VBComponents _
.Remove UF
fin:
End Sub
'*******************************

-----Message d'origine-----
Salut à tous

est il possible de metre un tableau ds un userform
et si oui comment

merci d'avance

christian
.



Avatar
Pierre CFI
bonjour
regarde dans les controles complémentaires tu peux insére Microsoft
spreadsheet donc carrement une feuille excel
tu enleves les colonnes, les entetes ....

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"Christian Raoux" a écrit dans le message de news:

Merci pour la réponse
mais ce n'est pas cela que je veux
c'est dessiner un tableau
ex : 3 colonnes et 4 lignes
et y rentréer des données

A+
christian


"pmo" écrivait news:097501c3715a$64810c00
$:

Bonjour,

Voici, ci-dessous, un code répondant par l'affirmative
à l'interprétation que j'ai eu de votre question
(en espérant qu'elle soit la bonne).
Cette macro construit dynamiquement un UserForm, un
CommandButton de fermeture, une ListBox pour l'affichage
des données. Ces données sont préalablement stockées dans
un Range à partir des cellules renseignées de la feuille
active. Puis, après avoir cliquer sur le bouton "Fermer",
la macro détruit le UserForm.

Essayez-la et modifiez le code à votre convenance.

A bientôt.

PMO

'*******************************
Sub TabInListBox()
Dim R As Range
Dim UF As Object
Dim LB As MSForms.ListBox
Dim CB As MSForms.CommandButton
Dim A$
Dim i&
On Error GoTo fin
'---- Fabrication du Range des données ----
Set R = ActiveSheet.UsedRange
If R.Rows.Count = 1 And _
R.Columns.Count = 1 Then Exit Sub
'---- Crée dynamiquement un UserForm ----
Set UF = ThisWorkbook.VBProject _
.VBComponents.Add(vbext_ct_MSForm)
With UF
.Properties("Caption") = "Tableau"
.Properties("Height") = 240
.Properties("Width") = 320
End With
'---- Crée le bouton de fermeture ----
Set CB = UF.Designer.Controls _
.Add("forms.CommandButton.1")
With CB
.Caption = "Fermer"
.Left = 200
.Top = 180
End With
'°°° Ajout du code évènementiel °°°
A$ = "Sub CommandButton1_Click()" & _
vbCrLf & "Unload Me" & _
vbCrLf & "End Sub"
With UF.CodeModule
i& = .CountOfLines
.InsertLines i& + 1, A$
End With
'---- Crée une ListBox ----
Set LB = UF.Designer.Controls _
.Add("forms.listbox.1")
With LB
'°°° Nb de colonnes °°°
.ColumnCount = R.Columns.Count
'°°° Affectation des données °°°
.RowSource = R.Address
.Left = 45
.Top = 45
.Height = 130
.Width = 230
End With
'---- Affiche le UserForm ----
DoEvents
VBA.UserForms.Add(UF.Name).Show
'---- Détruit le UserForm ----
ThisWorkbook.VBProject.VBComponents _
.Remove UF
fin:
End Sub
'*******************************

-----Message d'origine-----
Salut à tous

est il possible de metre un tableau ds un userform
et si oui comment

merci d'avance

christian
.









Avatar
Christian Raoux
merci beaucoup

A+
Christian

"Pierre CFI" écrivait
news::

bonjour
regarde dans les controles complémentaires tu peux insére Microsoft
spreadsheet donc carrement une feuille excel
tu enleves les colonnes, les entetes ....

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"Christian Raoux" a écrit dans le message de
news:
Merci pour la réponse
mais ce n'est pas cela que je veux
c'est dessiner un tableau
ex : 3 colonnes et 4 lignes
et y rentréer des données

A+
christian


"pmo" écrivait
news:097501c3715a$64810c00 $:

Bonjour,

Voici, ci-dessous, un code répondant par l'affirmative
à l'interprétation que j'ai eu de votre question
(en espérant qu'elle soit la bonne).
Cette macro construit dynamiquement un UserForm, un
CommandButton de fermeture, une ListBox pour l'affichage
des données. Ces données sont préalablement stockées dans
un Range à partir des cellules renseignées de la feuille
active. Puis, après avoir cliquer sur le bouton "Fermer", la macro
détruit le UserForm.

Essayez-la et modifiez le code à votre convenance.

A bientôt.

PMO

'*******************************
Sub TabInListBox()
Dim R As Range
Dim UF As Object
Dim LB As MSForms.ListBox
Dim CB As MSForms.CommandButton
Dim A$
Dim i&
On Error GoTo fin
'---- Fabrication du Range des données ----
Set R = ActiveSheet.UsedRange
If R.Rows.Count = 1 And _
R.Columns.Count = 1 Then Exit Sub
'---- Crée dynamiquement un UserForm ----
Set UF = ThisWorkbook.VBProject _
.VBComponents.Add(vbext_ct_MSForm)
With UF
.Properties("Caption") = "Tableau"
.Properties("Height") = 240
.Properties("Width") = 320
End With
'---- Crée le bouton de fermeture ----
Set CB = UF.Designer.Controls _
.Add("forms.CommandButton.1")
With CB
.Caption = "Fermer"
.Left = 200
.Top = 180
End With
'°°° Ajout du code évènementiel °°°
A$ = "Sub CommandButton1_Click()" & _
vbCrLf & "Unload Me" & _
vbCrLf & "End Sub"
With UF.CodeModule
i& = .CountOfLines
.InsertLines i& + 1, A$
End With
'---- Crée une ListBox ----
Set LB = UF.Designer.Controls _
.Add("forms.listbox.1")
With LB
'°°° Nb de colonnes °°°
.ColumnCount = R.Columns.Count
'°°° Affectation des données °°°
.RowSource = R.Address
.Left = 45
.Top = 45
.Height = 130
.Width = 230
End With
'---- Affiche le UserForm ----
DoEvents
VBA.UserForms.Add(UF.Name).Show
'---- Détruit le UserForm ----
ThisWorkbook.VBProject.VBComponents _
.Remove UF
fin:
End Sub
'*******************************

-----Message d'origine-----
Salut à tous

est il possible de metre un tableau ds un userform
et si oui comment

merci d'avance

christian
.