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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Octobre 2020

• #2

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.

 

Vote positif 0 Vote négatif

S

SPGoder

XLDnaute Occasionnel

• 19 Octobre 2020

• #3

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)

 

Vote positif 0 Vote négatif

S

SPGoder

XLDnaute Occasionnel

• 19 Octobre 2020

• #4

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Octobre 2020

• #5

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

Après, ça passe :

 

Vote positif 0 Vote négatif

S

SPGoder

XLDnaute Occasionnel

• 19 Octobre 2020

• #6

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?

 

Vote positif 0 Vote négatif

S

SPGoder

XLDnaute Occasionnel

• 19 Octobre 2020

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Octobre 2020

• #8

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. 🙂

 

Vote positif 0 Vote négatif