Peux tu m'aider ?'Zone onglet "NB DI"
Set PlgNBDI = ColUti(FDonDI_MES.[A2:O2])
Set CLNBDI = New ComboBoxLiés
CLNBDI.CouleurSympa
' CLNBDI.Plage PlgNBDI
' CLNBDI.Add Me.CbxNBDI, "A"
' CLNBDI.Actualiser
With Worksheets("DI-MES")
Set PlgNBDI = .[A2:02].Resize(.Cells(.Rows.Count, "A").End(xlUp).Row - 1): End With
Set PlgNBDI = ColUti(FDonDI_MES.[A2:O2])
Faux, c'est:Me.CbxNBDI.List = PlgNBDI.Columns("A").Value
Me.CbxNBDI.List = DicNBDI.Keys
If CbxNBDI.ListIndex = -1 Then Exit Sub
Ligne = DicNBDI.Items(CbxNBDI.ListIndex)(1)
PlgNBDI.Rows(LDICou).Value = NBDIVLgn
CbxNBDI.ListIndex = -1
c'est donc la PlgNBDI qui est la table à mettre à jour ?
inopérant ??Private Sub CLXXX_BingoUn(ByVal Ligne As Long)