Afficher Listview des hotels

Bonjour,

Je souhaite que la liste des hotels s'affichent quand le curseur est sur la ville concernée...

Mes actuels codes comportent des insuffisances.

En PJ2, quand le curseur est sur A5,

en PJ3, quand le curseur est sur A6.

pj2 pj3

Salut le forum

La méthode de base pour remplir une ListView

Private Sub UserForm_Initialize()

    '----- remplissage ListView------------------------
    With ListView1
        'Définit le nombre de colonnes et Entêtes
        With .ColumnHeaders
            'Supprime les anciens entêtes
            .Clear
            'Ajoute 3 colonnes en spécifiant le nom de l'entête
            'et la largeur des colonnes
            .Add , , "Nom", 80
            .Add , , "Ville", 50
            .Add , , "Age", 50
        End With

        'Remplissage de la 1ere colonne (création de 3 lignes)
        With .ListItems
           .Add , , "Riri"
           .Add , , "Fifi"
           .Add , , "Loulou"
         End With

        'Remplissage des colonnes 2 et 3 dans la 1ere ligne
        .ListItems(1).ListSubItems.Add , , "Ville01"
        .ListItems(1).ListSubItems.Add , , 30

        'Remplissage des colonnes 2 et 3 dans la 2eme ligne
        .ListItems(2).ListSubItems.Add , , "Ville02"
        .ListItems(2).ListSubItems.Add , , 27

        'Remplissage des colonnes 2 et 3 dans la 3eme ligne
        .ListItems(3).ListSubItems.Add , , "Ville03"
        .ListItems(3).ListSubItems.Add , , 41
    End With
    '--------------------------------------------------

    'Spécifie l'affichage en mode "Détails"
    ListView1.View = lvwReport
End Sub

Mytå

Re,

Merci mais comment adapter ce code au mien?

J'en suis incapable... Je ne comprends pas vraiment.

@+

Rechercher des sujets similaires à "afficher listview hotels"