Extention sur le code

Bonjour a toutes et tous, forum bonjour,

Je souhaiterai svp ajouter une extention simple a ce code ci-joint afin d'afficher l'image du film correspondant choisi dans la liste de la colonne A

le code fonctionne bien juste apporter de quoi afficher l'affiche.

Merci a vous et de votre temps une bonne après midi a tous

Explication dans le fichier, merci

Raymond

Bonjour,

un petit exemple avec un controle Image, quand tu cliques sur un titre, l'affiche correspondante apparait dans le controle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A4:A" & [A1800].End(xlUp).Row)) Is Nothing Then
        ImgAffiche.Picture = LoadPicture("E:\Affiche\" & Target.Value & ".jpg")
    Else
        ImgAffiche.Picture = LoadPicture()
    End If
End Sub

Bonsoir a tous, forum

bonsoir Math

Merci pour ta réponse c'est gentil,

je ne peux pas te dire si ca marche, j'ai une erreur car j'ai dans mon programme principal ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

et de plus

 ImgAffiche.Picture 

n'ai pas dimensionner

on ne peut pas faire SVP une chtite macro a la place que j'appellerai juste avant l'appel du film

Voila Math merci et au plaisir de te relire

Raymond

Si c'est possible intègre à ta macro Worksheet_SelectionChange l'appel de l'image. Sinon avec des macros

- Avec l'objet range

Public Sub AfficheFilm(ByVal Target As Range)
    If Not Intersect(Target, Range("A4:A" & [A1800].End(xlUp).Row)) Is Nothing Then
        ImgAffiche.Picture = LoadPicture("E:\Affiche\" & Target.Value & ".jpg")
    Else
        ImgAffiche.Picture = LoadPicture()
    End If
End Sub

tu peux l'appeler depuis Worksheet_SelectionChange comme ceci

Call AfficheFilm(Target)

- Une autre solution, avec le nom du film

Public Sub AfficheFilm2(ByVal NomFilm As String)
    On Error GoTo Erreur

    ImgAffiche.Picture = LoadPicture("E:\Affiche\" & NomFilm & ".jpg")
    Exit Sub

Erreur:
    ImgAffiche.Picture = LoadPicture()
End Sub

tu peux l'appeler comme ceci

Call AfficheFilm(NomDuFilm)

ex: Call AfficheFilm(Target.Value)

Pour la dimension, va dans les propriétés du controle et met la propriété Autosize à true.

bien le bonsoir a tous, bonsoir forum

bonsoir Math

Merci pour ces propositions je vais voir ca demain

le soir pas pour moi, j'ai les neurones qui se touchent pas bon

te tient au courant

Merci a toi

Bye Bye

Raymond

-- Ven Juin 11, 2010 2:16 pm --

Bonjour a toutes et tous, forum bonjour

Salut Math

j'y suis presque mais il me manque encore deux petites réponses si vous le voulez bien

(1) Dans le code ci-dessous, je souhaiterai SVP transformer Bandits.avi PAR >>> Image = Bandits.jpg je n'arrive pas a le faire, j'ai essayer left - right pas réussi.

(2) Pas réussi non plus a déplacer le controle, a vrai dire je comprends pas bien comment ca marche, je voudrai bien le placer a l'endroit de mon choix.

Mais en manipulant des que je saurai comment y faire accès, je vais chercher.

Public Sub AfficheFilm(ByVal Target As Range)

If Not Intersect(Target, Range("A4:A" & [A1800].End(xlUp).Row)) Is Nothing Then

MsgBox Target.Value '*** La réponse est par exemple "Bandits.avi"

 '*** je souhaiterai SVP transformer Bandits.avi PAR >>>   Image = Bandits.jpg je n'arrive pas a le faire
 '*** le nom avant l'extention .avi sera variable 

  ImgAffiche.Picture = LoadPicture("E:\Affiche\" & Target.Value)

    Else
        ImgAffiche.Picture = LoadPicture()
    End If
End Sub

Merci a vous et de votre aide, bonne après midi a tous

Raymond

Bonjour a toutes et tous, forum bonjour

modification de ma dernière réponse

Pour le controle c'est bon j'ai trouver comment on fait pour agrandir et déplacer.

Svp, comment faire un code pour obtenir la modification de l'extention de .avi >>> en .jpg

>>> Si Target.Value = (Avatar.avi) alors Target.Value = (Avatar.jpg)

Merci a tous de votre temps et bon W-end

Raymond