Cet article existe déjà : modifier : oui non

Résolu/Fermé

BUDGETS Messages postés 1573 Date d'inscription samedi 19 juillet 2014 Statut Membre Dernière intervention 6 janvier 2025 - 16 janv. 2023 à 15:22
f894009 Messages postés 17226 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 janvier 2025 - 16 janv. 2023 à 18:54

Bonjour à toutes et à tous,

UserForm UF01_Création : procédure cbNomArticleMenu_Change : il est prévu des instructions pour recherche existence article qui, si article trouvé, demande si on veut le modifier (oui, non) puis appelle la procédure RécupérationInfosArticlesMenus. Si je clique sur oui, pas de problème; par contre si je clique sur non, j'ai un message d'erreur : variable objet ou variable de bloc With non définie : procédure cbNomArticleMenu : with sh02, Lig =.listColumns se teint en jaune. Je présume que l'erreur est dans cette ligne d'instructions.

D'avance merci pour l'aide que vous voudrez bien m'apporter.

https://cjoint.com/c/MAqowaQHAF8

Windows / Chrome 109.0.0.0

A voir également:

Cet article existe déjà : modifier : oui non
Gmail.fr existe - Forum Hotmail / Outlook.com
Article retourné par les douanes dhgate ✓ - Forum Consommation & Internet
94 degrés n'existe plus - Télécharger - Divers Jeux
Ymail existe - Forum Réseaux sociaux

1 réponse

Réponse 1 / 1

f894009 Messages postés 17226 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 janvier 2025 1 712
16 janv. 2023 à 17:43

Bonjour,

Il ya raz de cbNomNatureArticleMenu

Ajoutez test si cbNomNatureArticleMenu non vide

Private Sub cbNomNatureArticleMenu_Change()
    Dim i As Integer
    
    If cbNomNatureArticleMenu.ListIndex = -1 Then Exit Sub

BUDGETS Messages postés 1573 Date d'inscription samedi 19 juillet 2014 Statut Membre Dernière intervention 6 janvier 2025
16 janv. 2023 à 17:59

Cette instruction figure déjà dans la procédure.

f894009 Messages postés 17226 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 janvier 2025 1 712 > BUDGETS Messages postés 1573 Date d'inscription samedi 19 juillet 2014 Statut Membre Dernière intervention 6 janvier 2025
16 janv. 2023 à 18:54

Re,

Erreur de ma part

Private Sub cbNomArticleMenu_Change()
Dim lig As Integer

    If cbNomArticleMenu.ListIndex = -1 Then Exit Sub

Discussions similaires

ymail.fr ça existe?

un périphérique qui n'existe pas a été spécifié

Est il possible de créer une adresse Gmail.fr ?

recherche d'u

créer une adresse gmail.fr