colonne dans listview qui s"ajoute

grisan29 · 5 Décembre 2011

bonsoir a vous tous

il y a une chose que je ne comprends dans les fichiers listview que vous avez créer pour moi
que ce soit pour Yann_56 où Laetitia où fo_rum c'est pareil
lorsque j'ouvre l'usf et que je clique sur plomberie c'est ok mais lorsque je veux électricité ou autres a chaque sélection il y a des colonnes qui s'ajoute dans la listview incompréhensible a mon niveau
je vous joint le fichier de nouveau
il est vrai qu'au premier post j'avais envoyer le fichier avec 8 pages et la page plomberie contenait les 7 autres pour que vous ayez le choix pour intervenir

cordialement

Pascal

Grand Chaman Excel · 5 Décembre 2011

Re : colonne dans listview qui s"ajoute

Bonjour grisan29,

Je crois qu'en ajoutant cette ligne de code, ça va régler ton problème :

VB:

Private Sub ComboBox1_Change()
 Label2.Visible = True: Repaint
 ListView1.ListItems.Clear
 ListView1.ColumnHeaders.Clear      ' ******* AJOUTER CETTE LIGNE ICI

A+

grisan29 · 6 Décembre 2011

Re : colonne dans listview qui s"ajoute

bonjour Grand Chaman Excel 😎😎

je crois que tu porte ton nom avec Excellence😎, la ligne de code eston ne peut plus parfate , pour quelqu'un qui démarre avec les listview c'est pas facile

pour essayer de comprendre le fonctionement de la listeview par quoi peut'on traduire ceci

Code:

With travaux.ListView1: .View = 3: .Gridlines = True: .FullRowSelect = True: .Sorted = True

Merci beaucoup

cordialement

Pascal

YANN-56 · 6 Décembre 2011

Re : colonne dans listview qui s"ajoute

Bonjour Pascal, Grand Chaman, et à ceux qui passeront par ici,

Que je sache, il n'y avait pas ce type de problème dans l'exemple que je t'avais construit
lors de nos échanges sur ton précédent fil. 😱

Dans ce code, j'avais bien précisé que la Feuille "électricité" ne servait momentanément que pour la création des Colonnes de la ListView.

Code:

 Private Sub UserForm_Initialize()
Dim FEUILLE As Worksheet
Me.ComboBox1.AddItem "Choix Corps d'Etat"
     For Each FEUILLE In ThisWorkbook.Worksheets
           If FEUILLE.Name <> "ACCUEIL" Then
                With Me.ComboBox1
                    .AddItem FEUILLE.Name
                    .Value = .List(0)
                End With
           End If
      Next
 Worksheets("électricité").Activate ' Elle va servir de Base pour établir les Colonnes (Faute de mieux, ou plus lourd à gérer!!)
 
         With UserForm1.ListView1: .View = 3: .Gridlines = True: .FullRowSelect = True: .Sorted = False
               With .ColumnHeaders
                  For i = 1 To 20 '"20" étant un nombre forfaitaire de Colonnes renseignées .... On peut l'adapter!
                      If ActiveSheet.Cells(1, i).Value <> "" Then
                         .Add , , ActiveSheet.Cells(1, i).Value, (ActiveSheet.Columns(i).ColumnWidth * 4) + 18
                         '"4" étant issu des tests (Voire Inches et Points), et "+ 18" un correctif de la même origine.
                       End If
                  Next i
                End With
      End With
End Sub

Private Sub ComboBox1_Change()
Me.Label1.Caption = Me.ComboBox1.Value
Me.ListView1.ListItems.Clear
    For Each FEUILLE In ThisWorkbook.Worksheets
        If FEUILLE.Name = Me.ComboBox1.Value And FEUILLE.Name <> "ACCUEIL" Then
            FEUILLE.Activate
               With Me.ListView1
                      For i = 2 To ActiveSheet.Cells(65536, 2).End(xlUp).Row
                          If ActiveSheet.Cells(i, 1).Value <> "" Then
                                .ListItems.Add , , ActiveSheet.Cells(i, 1).Value
                          Else
                                .ListItems.Add , , "Sans Code"
                          End If
                                 For j = 2 To .ColumnHeaders.Count
                                    If ActiveSheet.Cells(i, j).Value <> "" Then
                                         .ListItems(.ListItems.Count).ListSubItems.Add , , ActiveSheet.Cells(i, j).Value
                                     Else
                                        .ListItems(.ListItems.Count).ListSubItems.Add , , "?"
                                    End If
                                 Next j
                      Next i
               End With
          End If
    Next
