Boucle incompréhensible avec Application.Intersect

Bonjour à tous,

Je me permet de venir demander votre aide, car j'ai un morceau de programme de quelques lignes qui me donne du fil à retordre, et à avoir le nez dedans, je ne suis pas sur de trouver un jour la solution.

En fait, non par choix, mais par necessité matériel, je fais du Access avec Excel.
En effet, je dispose d'une Base de Données Excel, et je souhaite via une autre table, pouvoir fonctionner comme avec un formulaire, sans que ce soit un formulaire... Je sais, je fais simple...

Donc sur ce "pseudo formulaire", grâce à une scanette, j'entre une référence produit, et j'affiche ses propriétés venant de la base de données.
Je souhaite également pouvoir afficher une photo de la pièce, venant d'un dossier serveur.
Pour ça, j'ai codé une macro qui permet à chaque fois que la référence entrée change, de charger une nouvelle photo, qui écrase l'ancienne dans le contrôle image.

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub worksheet_change(ByVal Target As Range) 'Initialisation Dim KeyCells As Range Dim Ref As String 'Set des variables Set KeyCells = Range("A3") Ref = Range("C3") 'Test modification cellule If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then Range("A3").Value = Target.Value Image = "H:\data\" & Ref & ".jpg" 'Chargement image Image1.Picture = LoadPicture(Image) End If End Sub

---

Mon problème, est que automatiquement durant 280 cycles (avant d'utiliser un contrôle image, celà me superposait 280 fois la même photo), le programme tourne entre le début et Image1.Picture = LoadPicture(Image), sans vouloir aller au delà (j'ai testé en essayant de rajouter une instruction après, elle n'est pas prise en compte).

Quelqu'un aurait une piste de réponse?

En vous remerciant par avance.

salut.

pas bien compris tes explications.
néanmoins place ces 2 instructions respectivement avant le bloc If et à la fin de la procécedure.

Code:

---

1 2 3

Application.EnableEvents=False   Appication.EnableEvents=True

---

Malheureusement même avec, la boucle tourne toujours.
Dans la pratique, le plus embétant, c'est que celà me bloque excel le temps d'activité de la boucle...

le problème c'est que tu crées un évènement

Code:

---

Public Sub worksheet_change(ByVal Target As Range)

---

qui déclenche une action conditionnelle sur modification de la cellule A3.

Code:

---

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing

---

Cette action consiste à modifier A3,

Code:

---

Range("A3").Value = Target.Value

---

ce qui relance le même évènement. Ton évènement fait un appel récursif à lui-même.

En fait si j'ai compris ce que tu veux, et ta procédure, ta ligne

Code:

---

Range("A3").Value = Target.Value

---

ne sert à rien, tu peux la commenter et cela résous ton problème.

Enfin pour le test tu peux l'écrire comme ceci

Code:

---

If Not Application.Intersect(keycells, Target) Is Nothing Then

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub worksheet_change(ByVal Target As Range) 'Initialisation Dim KeyCells As Range Dim Ref As String 'Set des variables Set KeyCells = Range("A3") Ref = Range("C3") 'Test modification cellule If Not Application.Intersect(KeyCells, Target) Is Nothing Then 'Range("A3").Value = Target.Value Image = "H:\data\" & Ref & ".jpg" 'Chargement image Image1.Picture = LoadPicture(Image) End If End Sub

---

Ohhhhhhhh merci!

Je me disais que j'avais fait une boulette grosse comme...
Mais comme c'est un bout de code que j'ai repris d'une autre utilisation que j'en ai faite, et qui ne m'avais pas posée problème, je ne n'ai même pas remis en question ce qu'il aurait fallu!
Encore merci, tu me sors du sable!

et pour tes 280 appels c'est la taille de la pile d'appel avant qu'Excel sature

ciao