Actualisation ListView

Bonjour

Je viens de faire une base de données, mais après l’avoir achevé je m'aperçois que la ListView n'affiche pas les données que j'ai déjà saisie, sauf si je rajoute de nouvelles données
Je voudrais savoir s’il y a une procédure pour affichée les données de ma base de données sur la listeView au lancement de la UserForm.

Merci

Bonjour, et

Pourquoi utilisez vous, dans Sub AlimentationPts() :

        If Lr = 2 Then Exit Sub

A+

Bonjour le fil, MedAlis et

Voici le fichier optimisé et corrigé

@+

Bonjour

merci beaucoup pour votre soutien. j'ai une autre question comment je peut changer la couleur du texte dans la" listView" selon une condition

par exemple dans mon cas si la colonne "Etat Pt Lumineux" (DATA7) est "En Panne" le texe est rouge.

Re,

Voici le code d'alimentation de la Listview à changer

Sub AlimentationPts()
  Dim f As Worksheet
  Dim Col As Long, Lr As Long, Ligne As Long
  Dim FlgPanne As Boolean
  Dim IndLv As Long

  Set f = ThisWorkbook.Sheets("BD_POINTS")
  With Me.ListView1
    .ListItems.Clear                             'suprimé les donnée de la listview
    With .ColumnHeaders
      .Clear
      .Add , , "ID pts Lumineux", 40
      .Add , , "Date", 30
      .Add , , "X", 40
      .Add , , "Y", 40
      .Add , , "Quartier", 40
      .Add , , "N° Départ", 40
      .Add , , "Etat Pts", 40
      .Add , , "Ty.Fixsation", 40
      .Add , , "Ty.Support", 40
      .Add , , "Hauteur Pt", 40
      .Add , , "Inclinaison", 40
      .Add , , "Disposition Pts", 40
      .Add , , "Largeur Voie", 40
      .Add , , "Nbrs Foyers", 40
      .Add , , "Ty. Foyer", 40
      .Add , , "Puissance", 40
      .Add , , "Ty. Ballast", 40
      .Add , , "Etat Ballast", 40
      .Add , , "Forme Vasque", 40
      .Add , , "Etat Vasque", 40
      .Add , , "Mise à la Terre", 40
      .Add , , "Protection", 40
      .Add , , "Flux Lumineux", 40
      .Add , , "T° Couleur", 40
      .Add , , "TY.du Réseaux", 40
      .Add , , "Section Câble", 40
      .Add , , "Lien Photo", 80
    End With
    .View = lvwReport
    .Gridlines = True
    .FullRowSelect = True
  End With

  Lr = f.Range("A" & Rows.Count).End(xlUp).Row
  If Lr < 2 Then Exit Sub

  For Ligne = 2 To Lr
    ' Flag à VRAI si panne
    FlgPanne = InStr(1, f.Cells(Ligne, 7), "panne", vbTextCompare) > 0
    ' Ajouter une ligne dans la ListView
    Me.ListView1.ListItems.Add , , f.Range("A" & Ligne)
    ' Indice de la ligne de la ListView
    IndLv = Me.ListView1.ListItems.Count
    ' Si une panne présente
    If FlgPanne Then Me.ListView1.ListItems(IndLv).ForeColor = vbRed
    ' On ajoute chaque colonne
    For Col = 2 To 27
      Me.ListView1.ListItems(IndLv).ListSubItems.Add , , f.Cells(Lr, Col - 1)
      If FlgPanne Then Me.ListView1.ListItems(IndLv).ListSubItems(Col - 1).ForeColor = vbRed
    Next Col
  Next Ligne
  Set f = Nothing
End Sub

@+

bonsoir

merci beaucoup c'est exactement ce que je cherche