Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes
images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes
images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes
images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être a ussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être a ussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être a ussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonsoir,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#ChoixImageExterne
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAffiche
JB
On 5 oct, 20:21, j-marc wrote:
> Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
> télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
> toutes les photos de ces objets ,est-ce possible avec une formule quelle
> conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
> avec un bouton?), la photo apparaisse automatiquement.
>
> Merci de bien vouloir m'aider
Bonsoir,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#ChoixImageExterne
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAffiche
JB
On 5 oct, 20:21, j-marc <jm...@discussions.microsoft.com> wrote:
> Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
> télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
> toutes les photos de ces objets ,est-ce possible avec une formule quelle
> conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
> avec un bouton?), la photo apparaisse automatiquement.
>
> Merci de bien vouloir m'aider
Bonsoir,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#ChoixImageExterne
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAffiche
JB
On 5 oct, 20:21, j-marc wrote:
> Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
> télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
> toutes les photos de ces objets ,est-ce possible avec une formule quelle
> conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
> avec un bouton?), la photo apparaisse automatiquement.
>
> Merci de bien vouloir m'aider
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
renvoie du lien http://cjoint.com/?kglMojTKaD
"j-marc" wrote:
> Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
> télévision.,radio, téléphone, armoire, etc. J.ai dans le dossie r mes images
> toutes les photos de ces objets ,est-ce possible avec une formule quell e
> conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
> avec un bouton?), la photo apparaisse automatiquement.
> Merci de bien vouloir m'aider- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
renvoie du lien http://cjoint.com/?kglMojTKaD
"j-marc" wrote:
> Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
> télévision.,radio, téléphone, armoire, etc. J.ai dans le dossie r mes images
> toutes les photos de ces objets ,est-ce possible avec une formule quell e
> conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
> avec un bouton?), la photo apparaisse automatiquement.
> Merci de bien vouloir m'aider- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
renvoie du lien http://cjoint.com/?kglMojTKaD
"j-marc" wrote:
> Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
> télévision.,radio, téléphone, armoire, etc. J.ai dans le dossie r mes images
> toutes les photos de ces objets ,est-ce possible avec une formule quell e
> conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
> avec un bouton?), la photo apparaisse automatiquement.
> Merci de bien vouloir m'aider- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
toutes les photos de ces objets ,est-ce possible avec une formule quelle
conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
avec un bouton?), la photo apparaisse automatiquement.
Merci de bien vouloir m'aider
Bonjour J-Marc,
Si tu veux publier un fichier d'une version Excel 2007, tu
dois compresser ton fichier. Essaie d'ouvrir le fichier
que tu as publier et tu comprendras !
Le code dans le module feuille où l'action se déroule pourrait
ressembler à ceci : (tester dans Excel 2003)
'-------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sh As Shape, Rg As Range
Dim Chemin As String, Image As String
'où sont tes images sur le disque dur
Chemin = "C:UsersDMPictures"
'L'étendue de l'image où elle sera insérée dans la feuille
Set Rg = Range("C5:F8")
'Range("A1:A10")
'Plage où sont tes noms des images dans ta feuille
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'Suppression de l'image déjà présente dans C5:F8
For Each Sh In Shapes
If Not Intersect(Sh.TopLeftCell, Rg(1, 1)) Is Nothing Then
Sh.Delete
End If
Next
'Si la cellule n'est pas vide
If Target <> "" Then
'vérification de la présence de l'extension du fichier
If LCase(Right(Trim(Target), 4)) = "jpg" Then
Image = Chemin & Trim(Target)
Else
Image = Chemin & Trim(Target) & ".jpg"
End If
'vérification si l'image existe réellement
'sur ton disque dur dans le répertoire spécifié
If Dir(Image) <> "" Then
'Appel de la procédure d'insertion
InsérerImage Me.Name, Range("C5:G10"), Image
End If
End If
End If
Application.ScreenUpdating = True
End Sub
'-------------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
Dim Largeur As Double, Hauteur As Double
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = False 'or true
End With
End Sub
'-------------------------------------
"j-marc" a écrit dans le message de groupe de discussion
:
renvoie du lien http://cjoint.com/?kglMojTKaD
"j-marc" wrote:
> Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
> télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
> toutes les photos de ces objets ,est-ce possible avec une formule quelle
> conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
> avec un bouton?), la photo apparaisse automatiquement.
>
> Merci de bien vouloir m'aider
>
Bonjour J-Marc,
Si tu veux publier un fichier d'une version Excel 2007, tu
dois compresser ton fichier. Essaie d'ouvrir le fichier
que tu as publier et tu comprendras !
Le code dans le module feuille où l'action se déroule pourrait
ressembler à ceci : (tester dans Excel 2003)
'-------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sh As Shape, Rg As Range
Dim Chemin As String, Image As String
'où sont tes images sur le disque dur
Chemin = "C:UsersDMPictures"
'L'étendue de l'image où elle sera insérée dans la feuille
Set Rg = Range("C5:F8")
'Range("A1:A10")
'Plage où sont tes noms des images dans ta feuille
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'Suppression de l'image déjà présente dans C5:F8
For Each Sh In Shapes
If Not Intersect(Sh.TopLeftCell, Rg(1, 1)) Is Nothing Then
Sh.Delete
End If
Next
'Si la cellule n'est pas vide
If Target <> "" Then
'vérification de la présence de l'extension du fichier
If LCase(Right(Trim(Target), 4)) = "jpg" Then
Image = Chemin & Trim(Target)
Else
Image = Chemin & Trim(Target) & ".jpg"
End If
'vérification si l'image existe réellement
'sur ton disque dur dans le répertoire spécifié
If Dir(Image) <> "" Then
'Appel de la procédure d'insertion
InsérerImage Me.Name, Range("C5:G10"), Image
End If
End If
End If
Application.ScreenUpdating = True
End Sub
'-------------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
Dim Largeur As Double, Hauteur As Double
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = False 'or true
End With
End Sub
'-------------------------------------
"j-marc" <jmarc@discussions.microsoft.com> a écrit dans le message de groupe de discussion
: 7BA0B17B-F4A0-4F87-BA42-48A9CFE54E2D@microsoft.com...
renvoie du lien http://cjoint.com/?kglMojTKaD
"j-marc" wrote:
> Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
> télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
> toutes les photos de ces objets ,est-ce possible avec une formule quelle
> conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
> avec un bouton?), la photo apparaisse automatiquement.
>
> Merci de bien vouloir m'aider
>
Bonjour J-Marc,
Si tu veux publier un fichier d'une version Excel 2007, tu
dois compresser ton fichier. Essaie d'ouvrir le fichier
que tu as publier et tu comprendras !
Le code dans le module feuille où l'action se déroule pourrait
ressembler à ceci : (tester dans Excel 2003)
'-------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sh As Shape, Rg As Range
Dim Chemin As String, Image As String
'où sont tes images sur le disque dur
Chemin = "C:UsersDMPictures"
'L'étendue de l'image où elle sera insérée dans la feuille
Set Rg = Range("C5:F8")
'Range("A1:A10")
'Plage où sont tes noms des images dans ta feuille
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'Suppression de l'image déjà présente dans C5:F8
For Each Sh In Shapes
If Not Intersect(Sh.TopLeftCell, Rg(1, 1)) Is Nothing Then
Sh.Delete
End If
Next
'Si la cellule n'est pas vide
If Target <> "" Then
'vérification de la présence de l'extension du fichier
If LCase(Right(Trim(Target), 4)) = "jpg" Then
Image = Chemin & Trim(Target)
Else
Image = Chemin & Trim(Target) & ".jpg"
End If
'vérification si l'image existe réellement
'sur ton disque dur dans le répertoire spécifié
If Dir(Image) <> "" Then
'Appel de la procédure d'insertion
InsérerImage Me.Name, Range("C5:G10"), Image
End If
End If
End If
Application.ScreenUpdating = True
End Sub
'-------------------------------------
Sub InsérerImage(Feuille As String, Rg As Range, NomImage As String)
Dim Largeur As Double, Hauteur As Double
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = False 'or true
End With
End Sub
'-------------------------------------
"j-marc" a écrit dans le message de groupe de discussion
:
renvoie du lien http://cjoint.com/?kglMojTKaD
"j-marc" wrote:
> Bonjour j'ai une feuille de travail avec beaucoup d'objets ex:
> télévision.,radio, téléphone, armoire, etc. J.ai dans le dossier mes images
> toutes les photos de ces objets ,est-ce possible avec une formule quelle
> conque que quand je clic sur mots (ou dans la case a coté,peut être aussi
> avec un bouton?), la photo apparaisse automatiquement.
>
> Merci de bien vouloir m'aider
>