CbNomArticleMenu ne se remplit pas.

Bonjour f894009,

Très heureux de te retrouver. Merci pour ta réponse.

Je vais rectifier TESTS LIEGE comme tu le suggères et te tiendrai au courant du résultat. Résultat désiré obtenu. Merci encore. Maintenant, je vais m'attaquer à la modification libellés et aux prédéfinitions période et conditionnement.

Bonjour,

Deux codes differents pour la meme fonction!!!!!

Devriez faire des copier/coller des procedures et modifier ce qui doit l'etre, ici Sh2 ald Sh1 pour Test liege

'BUDGET1
Private Sub cbNomNatureArticleMenu_Change()
    Dim i As Integer
    If cbNomNatureArticleMenu.ListIndex = -1 Then Exit Sub
        i = cbNomNatureArticleMenu.ListIndex + 1
        tbCodeNatureArticleMenu = sh01.ListObjects("TabNatureArticleMenu").DataBodyRange(i, 2)
        With sh01.ListObjects("TabProduits")
            For i = 1 To .ListRows.Count
                If cbNomNatureArticleMenu = .DataBodyRange(i, 3).Value Then
                    cbNomArticleMenu.AddItem .DataBodyRange(i, 1).Value
                End If
            Next i
    End With
End Sub

'Test-LIEGE
Private Sub cbNomNatureArticleMenu_Change()
Dim lig As Byte
'Effacer le contenu des cb et des tb si cbNomNatureArticleMenu est vide.
    If cbNomNatureArticleMenu = "" Then
        tbCodeNatureArticleMenu.Value = ""
        cbNomNatureArticleMenu.Value = ""
        tbCodeNatureArticleMenu.Value = ""
    End If
            If cbNomNatureArticleMenu.ListIndex = -1 Then Exit Sub
                lig = cbNomNatureArticleMenu.ListIndex + 1
                    tbCodeNatureArticleMenu = sh02.ListObjects("TabNatureArticleMenu").DataBodyRange(lig, 2)
    Call ModificationLibellés
End Sub