Fichiers .png et excel
Résolu/Fermé
Bonjour,
j'utilise excel de manière "basique". J'ai 4 fichiers avec l'extension .png représentant chacun les 4 couleurs du jeu de cartes (cour, carreau, pique, trèfle).
Comment associer ces fichiers à une cellule ?
Par exemple si j'ai le nombre "15" en cellule A1 et que dans la cellule A2 je tape "=A1", 15 figurera dans la cellule A2,
Avec l'image cela n'est pas possible..... Commenet pratiquer ?
Merci
j'utilise excel de manière "basique". J'ai 4 fichiers avec l'extension .png représentant chacun les 4 couleurs du jeu de cartes (cour, carreau, pique, trèfle).
Comment associer ces fichiers à une cellule ?
Par exemple si j'ai le nombre "15" en cellule A1 et que dans la cellule A2 je tape "=A1", 15 figurera dans la cellule A2,
Avec l'image cela n'est pas possible..... Commenet pratiquer ?
Merci
A voir également:
- Convertir png en excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Convertir youtube en mp3 avec audacity - Guide
- Mise en forme conditionnelle excel - Guide
- Si et excel - Guide
1 réponse
m@rina
Messages postés
21874
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
22 mars 2025
11 412
4 juil. 2008 à 01:21
4 juil. 2008 à 01:21
Bonjour,
Je ne vois pas comment associer une cellule à une image sans passer par du VBA.
On peut imaginer un contrôle Image (de la boîte à outils Contrôles) dont la propriété Picture changera selon le contenu de la cellule A1 par exemple, avec une macro comme celle ci :
Private Sub Worksheet_Change(ByVal maplage As Range)
If Not Intersect(Range("A1"), maplage) Is Nothing Then
If maplage = "carreau" Then
Image1.Picture = LoadPicture("C:\...\Mes documents\Mes images\carreau.png")
ElseIf maplage = "coeur" Then
Image1.Picture = LoadPicture("C:\...\Mes documents\Mes images\coeur.png")
ElseIf maplage = "pique" Then
Image1.Picture = LoadPicture("C:\...\Mes documents\Mes images\pique.png")
ElseIf maplage = "trèfle" Then
Image1.Picture = LoadPicture("C:\...\Mes documents\Mes images\trèfle.png")
End If
End If
End Sub
Je ne vois pas comment associer une cellule à une image sans passer par du VBA.
On peut imaginer un contrôle Image (de la boîte à outils Contrôles) dont la propriété Picture changera selon le contenu de la cellule A1 par exemple, avec une macro comme celle ci :
Private Sub Worksheet_Change(ByVal maplage As Range)
If Not Intersect(Range("A1"), maplage) Is Nothing Then
If maplage = "carreau" Then
Image1.Picture = LoadPicture("C:\...\Mes documents\Mes images\carreau.png")
ElseIf maplage = "coeur" Then
Image1.Picture = LoadPicture("C:\...\Mes documents\Mes images\coeur.png")
ElseIf maplage = "pique" Then
Image1.Picture = LoadPicture("C:\...\Mes documents\Mes images\pique.png")
ElseIf maplage = "trèfle" Then
Image1.Picture = LoadPicture("C:\...\Mes documents\Mes images\trèfle.png")
End If
End If
End Sub
4 juil. 2008 à 14:06