Discussion :

[Ultradoux]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[loufab]

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,

[Ultradoux]

Haha

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

[jurassic pork]

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