Afficher une image en fonction du resultat

Le 11/07/2013 à 20:03

Bonjour,

Suite au précédent message que j'avais déjà posté et en combinant le code que j'avais déjà créer je suis arriver a faire ce que je voulais c'est a dire afficher l'image en fonction des différent résultat mais maintenant que ça marche maintenant que ça marche en J18 j'aimerais aussi que cela fonctionne sur les autres cellules le problèmes c'est que ce n'est pas le cas.

Voici le code vba :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target <> Range("J18") Then Exit Sub

Select Case Target

Case "": Maison12.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Maison12.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Maison12.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Maison12.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Maison12.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Maison12.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Maison12.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Maison12.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Maison12.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image1.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Maison12.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Maison12.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Maison12.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Maison12.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Maison12.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Maison12.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Maison12.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Maison12.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Maison12.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Maison12.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Maison12.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Maison12.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Maison12.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Maison12.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("J20") Then Exit Sub

Select Case Target

Case "": Maison1.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Maison1.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Maison1.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Maison1.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Maison1.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Maison1.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Maison1.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Maison1.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Maison1.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image1.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Maison1.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Maison1.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Maison1.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Maison1.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Maison1.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Maison1.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Maison1.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Maison1.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Maison1.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Maison1.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Maison1.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Maison1.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Maison1.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Maison1.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("J22") Then Exit Sub

Select Case Target

Case "": Image1.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image1.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image1.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image1.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image1.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image1.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image1.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image1.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image1.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image1.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image1.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Image1.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Image1.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Image1.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image1.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image1.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image1.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image1.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image1.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image1.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image1.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image1.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image1.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image1.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("J24") Then Exit Sub

Select Case Target

Case "": Image2.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image2.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image2.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image2.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image2.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image2.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image2.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image2.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image2.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image2.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image2.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Image2.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Image2.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Image2.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image2.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image2.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image2.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image2.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image2.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image2.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image2.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image2.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image2.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image2.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("J26") Then Exit Sub

Select Case Target

Case "": Image3.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image3.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image3.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image3.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image3.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image3.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image3.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image3.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image3.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image3.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image3.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Image3.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Image3.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Image3.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image3.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image3.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image3.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image3.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image3.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image3.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image3.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image3.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image3.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image3.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("H20") Then Exit Sub

Select Case Target

Case "": Image4.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image4.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image4.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image4.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image4.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image4.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image4.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image4.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image4.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image4.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image4.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Image4.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Image4.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Image4.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image4.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image4.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image4.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image4.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image4.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image4.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image4.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image4.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image4.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image4.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("L20") Then Exit Sub

Select Case Target

Case "": Image5.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image5.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image5.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image5.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image5.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image5.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image5.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image5.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image5.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image5.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image5.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Image5.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Image5.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Image5.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image5.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image5.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image5.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image5.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image5.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image5.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image5.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image5.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image5.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image5.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("F22") Then Exit Sub

Select Case Target

Case "": Image6.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image6.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image6.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image6.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image6.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image6.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image6.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image6.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image6.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image6.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image6.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Image6.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Image6.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Image6.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image6.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image6.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image6.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image6.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image6.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image6.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image6.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image6.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image6.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image6.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("H22") Then Exit Sub

Select Case Target

Case "": Image7.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image7.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image7.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image7.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image7.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image7.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image7.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image7.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image7.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image7.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image7.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Image7.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Image7.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Image7.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image7.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image7.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image7.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image7.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image7.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image7.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image7.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image7.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("L22") Then Exit Sub

Select Case Target

Case "": Image8.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image8.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image8.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image8.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image8.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image8.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image8.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image8.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image8.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image8.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image8.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Image8.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Image8.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Image8.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image8.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image8.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image8.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image8.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image8.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image8.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image8.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image8.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image8.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image8.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("N22") Then Exit Sub

Select Case Target

Case "": Image9.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image9.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image9.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image9.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image9.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image9.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image9.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image9.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image9.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image9.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image9.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Image9.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Image9.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Image9.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image9.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image9.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image9.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image9.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image9.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image9.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image9.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image9.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image9.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image9.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("H24") Then Exit Sub

