Afficher plusieures images dans une feuille-V2

[Lone-wolf]

Bonjour à tous,

j'ai pris le code de HULK pour réaliser mon projet;
comme vous pourrez le constater, je pourrais faire le code plus court mais là, c'est une autre histoire.

Si quelqu'un veux bien me donner un coup de mains.

PJ: jeudesanimaux.zip 120ko

Les encadrés sont des listes déroulantes.

 

[smotty]

Re : Afficher plusieures images dans une feuille-V2

Bonjour Lone-xolf,

Malheureusement je viens d'avoir un coup de fil et je dois partir.

J'ai eu le temps de voir rapidement ton programme, donc juste qq rmq avant de partir

"target" ne correspond à rien dans ta procédure. Je te conseille de retirer le "on error resume next" et tu verras qu'Excel t'aiguillera sur tes erreurs.


Target est une variable utilisée dans des procédures évènementielles (worksheet_change par exemple) et donc correspond à la cellule modifiée.

Désolé de ne pas pouvoir t'aider plusque ça

A+

smotty

 

[Lone-wolf]

Re : Afficher plusieures images dans une feuille-V2

Bonsoir smotthy,

as-tu essaié de répondre aux questions et cliquer sur les boutons?

Le code fonctionne bien, pas d'erreurs.

Bien entendu, si j'enlève cette ligne, j'obtiens le message 'Objet requis'.

A+

 

[smotty]

Re : Afficher plusieures images dans une feuille-V2

Essaie ça

Sub AfficherImage(ByRef StrObjEcran As String, ByVal nom_image As String)
    Dim strImage As String
    Dim obj As Shape
    
    
    Set obj = Me.Shapes(StrObjEcran)
    strImage = ActiveWorkbook.Path & "\" & nom_image & ".jpg"
    
    S = Dir(strImage)
    
    If S = "" Then strImage = ActiveWorkbook.Path & "\Transparent.jpg"
    
    obj.Fill.UserPicture strImage
    
End Sub



Sub Afficher()
    Dim v As String
    Dim obj As Shape
    
    v = [C5]
    
    If v <> "" Then Call AfficherImage("Rectangle 1", v)
        
    v = [C11]
    
    If v <> "" Then Call AfficherImage("Rectangle 2", v)
    
    
End Sub

ça fonctionne bien

A+

 

[smotty]

Re : Afficher plusieures images dans une feuille-V2

Encore moi,

Excuse moi je t'ai envoyé le dernier mail juste avant de descendre du train...

Une idée pour faire une boucle qui ballaie toutes les cellules.

Comme elles sont espacée de 6 lignes à chaque fois (à revérifier)

Sub Afficher()
    Dim v As String
    Dim obj As Shape
    Dim i As Integer
    
    For i = 5 To 59 Step 6
        v = Cells(i, 3)
        
        If v <> "" Then 
              Call AfficherImage("Rectangle " & i - 4, v) 
        end if
        
    
    Next i
    
    
End Sub

Je n'ai pas testé mais ça devrait te donner des idées

en espérant t'avoir aidé

A+

smotty

 

[Lone-wolf]

Re : Afficher plusieures images dans une feuille-V2

salut smotthy,

tu peut m'envoyer le fichier? Chez moi j'ai des erreurs??? 😕

 

[Lone-wolf]

Re : Afficher plusieures images dans une feuille-V2

Arretez!! Stop!! Problème résolu! 😀