Bonjour,    
 
  Je me suis fait un petit jeu sous Excel, dans un formulaire, qui est basé sur les images. Toutefois, dès qu' une image est importé d' un autre formulaire, le programme ne reconnait pas l' image importé. Voici une parti du code utilisé :  
 
 
On error goto 1
 
If Activecontrol.Picture = ImageShop.Label7.Picture Then
Label17 = "Cliquez sur une case pour crée votre unité"  'La condition ne s' effecute pas
Exit Sub
End If
 
1
 
MsgBox "Veuillez saisir un centre-ville"
 
Voyez vous une erreur ? Y a t il des conditions spécifique liée à l' image sur un formulaire ?
 
Merci      

Salut,  
 
Si mon sujet et un peu trop vague, dite le, j' essayerai de me faire mieux comprendre...

Bonsoir,
Teste ce code :

cordialement
Epéna

Bonjour,  
 
Merci Epéna, mais ça ne marche toujour pas. Cepedant, si tu à d' autre suggestion...Je suis un peu à cour d' idée.
 
Merci

J'y connais rien en insertion d'image dans les formulaires, mais ne devrais-tu pas préciser de quel formulaire il s'agit ?
 
Au lieu de

 
préciser :

?

Salut,  
 
Merci juju2K, mais dans ce cas, 'ImageShop' désigne déjà le nom du formulaire ou l' image doit être cherchée. Si tu vois autre chose...
 
Merci

Quelle est l'erreur renvoyée ?

Bonjour,  
 
Ben...Il n' y a pas d' erreur renvoyé. La condition refuse de se remplir même si la condition est réaliser (même si Activecontrol.Picture = ImageShop.Label7.Picture ).

pour dire qu'elle est égale essai d'utiliser equals()
 
Activecontrol.Picture.equals( ImageShop.Label7.Picture)

Bonjour,
 
Merci pour ta réponse, mais il ya une erreur. Je ne l' ai peut être pas préciser, mais je programme suis VBA. Sinon, j' ai essayé d' intégrer l' image au même fomulaire pour voir si la conditon s' effectuait..rien du tout. Je recopy colle au cas ou le code. Peut être trouveraon une solution.
 
On Error GoTo 1
If Not Label17.Caption = "Saisir un endroit pour unité d' attaque." Then
If ActiveControl.Picture = Label36.Picture Then  'L' image se trouve dorénavant dans Label36 à titre d' essaie
Label17.Caption = "Saisir un endroit pour unité d' attaque."
Exit Sub
End If
End If
 
If Label17.Caption = "Saisir un endroit pour unité d' attaque." Then
Label17.Caption = ""
Exit Sub
End If
 
Exit Sub
1
 
Merci
MsgBox "Veuillez saisir une caserne"

If ActiveControl.Picture = Label36.Picture Then  'L' image se trouve dorénavant dans Label36 à titre d' essaie  
 
 
l'image ne se trouve pas dans le label 36 ! la tu compare la valeur de limage active avec le contenu du label 36 ! enfin selon moi si je me trompe dites le moi lol

Salut,
 
J' avoue n' avoir pas bien compris ta réponse.
J' ai copié l' image dans Label36 (propiété picture) et la compare avec l' image du control actif. Ou est l' erreur ?

a qu'elle moment tu l'as copie ?

Bonjour,  
 
J' ai compris ce que tu voulais dire dans ton message. J' ai modifié quelque truc (J' ai mis un code dans ImageShop qui intégre l' image, non pas du Label7 d' ImageShop, mais du Label36 qui se trouve sur l' userform ou l' image doit être intégrée dans le control actif)...et ça marche. Merci Splinter_7 (ainsi q' au autre participant)

pas de quoi