usf avec multipage de 8 pages (résolu)

* pascal29
Anonyme
Envoyé le 17/07/2014 à 11:53

Bonjour,a vous tous
j'ai un userform sur lequel j'ai mis un mutipage de 8 pages, est ce que je dois mettre une listview sur chaque page afin de récolter les infos concernant la page
où alors y a t'il un moyen de n'avoir qu'une seule listview pour tous les boutons

la listview doit se remplir de données qui sont dans un classeur qui est sous C: et que je vous joint

Merci de votre compréhension

Pascal

pascal29
6 contributions
Membre depuis le 17/07/2014
Envoyé le 17/07/2014 à 12:14 Modifié par pascal29


re Bonjour,a vous

je n'ai joint que le dossier qui est dans c: donc voici mon classeur d'essai
et c'est dans bureautique que le post aurait du etre

j'ai pas dit non plus que je suis sous windows8.1 64 bits et office 2013 pro

Pascal



pascal29
6 contributions
Membre depuis le 17/07/2014
Envoyé le 17/07/2014 à 12:48 Modifié par pascal29


Bonjour,
j'ai rajouter ceci pour les entètes de la listview de la page1
dans l'activation de l'usf

With ListView1 'DIMENSIONNEMENT
.Top = .Gridlines = True: .View = 3: .FullRowSelect = True
With ListView1.Font: .Name = "Tahoma": .Size = 10: .Italic = False: End With: End With ' CHOIX DE LA POLICE
With ListView1.ColumnHeaders
.Add , , "Code", 100, 0
.Add , , "Désignation", 450, 0 ' Alignement à Gauche
.Add , , "U", 30, 2 'Alignement centré
.Add , , "P.U", 50, 1 ' Alignement à Droite

End With

Pascal


pascal29
6 contributions
Membre depuis le 17/07/2014
Envoyé le 17/07/2014 à 15:43 Modifié par pascal29


Bonjour,
J'ai trouvé un code qui le fait a partir d'une combobox,mais pour des feuilles qui ne sont pas sur c:
Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Name <> "ACCUEIL" Then ComboBox1.AddItem WS.Name
Next
End Sub
Private Sub ComboBox1_Change()
ListView1.ListItems.Clear

Set WS = Sheets(ComboBox1.Text) 'Ws pour simpifier la frappe
WS.Cells.Columns.AutoFit ' Pour une Largeur cohérente des Colonnes de la WS!
With ListView1
.View = 3
.Gridlines = True
.FullRowSelect = True
.Sorted = True
With .ColumnHeaders
For i = 1 To 10 '10 étant un nombre forfaitaire de Colonnes renseignées .... On peut l'adapter!
If WS.Cells(1, i) <> "" Then .Add , , WS.Cells(1, i), (WS.Columns(i).ColumnWidth * 4) + 18
Next
End With
For i = 2 To WS.Cells(WS.Rows.Count, 1).End(xlUp).Row
'On format la valeur sur 3 chiffres
.ListItems.Add , , Format(WS.Cells(i, 1), "00#")
For j = 1 To .ColumnHeaders.Count - 1
If WS.Cells(i, j + 1) <> "" Then
.ListItems(.ListItems.Count).ListSubItems.Add , , WS.Cells(i, j + 1)
Else
.ListItems(.ListItems.Count).ListSubItems.Add , , "?" 'Ceci pour une suite où Wind n'aime pas le vide!
End If
Next
Next
End With
End Sub


CODE
Pascal

pascal29
6 contributions
Membre depuis le 17/07/2014
Envoyé le 19/07/2014 à 13:14 Modifié par pascal29


Bonjour,RESOLU
a vous tous
je me suis débrouiller autrement via une combobox au lieu du multipage plus simple a gerer
ceci clos ce post
Pascal



J_D J_D
10 736 contributions
Membre depuis le 12/11/2001
Envoyé le 19/07/2014 à 14:00


Bonjour,
Merci du retour et bravo pour la résolution de ton problème (+)
Je ne réponds pas aux messages privés non sollicités ! C'est pas toujours facile...

Discussion trop ancienne

Cette discussion a été automatiquement fermée car elle n'a plus reçue de nouveau message depuis trop longtemps.

Nous vous suggérons de créer un nouveau message

« Retour sur la liste des messages de ce forum