End Sub

Je joins à nouveau mon exemple.

Quant à ta dernière question:
Tu trouveras réponse et bien plus dans le Fichier PDF joint.

Un autre point important à savoir!
Quand tu modifies les propriétés de la ListView, il faut enregistrer en étant dans VBAProject,
car beaucoup d'entre-elles ne le seront pas à l'enregistrement seul du Classeur.

Amicalement, et disponible, cher voisin...🙂

Yann

grisan29 · 6 Décembre 2011

Re : colonne dans listview qui s"ajoute

bonsoir Yann_56(cher voisin)
ben non il n'y avait pas ce type de problème dans ton fichier il y avais déja

Me.ListView1.ListItems.Clear

et pas dans le code de la listview de Laetitia ni de fo_rum
ce n'est pas le choix de ta listview que j'ai fait🙁car l'usf etait trop grand , + que mon écran, ce qui fait que je n'ai meme pas regarder les codes que tu y a mis🙁
voila la raison de ma demande
tant qu'a faire peu tu me dire comment modifié cette ligne de code d'une listbox vers une listview

Code:

UserForm2.ListBox1.AddItem C.Offset(, -1)

parce que

Code:

UserForm2.ListView1.AddItem C.Offset(, -1)

ca le fais pas
Merci beaucoup yann_56

cordialement

Pascal

YANN-56 · 7 Décembre 2011

Re : colonne dans listview qui s"ajoute

Bonsoir Pascal, et à ceux qui passeront dans le coin,

Là je ne vais devoir abandonner, car tu n'y mets vraiment pas du tien!

Tu pourrais prendre la peine d'adapter la taille de l'USF à ton écran!
S'il est besoin d'avoir si large, ce n'est que tes descriptions sont particulièrement longues.
Tu peux regarder à modifier la taille de la Police de la ListView et modifier le coefficient "x4"

J'espère que tu porteras plus d'attention au PDF que je t'ai envoyé qu'à mon exemple.
(En l'occurrence, faute d'allusion, je doute que tu l'aies ouvert)

De petite question en petites question et en sautant du coq à l'âne; tu avanceras petitement.

Tout le monde te dira que le principal qu'ils ont appris est issu de leur propre travail.

Par ailleurs tu reviens avec une ListBox, et un "C.Offset" qui n'ont rien à voir avec mon Code!!!

Et là je ne me permettrai pas de marcher sur les plates bandes d'autrui.

Amicalement, et bon courage,🙂

Yann

grisan29 · 7 Décembre 2011

Re : colonne dans listview qui s"ajoute

bonjour Yann_56
merci pour ta réponse qui me laisse penser que je t'ai offensé😡, je démarre avec les listview et ce grace a toi et je suis paumé😕, donc concernant

Par ailleurs tu reviens avec une ListBox, et un "C.Offset" qui n'ont rien à voir avec mon Code!!!

cette ligne de code est issue d'une listbox il est vrai, mais si je l'ai mise en ligne c'est pour la recalifiée pour entrer dans le code de la listview et non

modifié cette ligne de code d'une listbox vers une listview

qui est une erreur de formulation😡
pour ce qui est du document .pdf il m'a permis d'avoir les réponses nécéssaire mais il en manque et me voici
et pour ton fichier TEST_TVX.xls je m'en excuse😡le jour ou tu me l'a envoyer est arrivé celui de Laetitia et Fo_rum que je salue, qui sont arrivé en meme temps, et j'ai fait un choix simpliste de prendre le tout mis en forme, et de ne pas regarder les autres plus profondément

bon je vais bossé

cordialement

Pascal

colonne dans listview qui s"ajoute

grisan29

XLDnaute Accro

Grand Chaman Excel

XLDnaute Impliqué

grisan29

XLDnaute Accro

YANN-56

XLDnaute Barbatruc

Pièces jointes

grisan29

XLDnaute Accro

YANN-56

XLDnaute Barbatruc

grisan29

XLDnaute Accro

Discussions similaires

colonne dans listview qui s"ajoute

grisan29

XLDnaute Accro

Grand Chaman Excel

XLDnaute Impliqué

grisan29

XLDnaute Accro

YANN-56

XLDnaute Barbatruc

Pièces jointes

grisan29

XLDnaute Accro

YANN-56

XLDnaute Barbatruc

grisan29

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency