Insertion des dates ou périodes

[Daniel77]

Bonjour,

Désolé. Remplace la macro par celle-ci :

Sub remplisLB()
  Dim Plg As Range, C As Range
  With Sheets("Données").ListObjects("BDD")
    Me.lbMod.Clear
    Set Plg = .DataBodyRange
    If Not Plg Is Nothing Then
      For Each C In Plg.Resize(, 1)
        If C = Me.ComboBox1.Value Then
          With Me.lbMod
            .AddItem C.Offset(, 1).Value
  '          Var = .List
            .List(.ListCount - 1, 1) = C.Offset(, 2).Value
          End With
        End If
      Next C
    End If
  End With
End Sub

[Rubis57]

Bonjour,

Super, Merci.

Rubis

[Cow18]

oubien, sans tester et en utilisant les propriétés du TS

@Daniel77

With Sheets("Données").ListObjects("BDD")
    Me.lbMod.Clear
    if .listrows.count>0 then
       For Each C In .databodyrange.columns(1).cells
          If C = Me.ComboBox1.Value Then
             With Me.lbMod
               .AddItem C.Offset(, 1).Value
  '            Var = .List
               .List(.ListCount - 1, 1) = C.Offset(, 2).Value
             End With
           End If
       Next C
    End If
  End With

[Rubis57]

Bonjour,

Merci pour ta participation je garde tout ça sous le coude au cas ou.

Dommage que ta proposition au départ était un peu compliqué pour nous, mais bon ce sera pour une autre fois.

A+

Rubis