Procédure cbNomDessert_Change : message l'article existe déjà

Bonsoir à toutes et à tous,

Le message comme quoi l'article existe bien dans la feuille BD articles menus, tableau structuré TabBDArticlesMenus s'affiche bien mais je rencontre cinq problèmes :

1)Le message s'affiche deux fois de façon différente;

2) le cbNomDessert, après avoir cliqué sur oui lors du message, se vide;

3) le cbNomConditionnement n'est pas conforme au contenu du tableau structuré;

4) Le tbNuméroCréation reste vide.

5) La date création n'est pas conforme.

Feuille accueil :

a) Clic sur le bouton de commande Création articles menus;

b) Dans le formulaire UF01_CréationArticles menus qui apparaît, dans nom nature, clic sur Création articles menus;

c) dans nom nature articles menus : clic sur Desserts weekend;

d) dans nom dessert, clic soit sur clémentines, soit sur figues, soit sur Yaourts : le message de son existence apparaît : clic sur oui, un nouveau message apparaît, clic sur oui : les problèmes 1 à 5 surviennent alors.

Seuls les cbNomPériode et cbNom conditionnement pourront être modifiés; après quoi, clic sur validation : le tableau structuré devra être rectifié avec les nouvelles indications sans avoir créé une nouvelle ligne.

Il semblerait que le message s'affiche même si l'article n'existe pas.

D'avance merci pour votre aide.

Si nécessaire, merci de modifier les procédures afin que les problèmes ci-dessus disparaissent.

Bonjour Christian,

Combien de fois vous a t'on dit d'utiliser le mode débogage du code

Vous vous mettez sur une ligne et appuyez sur [F9] cela vous créé un point d'arrêt (vous pouvez en mettre plusieurs)

Ensuite, lancer l'exécution du formulaire, le code va s'arrêter au 1er point d'arrêt
Il vous suffit ensuite d'appuyer sur [F8] pour voir le code se dérouler et comprendre ce qui se produit

A ce sujet, je ne vois pas à quoi sert ces lignes

    'Article existant.
    If MsgBox("L'article " & cbNomDessert.Value & " existe déjà dans la feuille BD articles menus, tableau structuré TabBDArticles." & vbCrLf & vbCrLf & _
      "Voulez-vous le modifier ?", vbExclamation + vbYesNo) = vbYes Then
    End If

Puisque vous ne faite aucun traitement que la réponse soit OUI ou NON

Bonjour Bruno,

i = 0 est en commentaires. Si je le transforme en instructions, l'erreur en brun disparaitra-t-telle ? Réponse : non, cela bloque le programme. Donc problème non résolu !