Afficher image selon résultat d'une cellule
Résolu/Fermé
david44
Messages postés
4
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
29 février 2008
-
28 févr. 2008 à 17:39
david44 Messages postés 4 Date d'inscription jeudi 28 février 2008 Statut Membre Dernière intervention 29 février 2008 - 29 févr. 2008 à 09:55
david44 Messages postés 4 Date d'inscription jeudi 28 février 2008 Statut Membre Dernière intervention 29 février 2008 - 29 févr. 2008 à 09:55
A voir également:
- Afficher image selon résultat d'une cellule
- Aller à la ligne dans une cellule excel - Guide
- Image iso - Guide
- Comment agrandir une image - Guide
- Verrouiller cellule excel - Guide
- Acronis true image - Télécharger - Sauvegarde
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
28 févr. 2008 à 19:29
28 févr. 2008 à 19:29
Erreur, désolé
david44
Messages postés
4
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
29 février 2008
29 févr. 2008 à 09:53
29 févr. 2008 à 09:53
Pour Info avec l'aide d'un gars super doué Nommé Maximin vlà un code que marche au poil :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' déclaration des variables
Dim objFeuille As Worksheet, objPict As Picture
Dim fichier As String
Dim positionX As String
Dim positionY As String
' définition des objets
Set objFeuille = ActiveSheet
' définition de la position et de l'image en fonction de la valeur
If Worksheets("Feuil2").Range("K6").Value < 0.5 Then
fichier = "C:\Documents and Settings\xxxx\Bureau\orage.bmp"
positionX = "L10"
positionY = "L10"
ElseIf Worksheets("Feuil2").Range("K6").Value >= 0.5 And Worksheets("Feuil2").Range("K6").Value < 0.7 Then
fichier = "C:\Documents and Settings\xxxx\Bureau\nuageux.bmp"
positionX = "L10"
positionY = "L10"
ElseIf Worksheets("Feuil2").Range("K6").Value >= 0.7 And Worksheets("Feuil2").Range("K6").Value < 0.9 Then
fichier = "C:\Documents and Settings\xxxxx\Bureau\couvert.bmp"
positionX = "L10"
positionY = "L10"
ElseIf Worksheets("Feuil2").Range("K6").Value >= 0.9 Then
fichier = "C:\Documents and Settings\xxxxx\Bureau\soleil.bmp"
positionX = "L10"
positionY = "L10"
End If
' positionnement de l'objet
Set objPict = objFeuille.Pictures.Insert(fichier)
With objPict
.Left = Range(positionX).Left
.Top = Range(positionY).Top
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' déclaration des variables
Dim objFeuille As Worksheet, objPict As Picture
Dim fichier As String
Dim positionX As String
Dim positionY As String
' définition des objets
Set objFeuille = ActiveSheet
' définition de la position et de l'image en fonction de la valeur
If Worksheets("Feuil2").Range("K6").Value < 0.5 Then
fichier = "C:\Documents and Settings\xxxx\Bureau\orage.bmp"
positionX = "L10"
positionY = "L10"
ElseIf Worksheets("Feuil2").Range("K6").Value >= 0.5 And Worksheets("Feuil2").Range("K6").Value < 0.7 Then
fichier = "C:\Documents and Settings\xxxx\Bureau\nuageux.bmp"
positionX = "L10"
positionY = "L10"
ElseIf Worksheets("Feuil2").Range("K6").Value >= 0.7 And Worksheets("Feuil2").Range("K6").Value < 0.9 Then
fichier = "C:\Documents and Settings\xxxxx\Bureau\couvert.bmp"
positionX = "L10"
positionY = "L10"
ElseIf Worksheets("Feuil2").Range("K6").Value >= 0.9 Then
fichier = "C:\Documents and Settings\xxxxx\Bureau\soleil.bmp"
positionX = "L10"
positionY = "L10"
End If
' positionnement de l'objet
Set objPict = objFeuille.Pictures.Insert(fichier)
With objPict
.Left = Range(positionX).Left
.Top = Range(positionY).Top
End With
End Sub
david44
Messages postés
4
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
29 février 2008
29 févr. 2008 à 09:54
29 févr. 2008 à 09:54
cf message précédent désolé J'ai oublié de cocher problème résolu !!
@+
@+
david44
Messages postés
4
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
29 février 2008
29 févr. 2008 à 09:55
29 févr. 2008 à 09:55
cf message précédent désolé J'ai oublié de cocher problème résolu !!
arf encore
@+
arf encore
@+