Insertion auto.

[Ugo]

Salut à tous,

est-il possible dans excel d'insérer automatiquement une image en fonction de la valeur d'une cellule, si oui comment ?

Merci.

 

[@Christophe@]

Bonjour Ugo

Tous dépends de ce que tu veux obtenir, voici un petit exemple:

En vba, dans la feuille que tu veux:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value = 10 Then
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Christophe\Mes documents\Mes images\2.jpg").Select
End If
End Sub

Dans cette exemple si en A1 tu tapes 10 il chargera l'image désiré

Voila

J'espère t'avoir aidé.

Christophe

 

[Valérie]

Slt à tous et toutes

Avec un select case qui teste ta cellule tu INSERES l'image
ATTENTION Insérer ajoute à chaque fois...

Select case Range("A1")
Case "Hiver"
ActiveSheet.Pictures.Insert ("Hiver.bmp")
Case "Automne"
ActiveSheet.Pictures.Insert ("Automne.bmp")
Case "Printemps"
ActiveSheet.Pictures.Insert ("Printemps.bmp")
Case "Eté"
ActiveSheet.Pictures.Insert ("Ete.bmp")
Case Else
ActiveSheet.Pictures.Insert ("Saisons.bmp")
end Select

Bine sur tu remplace tout ce que tu as entre "" par tes valeurs

@+
Valérie