Select Case Target

Case "": Image10.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image10.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image10.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image10.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image10.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image10.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image10.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image10.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image10.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image10.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image10.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Imag10e.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Imag10e.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Imag10e.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image10.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image10.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image10.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image10.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image10.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image10.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image10.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image10.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image10.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image10.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

If Target <> Range("L24") Then Exit Sub

Select Case Target

Case "": Image11.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "0": Image11.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

Case "1": Image11.Picture = LoadPicture("D:\Images\Tarot\1.JPG")

Case "2": Image11.Picture = LoadPicture("D:\Images\Tarot\2.JPG")

Case "3": Image11.Picture = LoadPicture("D:\Images\Tarot\3.JPG")

Case "4": Image11.Picture = LoadPicture("D:\Images\Tarot\4.JPG")

Case "5": Image11.Picture = LoadPicture("D:\Images\Tarot\5.JPG")

Case "6": Image11.Picture = LoadPicture("D:\Images\Tarot\6.JPG")

Case "7": Image11.Picture = LoadPicture("D:\Images\Tarot\7.JPG")

Case "8": Image11.Picture = LoadPicture("D:\Images\Tarot\8.JPG")

Case "9": Image11.Picture = LoadPicture("D:\Images\Tarot\9.JPG")

Case "10": Image11.Picture = LoadPicture("D:\Images\Tarot\10.JPG")

Case "11": Image11.Picture = LoadPicture("D:\Images\Tarot\11.JPG")

Case "12": Image11.Picture = LoadPicture("D:\Images\Tarot\12.JPG")

Case "13": Image11.Picture = LoadPicture("D:\Images\Tarot\13.JPG")

Case "14": Image11.Picture = LoadPicture("D:\Images\Tarot\14.JPG")

Case "15": Image11.Picture = LoadPicture("D:\Images\Tarot\15.JPG")

Case "16": Image11.Picture = LoadPicture("D:\Images\Tarot\16.JPG")

Case "17": Image11.Picture = LoadPicture("D:\Images\Tarot\17.JPG")

Case "18": Image11.Picture = LoadPicture("D:\Images\Tarot\18.JPG")

Case "19": Image11.Picture = LoadPicture("D:\Images\Tarot\19.JPG")

Case "20": Image11.Picture = LoadPicture("D:\Images\Tarot\20.JPG")

Case "21": Image11.Picture = LoadPicture("D:\Images\Tarot\21.JPG")

Case "22": Image11.Picture = LoadPicture("D:\Images\Tarot\22.JPG")

End Select

End Sub

Et voici le fichier <link>

>

Le 11/07/2013 à 22:34

Bonsoir

A tester

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Chemin As String, Cible As String, MonImage As String, LesAdresses As String
Dim Obj As OLEObject
Dim Indice As Integer
Dim LesImages

  LesImages = Array("Maison12", "Maison1", "Image1", "Image2", "Image3", "Image4", _
                    "Image5", "Image6", "Image7", "Image8", "Image9", "Image10", "Image11")
  LesAdresses = "J18J20J22J24J26H20L20F22H22L22N22H24L24"

  Chemin = ThisWorkbook.Path & "\tarot\"
  If Not Intersect(Range("J18,J20,J22,J24,J26,H20,L20,F22,H22,L22,N22,H24,L24"), Target) Is Nothing And Target.Count = 1 Then
    Cible = Target.Address(rowabsolute:=False, columnabsolute:=False)
    Indice = InStr(1, LesAdresses, Cible)
    If Indice > 0 Then
      Indice = (Indice - 1) \ 3
      If Target > 0 And Target < 23 Then
        MonImage = Target & ".jpg"
      Else
        MonImage = "22.jpg"
      End If
      Set Obj = Me.OLEObjects(LesImages(Indice))
      Obj.Object.PictureSizeMode = fmPictureSizeModeZoom
      Obj.Object.Picture = LoadPicture(Chemin & MonImage)
    End If
  End If
