Avec fonction "RECHERCHE" inséré image

[marcelio]

Bonjour à tous,

Je reprends le fil de discussion que j’ai crée à la date du 15/05/09 sur l’insertion d’images pour liste de validation.
Pour continuer ce fichier je voudrais cette fois si insérée des images sur des cellules qui ont tous la fonction « RECHERCHE »
J’ai essayé avec le code du 1° fichier mais cela ne fonctionne pas.
Je vous joins un fichier pour plus d’explication.
Merci de votre aide

Marcelio

 

[job75]

Re : Avec fonction "RECHERCHE" inséré image

Bonjour marcelio,

Vous voulez parler de ce fil :

https://www.excel-downloads.com/threads/insertion-images.120308/

On va regarder ça.

A+

 

[marcelio]

Re : Avec fonction "RECHERCHE" inséré image

Oui Job c'est bien celui là

 

[job75]

Re : Avec fonction "RECHERCHE" inséré image

Re,

Je commence à regarder le fichier et là je bloque :

QUAND JE MODIFIE MES CHIFFRES EN COLONNE AA
ET QUE JE FAIT LE TRI

Qu'est-ce que vous voulez faire exactement, et pourquoi des fonctions RECHERCHEV ?

A+

 

[gwenlorin]

Re : Avec fonction "RECHERCHE" inséré image

Pour le tri en étendant la zone à trier de U à AA les images suivent les lignes.

Pour les reste effectivement quel est l'objectif ?

 

[marcelio]

Re : Avec fonction "RECHERCHE" inséré image

Dans mon fichier original le tri se fait automatiquement à chaque fois que je rentre des données
J’ai juste mis un bouton pour le tri dans mon fichier exemple pour que vous voyiez que la fonction recherche bouge.

Ce que je désire c’est que les images suivent le changement des noms automatiquement

J’espère avoir été plus clair et désolé de mettre mal expliqué

Marcelio

 

[job75]

Re : Avec fonction "RECHERCHE" inséré image

Re,

Par exemple en U30, la fonction RECHERCHEV renvoie toujours Z30, il me semble ? Pareil pour les autres cellules...

A+

 

[gwenlorin]

Re : Avec fonction "RECHERCHE" inséré image

pour moi le pb est sur le tri en lui-même
Avec une extension de la zone qui est triée comme ci-dessous, tout se passe bien

Sub tri()
    Range("U30:AA33").Select
    Selection.Sort Key1:=Range("AA30"), Order1:=xlDescending, Key2:=Range( _
        "Z30"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
End Sub

 

[job75]

Re : Avec fonction "RECHERCHE" inséré image

Re,

Bon, fini de plaisanter :

1) Supprimer les RECHERCHEV, qui ne servent à rien du tout :

- en U30 => =Z30

- en V30 => =AA30

Même chose en dessous...

2) Le code de la feuille modifié :

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim image As String
    Dim Sh As Shape
        
        If [U30] <> 0 Then
            image = ActiveWorkbook.Path & "\" & [U30] & ".jpg"
            Shapes("Rectangle 1").Fill.UserPicture image
        Else
            Shapes("Rectangle 1").Fill.Visible = msoFalse
        End If
    
        If [U31] <> 0 Then
            image = ActiveWorkbook.Path & "\" & [U31] & ".jpg"
            Shapes("Rectangle 2").Fill.UserPicture image
        Else
            Shapes("Rectangle 2").Fill.Visible = msoFalse
        End If
    
        If [U32] <> 0 Then
            image = ActiveWorkbook.Path & "\" & [U32] & ".jpg"
            Shapes("Rectangle 3").Fill.UserPicture image
        Else
            Shapes("Rectangle 3").Fill.Visible = msoFalse
        End If
    
        If [U33] <> 0 Then
            image = ActiveWorkbook.Path & "\" & [U33] & ".jpg"
            Shapes("Rectangle 4").Fill.UserPicture image
        Else
            Shapes("Rectangle 4").Fill.Visible = msoFalse
        End If
End Sub

A+

 

[marcelio]

Re : Avec fonction "RECHERCHE" inséré image

Merci Job cela fonctionne correctement je te remercie
Merci aussi à gwenlorin

Bonne soirée à vous et au forum

Marcelio

 

[job75]

Re : Avec fonction "RECHERCHE" inséré image

Re,

Pardon, j'ai fait un Edit de mon précédent post.

Dans les 4 tests If, il fallait remplacer "" par 0.

En effet les cellules en colonne U prennent la valeur 0 quand on efface celles de la colonne Z.

A+

 

[job75]

Re : Avec fonction "RECHERCHE" inséré image

Re,

@ gwenlorin,

Le tri d'ensemble que vous proposez fonctionne en effet si dans les proprités des Rectangles on a "Déplacer et dimensionner avec les cellules" (comme c'est le cas sur le fichier).

Mais ensuite les numéros des rectangles ne correspondent plus aux cellules, il faudra modifier la macro 😱

A+