demande de variables pour lvwColumnRight

[grisan29]

bonsoir a tous

dans le classeur joint, j'ai un souci et je comprends pas pourquoi il y a bug avec cette ligne

 .Add , , "Taille (ko)", 50, lvwColumnRight

où

lvwColumnRight

bug à l'ouverture de l'usf
cette ligne est extraite ce code

Private Sub UserForm_Initialize()
  'Définit les entêtes de colonnes
 With Me.ListView1
    With .ColumnHeaders
      .Clear 'Supprime les anciens entêtes
     'Ajout des colonnes
     .Add , , "Nom fichier", 200
      .Add , , "Taille (ko)", 50, lvwColumnRight
    .Add , , "Créé le", 60, lvwColumnCenter
            .Add , , "Modifié le", 60, lvwColumnCenter
            .Add , , "Commentaires", 190, lvwColumnLeft
    End With
    .View = lvwReport 'affichage en mode Rapport
   .Gridlines = True 'affichage d'un quadrillage
   .FullRowSelect = True 'Sélection des lignes comlètes
 End With
End Sub

qui lui viens du fichier ci dessous

Pascal

 

[grisan29]

Re : demande de variables pour lvwColumnRight

re
j'ai oublier de dire que cela se passe a chaque ligne où il y a lvw avant "colummn" et report"quand je les mets en commentaire au fur et a mesure

Pascal

 

[Paf]

Re : demande de variables pour lvwColumnRight

bonsoir,

Aucun soucis sous Excel 2003

Bonne suite

 

[Staple1600]

Re : demande de variables pour lvwColumnRight

Bonjour à tous

cela se passe a chaque ligne où il y a lvw avant "colummn"

Les lvw sont là parce qu'ils doivent être là...
Ce lien n'existe plus

Donc, la cause du bug serait ailleurs, non ?

 

[Si...]

Re : demande de variables pour lvwColumnRight

salut

Les lvw sont là parce qu'ils doivent être là... ?
Donc, la cause du bug serait ailleurs, non ?

Problèmes récurrents avec ce contrôle selon l’OCX installé.

Je les résous souvent de la façon suivante : je le supprime dans l’UsF (pas le code !) et, avec ma « Boîte à outil », je le recrée. C’est opérationnel avec ton fichier "défaillant" et mon Excel (2010).

Remarque : tu peux remplacer lvwColumnLeft par 0; ...Right par 1 et ...Center par 2.

 

[Staple1600]

Re : demande de variables pour lvwColumnRight

Bonjour à tous

Si...
Pourquoi le ? après mes trois ...

 

[grisan29]

Re : demande de variables pour lvwColumnRight

bonjour a vous

Merci de vos réponses
staple1600 le fichier joint est un extrait du montage d'un ami mais dans son fichier il a ce bug et j'ai le même bug chez moi
si... j'ai supprimer et recréer la listview, remplacer les lvw... par 0, 1, 2 comme tu me le suggère et cela fonctionne a ne rien comprendre bref
merci de ta solution 😎
voici le code modifié

Private Sub UserForm_Initialize()
  'Définit les entêtes de colonnes
 With Me.ListView1
    With .ColumnHeaders
      .Clear 'Supprime les anciens entêtes
     'Ajout des colonnes
     .Add , , "Nom fichier", 200
      .Add , , "Taille (ko)", 50, 0 'lvwColumnRight
    .Add , , "Créé le", 60, 1 'lvwColumnCenter
            .Add , , "Modifié le", 60, 2 'lvwColumnCenter
   End With
    .View = lvwReport 'affichage en mode Rapport
   .Gridlines = True 'affichage d'un quadrillage
   .FullRowSelect = True 'Sélection des lignes comlètes
    End With
 
End Sub

Pascal

 

[Staple1600]

Re : demande de variables pour lvwColumnRight

Re

grisan29
Dans le lien que j'avais mis, tu avais les "valeurs numériques" des variables.
J'ai oublié de préciser qu'on pouvait les utiliser à la place des "variables".
Heureusement, Si... est passé par là pour te l'indiquer. 😉

Telle que tu posais ta question, j'ai cru que tu voulais supprimer lvw dans le nom des variables
(d'où mon précédent message)

 

[grisan29]

Re : [RESOLU]demande de variables pour lvwColumnRight

bonjour staple1600

tu n'a pas a t'excuser, si j'avais su bien nommé mon post cela aurais été plus compréhensif

ceci clos ce post

Pascal