Afficher une image quand on pointe une cellule
Bonjour,
Pour mon projet je voudrais savoir si il est possible d'afficher une image quand je pointe une cellule en fonction de sa valeur. C'est a dire attribuer une image à une valeur. De plus c'est une colonne que je renseignerai au fur et mesure dans le temps. Donc je pense qu'il s'agit d'une macro vba.
Si quelqu'un peut me dire si c'est possible.
Merci d'avance
Bonjour
Voudrais-tu envoyer un fichier?
Cordialement
Oui pas de soucis c'est en PJ.
En gros mon userform 2 permet d'ajouter une ligne avec des informations que je rentre dans les textboxs+ le nom du optionbutton en colonne C. Et j'aimerais que suivant l'optionbutton que je choisis il y a une image qui apparaît quand je pointe une cellule de la colonne C. Après au niveau des images je ne peux pas les transférer (secret professionnel
Bonjour,
J'ai reussi à trouver quelques chose je l'ai adapté pour moi et ça fonctionne pour l'instant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
répertoirePhoto = "Chemin d'accès" ' adapter
ech = 1
Target.ClearComments
nf = répertoirePhoto & Target & ".jpg"
If Dir(nf) <> "" Then
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Shape.Fill.UserPicture nf
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(répertoirePhoto)
Set myFile = myFolder.Items.Item(Target & ".jpg")
Taille = myFolder.GetDetailsOf(myFile, 26)
Target.Comment.Shape.Height = 135
Target.Comment.Shape.Width = 170
Target.Comment.Shape.ScaleHeight ech, msoFalse, msoScaleFromTopLeft
Target.Comment.Shape.ScaleWidth ech, msoFalse, msoScaleFromTopLeft
Target.Comment.Visible = False
End If
End If
End Sub