Code similaire mais l'un fonctionne, l'autre non..!

Bonjour !


Je viens de passer l'aprem à bloquer sur cette ligne de code.

En résumé, il y a un tableau avec une colonne produit, et une colonne référence. Je veux faire une recherche soit par le nom du produit soit par la référence.

Sélectionner un nom produit affiche automatiquement la référence dans l'autre combobox, et inversement.

Voici les deux codes :

Code:

---

1 2 3 4 5 6

Dim tbl As ListObject Dim colonneREF As ListColumn Dim plageREF As Range Set tbl = Sheets(i).ListObjects("Tableau" & i) Set colonneREF = tbl.ListColumns("Référence") Set plageREF = colonneREF.DataBodyRange

---

et :

Code:

---

1 2	Dim rechercheREF As Range Set rechercheREF = Sheets(i).Range("Tableau" & i).ListColumns("Référence").DataBodyRange

---

Pourriez-vous me dire pourquoi le premier fonctionne, alors que le 2eme me fait systématiquement planter l'application ?

Merci !!

Bonjour,

Instancier les objets ce n'est pas pour frimer ou pour jouer le puriste. ça sert vraiment à quelque chose. ;)

Quand on instancie un objet on prend soin de bien le libérer quand on ne s'en sert plus.

close pour les objets qui le permettent et set MonObjet = nothing dans tous les cas.

Ce n'est pas parce que VBA est censé le faire qu'il faut laisser des cochonneries en mémoire. ;)

Cordialement,

Haha :mouarf:

Merci pour les précisions, en tout cas le leçon est bien entrée..!

Hello,
quand il y a un problème , au lieu de nous dire qu'il y a un plantage de l'application, il serait préférable de nous dire ce qui se passe exemples: ligne en erreur dans le code, message d'erreur, excel qui se ferme.
A mon avis sur ton deuxième code tu as du avoir un message d'erreur car tu appliques un ListColumns à un Range alors qu'il est valable que pour un ListObject.

Ami calmant, J.P