Je fais apparaitre plusieurs données dans un UF, et je souhaiterais savoir
s'il est possible de faire apparaitre un tableau de façon à ce que la mise en
forme soit plus sympa...
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
bruno -- bdf
bonjour j'ai eu ce problème il y a quelques temps, la façon dont je l'ai résolu est d'utiliser une ListBox et d'utiliser les propriétés ColumnCount, ColumnHeads, ColumnWiths ça te mets des cellules dans la ListBox
bruno -- bdf
Bonjour,
Je fais apparaitre plusieurs données dans un UF, et je souhaiterais savoir s'il est possible de faire apparaitre un tableau de façon à ce que la mise en forme soit plus sympa...
-- Merci pour vos réponses.
bonjour
j'ai eu ce problème il y a quelques temps, la façon dont je l'ai résolu est
d'utiliser une ListBox et d'utiliser les propriétés ColumnCount, ColumnHeads,
ColumnWiths
ça te mets des cellules dans la ListBox
bruno -- bdf
Bonjour,
Je fais apparaitre plusieurs données dans un UF, et je souhaiterais savoir
s'il est possible de faire apparaitre un tableau de façon à ce que la mise en
forme soit plus sympa...
bonjour j'ai eu ce problème il y a quelques temps, la façon dont je l'ai résolu est d'utiliser une ListBox et d'utiliser les propriétés ColumnCount, ColumnHeads, ColumnWiths ça te mets des cellules dans la ListBox
bruno -- bdf
Bonjour,
Je fais apparaitre plusieurs données dans un UF, et je souhaiterais savoir s'il est possible de faire apparaitre un tableau de façon à ce que la mise en forme soit plus sympa...
-- Merci pour vos réponses.
JB
Bonjour,
Tableau dans un UserForm:
http://cjoint.com/?kElnWJu5kN
Private Sub UserForm_Initialize() ChDir ActiveWorkbook.Path With Sheets("shapeForm") .[A1:E6].CopyPicture .Paste Destination:=.Range("A1") 'crée un shape Set s = .Shapes(.Shapes.Count) s.CopyPicture .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Chart.Export Filename:="monimage.jpg", FilterName:="jpg" .Shapes(.Shapes.Count).Delete .Shapes(.Shapes.Count).Delete End With Me.Image1.Picture = LoadPicture("monimage.jpg") End Sub
Cordialement JB
Bonjour,
Je fais apparaitre plusieurs données dans un UF, et je souhaiterais sav oir s'il est possible de faire apparaitre un tableau de façon à ce que la mise en forme soit plus sympa...
-- Merci pour vos réponses.
Bonjour,
Tableau dans un UserForm:
http://cjoint.com/?kElnWJu5kN
Private Sub UserForm_Initialize()
ChDir ActiveWorkbook.Path
With Sheets("shapeForm")
.[A1:E6].CopyPicture
.Paste Destination:=.Range("A1") 'crée un shape
Set s = .Shapes(.Shapes.Count)
s.CopyPicture
.ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
.ChartObjects(1).Chart.Export Filename:="monimage.jpg",
FilterName:="jpg"
.Shapes(.Shapes.Count).Delete
.Shapes(.Shapes.Count).Delete
End With
Me.Image1.Picture = LoadPicture("monimage.jpg")
End Sub
Cordialement JB
Bonjour,
Je fais apparaitre plusieurs données dans un UF, et je souhaiterais sav oir
s'il est possible de faire apparaitre un tableau de façon à ce que la mise en
forme soit plus sympa...
Private Sub UserForm_Initialize() ChDir ActiveWorkbook.Path With Sheets("shapeForm") .[A1:E6].CopyPicture .Paste Destination:=.Range("A1") 'crée un shape Set s = .Shapes(.Shapes.Count) s.CopyPicture .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Chart.Export Filename:="monimage.jpg", FilterName:="jpg" .Shapes(.Shapes.Count).Delete .Shapes(.Shapes.Count).Delete End With Me.Image1.Picture = LoadPicture("monimage.jpg") End Sub
Cordialement JB
Bonjour,
Je fais apparaitre plusieurs données dans un UF, et je souhaiterais sav oir s'il est possible de faire apparaitre un tableau de façon à ce que la mise en forme soit plus sympa...
