CbNomArticleMenu ne se remplit pas.
Résolu
BUDGETS Messages postés 1608 Date d'inscription Statut Membre Dernière intervention -
Bonjour à toutes et à tous,
Quand je clique sur le cbNomArticleMenu, celui-ci reste vide (fichier TESTS LIEGE) alors que dans le fichier BUDGETS1 il se remplit.
D'avance merci pour votre aide.
Fichier TEsTS LIEGE.xlsm :
https://cjoint.com/c/LLrtcPwQuS8
Fichier BUDGETS1.xlsm :
Nom nature création : création articles menus
Nom nature article menu : Dessert midi retraite
https://cjoint.com/c/LLrtfupHEC8
- Copiez l'image dans un logiciel d'édition d'images ou un outil en ligne comme js paint ou pixlr e. remplissez les cases en suivant le code couleur. des cases supplémentaires vont se remplir automatiquement. que représente le dessin ?
- Le code ascii en informatique - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Partager photos en ligne - Guide
- Paint net - Télécharger - Dessin & Illustration
- Mètre en ligne - Guide
2 réponses
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
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.