End Sub
Le 11/07/2013 à 22:56

Bonsoir,

Merci encore pour votre aide BENZAI 64.

Tout se passe bien jusqu'à Obj.Object.Picture = LoadPicture(Chemin & MonImage) où j'ai un message d'erreur "erreur d'exécution'75: erreur d'accès chemin/fichier'".

Peut-être me suis-je tromper en changeant k'emplacement du dossier image dans le code, le voici !

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Chemin As String, Cible As String, MonImage As String, LesAdresses As String

Dim Obj As OLEObject

Dim Indice As Integer

Dim LesImages

LesImages = Array("Maison12", "Maison1", "Image1", "Image2", "Image3", "Image4", _

"Image5", "Image6", "Image7", "Image8", "Image9", "Image10", "Image11")

LesAdresses = "J18J20J22J24J26H20L20F22H22L22N22H24L24"

Chemin = ThisWorkbook.Path & "D:\Images\Tarot"

If Not Intersect(Range("J18,J20,J22,J24,J26,H20,L20,F22,H22,L22,N22,H24,L24"), Target) Is Nothing And Target.Count = 1 Then

Cible = Target.Address(rowabsolute:=False, columnabsolute:=False)

Indice = InStr(1, LesAdresses, Cible)

If Indice > 0 Then

Indice = (Indice - 1) \ 3

If Target > 0 And Target < 23 Then

MonImage = Target & ".jpg"

Else

MonImage = "22.jpg"

End If

Set Obj = Me.OLEObjects(LesImages(Indice))

Obj.Object.PictureSizeMode = fmPictureSizeModeZoom

Obj.Object.Picture = LoadPicture(Chemin & MonImage)

End If

End If

End Sub

Merci.

Le 11/07/2013 à 23:06

Bonsoir

Moi j'ai placé le répertoire des images dans le même répertoire du fichier

Il faut que tu modifies le chemin mais pas comme tu as fait

A la place de

Chemin = ThisWorkbook.Path & "D:\Images\Tarot"

Il faut

Chemin =  "D:\Images\Tarot\"

Attention au dernier anti-slash

Le 12/07/2013 à 19:52

Merci ça marche niquel.

Un dernier problème les photos ne ce mettent pas a jours automatiquement je dois faire entrer sur les 12 calculs il n'y aurais pas un moyen de le faire automatiquement ?

Le 12/07/2013 à 21:12

Bonsoir

Oui j'ai vu cela

Je voudrais savoir comment est utilisé ton programme

Tu viens sur cette feuille en dernier ?

Une fois sur cette feuille tu ne modifies plus rien et les résultats des formules ne changent pas ?

Si c'est le cas on peut essayer de passer par l'évènement activate

Remplaces la macro actuelle par celle-ci

Option Explicit

Private Sub Worksheet_Activate()
Dim Chemin As String, MonImage As String, LesAdresses As String
Dim Obj As OLEObject
Dim Indice As Integer
Dim LesImages
Dim Cible As Range

  Application.ScreenUpdating = False
  LesImages = Array("Maison12", "Maison1", "Image1", "Image2", "Image3", "Image4", _
                    "Image5", "Image6", "Image7", "Image8", "Image9", "Image10", "Image11")
  LesAdresses = "J18J20J22J24J26H20L20F22H22L22N22H24L24"

  Chemin = ThisWorkbook.Path & "\tarot\"
  For Indice = 0 To UBound(LesImages)
    Set Cible = Range(Mid(LesAdresses, 1 + (Indice * 3), 3))
    If Cible > 0 And Cible < 23 Then
      MonImage = Cible & ".jpg"
    Else
      MonImage = "22.jpg"
    End If
    Set Obj = Me.OLEObjects(LesImages(Indice))
    Obj.Object.PictureSizeMode = fmPictureSizeModeZoom
    Obj.Object.Picture = LoadPicture(Chemin & MonImage)
  Next Indice

End Sub

Pour quelle fonctionne : Tu quittes la page "Référentiel" puis tu y reviens

Rechercher des sujets similaires à "afficher image fonction resultat"