Variable listitem et listimages

Bonsoir dans un module je cherche à faire deux variables listitem et listimages mais je ne les trouve pas dans la liste qui m'est proposé après avoir saisi as

quelqu'un a t-il une idée pour me dépanner

Bonjour

Votre demande n'est absolument pas explicite, pas de code ni de fichier, merci de faire des efforts SVP

Petit rappel de la charte

• Joignez (si possible) un fichier pour augmenter vos chances d'obtenir de l'aide en cliquant sur le bouton Fichier de l'éditeur. Si votre fichier est trop lourd ou contient des données personnelles, créez une version allégée de votre fichier avec juste assez d'informations pour permettre de comprendre votre problème. Dans tous les cas, ne postez JAMAIS de fichiers avec des informations personnelles ou confidentielles (cet utilitaire peut vous aider à les retirer).

A+

Bonjour

En pièce jointe le fichier concerné

dans le

module je cherche à faire deux variables listitem et listimages mais je ne les trouve pas dans la liste qui m'est proposé après avoir saisi as

Bonjour,

Il vous manque la référence de la bibliothèque : Microsoft Windows Common Controls 6.0. Pour l'ajouter :

Editeur VBA --> Outils --> Références --> Parcourir --> Sélectionner MSCOMCTL.OCX dans C:\Windows\System32

Bonjour

Je ne trouve la référence comment faire ?

Re,

Je n'avais pas encore ouvert le fichier

Pourquoi ne mettez-vous pas les 2 sub dans votre UserForm

Option Explicit

Public Lg As Long, i As Integer, J As Integer, C As Variant, D As Range

Private Sub UserForm_Initialize()
  Affiche_col
  Remplir_Lvw
End Sub

Sub Affiche_col()
  With Me.Listview1
    .ListItems.Clear
    With .ColumnHeaders
      .Clear
      .Add , , "N° Conc", 40
      .Add , , "Cimetiere", 40
      .Add , , "Section", 40
      .Add , , "Rang", 40
      .Add , , "Code", 40
      .Add , , "Occupation", 40
      .Add , , "Caveau", 40
      .Add , , "Date d'Achat", 40
      .Add , , "Duree", 40
      .Add , , "Date de fin", 50
      .Add , , "Expiré ?", 40
      .Add , , "Image", 40
      .Add , , "Proprietaire", 90
      .Add , , "Domicile", 140
      .Add , , "Téléphone", 80
      .Add , , "E-Mail", 90
      .Add , , "Observation", 140
      .Add , , "Nom Defunt", 100
      .Add , , "Prénom Defunt", 100
      .Add , , "Naissance", 40
      .Add , , "Décès", 40
    End With
    .Gridlines = True
    .BorderStyle = ccFixedSingle
    .FullRowSelect = True
    .View = lvwReport
  End With
End Sub

Sub Remplir_Lvw()
  Dim C As Variant, Ind As Long
  ' Définir la plage
  With ThisWorkbook.Sheets("source")
    C = .Range("A2:U" & Range("U" & Rows.Count).End(xlUp).Row).Value
  End With
  With Me.Listview1
    For Lg = 1 To UBound(C)
      .ListItems.Add , , Format(C(Lg, 1), "000")
      Ind = .ListItems.Count
      For i = 2 To 21
        .ListItems(Ind).ListSubItems.Add , , C(Lg, i)
        ' A quoi ça sert !?
        'C(Lg, 15) = Format(C(Lg, 15), "0# ## ## ## ##")
        'C(Lg, 8) = Format(C(Lg, 8), "dd/mm/yyyy")
      Next i
    Next Lg
  End With
End Sub

A+

J'ai toujours le même problème pour trouver la référence MSCOMCTL.OCX

Re,

Avec mon code ne cherchez plus, vous n'en avez pas besoin

Voici le fichier au cas ou

Il y a un debogage dû aux cellules avec #NOM? dans votre fichier, supprimez les et vous verrez

A+