XL 2019 Code VBA bug

TooFatBoy

XLDnaute Barbatruc

• 8 Janvier 2023

• #2

Bonjour,

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

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 8 Janvier 2023

• #3

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

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 8 Janvier 2023

• #4

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.

Cliquez pour agrandir...

Bonjour,
Ça bugge sur quelle ligne de code ?

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 8 Janvier 2023

• #5

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")

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 8 Janvier 2023

• #6

J'essaye une deuxième fois...

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

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 8 Janvier 2023

• #7

Il existe pour les 610 autres films

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 8 Janvier 2023

• #8

lynyrd à dit:

Il existe pour les 610 autres films

Cliquez pour agrandir...

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.


@+

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 8 Janvier 2023

• #9

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 8 Janvier 2023

• #10

lynyrd à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 8 Janvier 2023

• #11

lynyrd à dit:

For x = 0 To 13
Next x

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 8 Janvier 2023

• #12

Gégé-45550 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 8 Janvier 2023

• #13

lynyrd à dit:

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

Cliquez pour agrandir...

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)

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 8 Janvier 2023

• #14

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

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 8 Janvier 2023

• #15

lynyrd à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif