Faire suivre une photo

Bonsoir

J'ai un fichier 5 colonnes ,dans la première colonne il y une photo insérer par controle activeX , en faisant un tri j'aimerais savoir

comment procéder pour que la photo suive le classement

Merci pour votre aide

Bonsoir,

Il faut que l'image soit plus petite que la cellule où elle se trouve, me semble t il.

Mais pourquoi un ActiveX ?

@ bientôt

LouReeD

Bonjour LouReeD

Activ X pour l'insertion de la photo

Effectivement la photo doit être plus petite que la cellule

Merci pour l'info

Crdlt

Bonsoir,

merci de votre retour et bonne continuation dans votre projet !

Mais je ne comprend pas pas "l'ActiveX pour l'insertion de la photo"...

@ bientôt

LouReeD

bonjour Joco7915, salut LouReeD,

ce que moi, je ne comprends pas, c'est votre profil. Il y a des choses à expliquer ....

Bonjour BsAlv

Que faut il que j'explique dans mon profil?

Crdlt

re,

excusez-moi Joco7915, mais c'est le profil de LouReeD, mais apparament sur mon phone c'est son profil normal au lieu de

Bonjour,

voici un petit code pour insérer des image "en Shape" afin d'éviter les ActiveX :

Sub LouReeD()
    Image Range("B7"), ThisWorkbook.Path & "\LRD.png", "LouReeD"
End Sub
Sub Image(ByVal RgImage As Range, ByVal NomImage As String, N_Img As String)
    Dim Rg As Range, Image As Picture
    Set Rg = Feuil1.Range(RgImage.Address)
    With Rg
        Set Image = Feuil1.Pictures.Insert(NomImage)
    End With
    With Image
        .Name = N_Img
        .ShapeRange.LockAspectRatio = msoFalse
        .Width = Rg.Width - 6
        .Height = Rg.Height - 6
        .Left = Rg.Left + 3
        .Top = Rg.Top + 3
    End With
    Set Rg = Nothing
End Sub

Le fichier :

L'image qui devra se trouver dans le même dossier que le fichier Excel :

Pour ce qui est du profile je reprend une "vielle habitude" d'avoir un avatar saisonnier !

@ bientôt

LouReeD

Bonjour LouReeD, BsAlv

@LouReeD je prend bonne note de ton code

@BsaLv OK

Crdlt