XL 2019 Suite à double clic dans listbox, problème de variable objet

[SPGoder]

Bonjour
Encore une fois, je fais appel à votre savoir
Dans le fichier qui suis, si vous sélectionnez l'immeuble de paris, puis le compteur gaz, apparait dans la listbox l'historique des relevés de compteur.
Normalement, en double cliquant dans celle ci, je souhaite récupérer les information dans les différent textbox et autres, afin de pouvoir faire une modification, voir une suppression.
Mais des le début de l'instruction, un code erreur apparait, alors que j'utilise la même méthode juste avant (pour compter le nombre de ligne non vide) lorsque j'initialise le listbox.
Je n'arrive pas à en trouver la cause. et donc la solution

Merci de vos futurs éclaircissements

 

[sylvanu]

Bonsoir SPGoder,
Je pense qu' il vous manque un Set WsReleve_Compteur = Worksheets("Releve_compteur") dans les modules
TextBox24_Change
ListBox1_DblClick
DateInf
....
Ce Set doit être déclaré dans chaque module qui l'utilise.

 

[SPGoder]

Bonsoir Sylvanu
Merci de me répondre
J'ai déjà essayé, et ça ne change rien(je viens de le refaire au cas où....mais même résultat)
(Comme je le charge dans userform_initialise, et la déclaration de variable est dans explicite, je pensais qu'il n'était pas utile de le répéter à chaque fois)

 

[SPGoder]

Je viens de remplacer
WsReleve_Compteur.Range("A65536").End(xlUp).Row
par
Worksheets("Releve_compteur").Range("A65536").End(xlUp).Row
alors que le set est déclarer juste avant, et ça fonctionne.... je comprends pas

 

[sylvanu]

Set n'est pas une déclaration de variable.
Moi, je l'ai modifié :
Avant :

Après, ça passe :

 

[SPGoder]

Merci, ta solution fonctionne
Par contre, j'aurai besoin d'explication si tu veux bien
la déclaration de variable est faite dans explicit
je pensais que quand on affectait le set dans userform_initialise il était valable dans tout les modules de l'userform en question tant qu'il n'était pas "décharger"
Jusqu'à le double clic sur le listbox, ça fonctionnait bien, je n'avais pas besoin rappeler le set

autre chose, si je place le set ici

Set WsReleve_Compteur = Worksheets("Releve_compteur")
CheckBoxModif.Visible = True
CheckBoxModif.Value = True
TextBox36 = ListBox1.List(ListBox1.ListIndex, 0)
'récupère le numéro de ligne en fonction du code relevé
For Ligne = 2 To WsReleve_Compteur.Range("A65536").End(xlUp).Row

Cela ne fonctionne plus. Pourquoi?

 

[SPGoder]

c'est en n'écrivant mes questions que je viens de comprendre ma bêtise. "décharger", c'est exactement ce qui se passe avec un unload sur checkboxmodif
J'avais anticipé une idée, mais pas fini, et du coup ça amène le problème
Merci d'avoir pris le temps de me répondre
Bonne soirée

 

[sylvanu]

Lorsque vous exécuter votre programme du fichier post #1, vous pouvez tracer l'erreur.
En promenant votre curseur sur WsRelevéCompteur, un popup s'affiche pour vous dire que cet objet est non défini. En d'autres termes VBA ne le reconnait pas.

Sur ce, bonne soirée à vous aussi.