XL 2019 Code VBA bug

[lynyrd]

Bonjour le forum
Quelqu'un peut t'il me dire pourquoi dans le userform,ça bug sur le dernier titre que j'ai enregistré "BLACK ADAM" (en dernier de la liste)
Merci.

 

[TooFatBoy]

Bonjour,

Peut-être que le fichier (l'image) n'existe pas à cet endroit ?

 

[lynyrd]

Ce que je ne comprend pas c'est que pour les 610 autres films c'est ok.

 

[Gégé-45550]

Bonjour le forum
Quelqu'un peut t'il me dire pourquoi dans le userform,ça bug sur le dernier titre que j'ai enregistré "BLACK ADAM" (en dernier de la liste)
Merci.

Bonjour,
Ça bugge sur quelle ligne de code ?

 

[lynyrd]

For x = 0 To 13
Next x
Me.Image1.Picture = LoadPicture(Chemin & Me.ListBox1 & ".jpg")
Me.Image2.Picture = LoadPicture(Chemin1 & Me.ListBox1 & ".gif")
Me.Image3.Picture = LoadPicture(Chemin2 & Me.ListBox1 & ".jpg")
Me.Image4.Picture = LoadPicture(Chemin3 & Me.ListBox1 & ".jpg")
Me.Image5.Picture = LoadPicture(Chemin4 & Me.ListBox1 & ".jpg")
Me.WindowsMediaPlayer1.Url = (Chemin5 & Me.ListBox1 & ".mp4")

 

[TooFatBoy]

J'essaye une deuxième fois...

Que vaut Chemin & Me.ListBox1 & ".jpg" ?
Le chemin et le fichier existent-ils ?

 

[lynyrd]

Il existe pour les 610 autres films

 

[TooFatBoy]

Il existe pour les 610 autres films

Je crois qu'on s'en fout des 610 autres puisque ça fonctionne pour eux...

Mais bon, je ne vais pas te poser la question une troisième fois. Si tu ne veux pas y répondre, c'est ton droit, même si je ne comprends pas pourquoi un tel mystère.


@+

 

[lynyrd]

Alors pour le dernier film (black adam) pourquoi ça ne fonctionne pas puisque le chemin est bon.

 

[TooFatBoy]

Alors pour le dernier film (black adam) pourquoi ça ne fonctionne pas puisque le chemin est bon.

Ah, c'est bien, on a déjà la moitié de la réponse. On progresse.

 

[Gégé-45550]

For x = 0 To 13
Next x

Cette boucle est vide, que fait-elle en réalité ?

 

[TooFatBoy]

Cette boucle est vide, que fait-elle en réalité ?

Je crois qu'elle est vide aussi pour les 610 premiers films.

 

[Gégé-45550]

Alors pour le dernier film (black adam) pourquoi ça ne fonctionne pas puisque le chemin est bon.

Est-ce que TOUT est bon, le chemin, le contenu du ListBox, l'extension ? Sûr ? Vérifié et revérifié ? Il arrive qu'on soit aveuglé par ce qui devrait nous sauter aux yeux (je sais de quoi je parle)

 

[lynyrd]

Je ne connais rien en VBA
c'est un code que j'ai repiqué

 

[Gégé-45550]

Je ne connais rien en VBA
c'est un code que j'ai repiqué

Ça ressemble à une histoire de compteur ou de boucle qui s'arrête avant la fin