XL 2019 Code VBA bug

lynyrd · 8 Janvier 2023

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 · 8 Janvier 2023

Bonjour,

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

lynyrd · 8 Janvier 2023

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

Gégé-45550 · 8 Janvier 2023

lynyrd à dit:
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 · 8 Janvier 2023

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 · 8 Janvier 2023

J'essaye une deuxième fois...

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

lynyrd · 8 Janvier 2023

Il existe pour les 610 autres films

TooFatBoy · 8 Janvier 2023

lynyrd à dit:
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 · 8 Janvier 2023

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

TooFatBoy · 8 Janvier 2023

lynyrd à dit:
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 · 8 Janvier 2023

lynyrd à dit:
For x = 0 To 13
Next x

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

TooFatBoy · 8 Janvier 2023

Gégé-45550 à dit:
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 · 8 Janvier 2023

lynyrd à dit:
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 · 8 Janvier 2023

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

Gégé-45550 · 8 Janvier 2023

lynyrd à dit:
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

XL 2019 Code VBA bug

lynyrd

XLDnaute Impliqué

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

lynyrd

XLDnaute Impliqué

Gégé-45550

XLDnaute Accro

lynyrd

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

lynyrd

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

lynyrd

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Gégé-45550

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Gégé-45550

XLDnaute Accro

lynyrd

XLDnaute Impliqué

Gégé-45550

XLDnaute Accro

Discussions similaires