IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

probleme de remplissage d'une listview [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    retraite
    Inscrit en
    Avril 2010
    Messages
    325
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Espagne

    Informations professionnelles :
    Activité : retraite
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2010
    Messages : 325
    Par défaut probleme de remplissage d'une listview
    Bonsoir
    j'ai un petit souci avec mon code ci dessous
    les donnees de la colonne 4 de ma feuille n'apparait pas pas ma listview
    mercisi vous avez une idee
    cris

    je viens de joindre un fichier pour une meilleurecomprehension

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
     
     
    Private Sub CommandButton1_Click()
    Me.Hide
    End Sub
     
     
    Private Sub UserForm_Activate()
     
    'Suppression des titres de colonnes
    ListView1.ColumnHeaders.Clear
     
    'Alimentation des titres de colonne :
     
    ListView1.ColumnHeaders.Add , , "Mois", ListView1.Width * 0.13, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width * 0.27, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "Nº MobilHome", ListView1.Width * 0.15, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "Date", ListView1.Width * 0.15, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "Duree", ListView1.Width * 0.1, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "Reglement", ListView1.Width * 0.1, lvwColumnRight
    ListView1.ColumnHeaders.Add , , "Total", ListView1.Width * 0.08, lvwColumnRight
     
    'on remplit la listview
     
    With Me.ListView1
    .ListItems.Clear
        For Each v In Range("a4:a" & Range("a65536").End(xlUp).Row)
            x = x + 1
            .ListItems.Add , , v
            .ListItems(x).ForeColor = v.Font.Color
            For j = 1 To 6
                .ListItems(x).ListSubItems.Add , , v.Offset(0, j)
                .ListItems(x).ListSubItems(j).ForeColor = v.Offset(0, j).Font.Color
            Next j
    Next v
    End With
     
    End Sub

  2. #2
    Membre confirmé
    Femme Profil pro
    Inscrit en
    Septembre 2011
    Messages
    87
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2011
    Messages : 87
    Par défaut
    Bonjour,

    N'y aurait-il pas une erreur dans ton écriture :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("a4:a" & Range("a65536").End(xlUp).Row)
    S'il s'agit de la ligne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("A3").End(xlDown).Address
    Mais j'ai plutôt choisi un tableau.
    Tu définis d'abord ce dernier :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Dim Tbl As Range, D As Range
    Dim LN(19, 36)
     
    Set Tbl = .Range("A2:A21")
        For Each D In Tbl
            LN(D.Row - 2, D.Column - 1) = D.Value
        Next D
    Et après tu remplis ta ListView
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    With ListView27
        .ListItems.Clear
        For L = 0 To UBound(LN, 1)
            .ListItems.Add , , LN(L, 0)
            For c = 1 To UBound(LN, 2)
                .ListItems(.ListItems.Count).ListSubItems.Add , , LN(L, c)
            Next
        Next
    End With
    J'espère t'avoir apporté quelque chose.


  3. #3
    Membre éclairé
    Homme Profil pro
    retraite
    Inscrit en
    Avril 2010
    Messages
    325
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Espagne

    Informations professionnelles :
    Activité : retraite
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2010
    Messages : 325
    Par défaut
    merci, ca fonctionne
    cris

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. VB6 - Remplissage d'une listview avec colonne
    Par megamario dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 22/02/2013, 11h18
  2. remplissage d'une listview
    Par oscar.cesar dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 05/04/2008, 11h06
  3. Probleme de remplissage d'une liste déroulante
    Par kodo dans le forum Struts 1
    Réponses: 3
    Dernier message: 23/08/2007, 16h13
  4. [VBA-E] Problème de sélection d'une listview
    Par marsupilami34 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 05/09/2006, 16h59
  5. [C#] Probleme de couleur dans une ListView
    Par Oberown dans le forum Windows Forms
    Réponses: 1
    Dernier message: 05/12/2005, 17h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo