j'ai une liste de personne en colonne A en B j'ai le pays et j'aimerai en C
avoir l'image du drapeau les drapeaux sont stoqués dans un répertoire
c:Imagesdrapeaux
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonsoir, Deux classeurs exemple, pour t'inspirer : http://www.excelabo.net/moteurs/compteclic.php?nom=av-listeimages http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour,
Je cherche a integrer dans une cellule une image.
j'ai une liste de personne en colonne A en B j'ai le pays et j'aimerai en C avoir l'image du drapeau les drapeaux sont stoqués dans un répertoire c:Imagesdrapeaux
merci d'avance Christian
Bonsoir,
Deux classeurs exemple, pour t'inspirer :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-listeimages
http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Christian" <christian.raoux@wanadoo.fr> a écrit dans le message de
news:XnF9B18E9D13B2D6rchristian13@212.27.60.38...
Bonjour,
Je cherche a integrer dans une cellule une image.
j'ai une liste de personne en colonne A en B j'ai le pays et j'aimerai en
C
avoir l'image du drapeau les drapeaux sont stoqués dans un répertoire
c:Imagesdrapeaux
Bonsoir, Deux classeurs exemple, pour t'inspirer : http://www.excelabo.net/moteurs/compteclic.php?nom=av-listeimages http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a écrit dans le message de news:
Bonjour,
Je cherche a integrer dans une cellule une image.
j'ai une liste de personne en colonne A en B j'ai le pays et j'aimerai en C avoir l'image du drapeau les drapeaux sont stoqués dans un répertoire c:Imagesdrapeaux
From: "Philippe.R" <AS_rauphil_chez_wanadoo.fr> Newsgroups: microsoft.public.fr.excel X-Newsreader: Microsoft Windows Mail 6.0.6000.16480
Bonsoir, Deux classeurs exemple, pour t'inspirer : http://www.excelabo.net/moteurs/compteclic.php?nom=av-listeimages http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a ‚crit dans le message de news:
Bonjour,
Je cherche a integrer dans une cellule une image.
j'ai une liste de personne en colonne A en B j'ai le pays et j'aimerai en C avoir l'image du drapeau les drapeaux sont stoqu‚s dans un r‚pertoire c:Imagesdrapeaux
From: "Philippe.R" <AS_rauphil_chez_wanadoo.fr>
Newsgroups: microsoft.public.fr.excel
X-Newsreader: Microsoft Windows Mail 6.0.6000.16480
Bonsoir,
Deux classeurs exemple, pour t'inspirer :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-listeimages
http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Christian" <christian.raoux@wanadoo.fr> a ‚crit dans le message de
news:XnF9B18E9D13B2D6rchristian13@212.27.60.38...
Bonjour,
Je cherche a integrer dans une cellule une image.
j'ai une liste de personne en colonne A en B j'ai le pays et
j'aimerai en C
avoir l'image du drapeau les drapeaux sont stoqu‚s dans un r‚pertoire
c:Imagesdrapeaux
From: "Philippe.R" <AS_rauphil_chez_wanadoo.fr> Newsgroups: microsoft.public.fr.excel X-Newsreader: Microsoft Windows Mail 6.0.6000.16480
Bonsoir, Deux classeurs exemple, pour t'inspirer : http://www.excelabo.net/moteurs/compteclic.php?nom=av-listeimages http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a ‚crit dans le message de news:
Bonjour,
Je cherche a integrer dans une cellule une image.
j'ai une liste de personne en colonne A en B j'ai le pays et j'aimerai en C avoir l'image du drapeau les drapeaux sont stoqu‚s dans un r‚pertoire c:Imagesdrapeaux
merci d'avance Christian
Christian
Bonsoir,
dans le classeur Av-listeimages, Feuille "Résultats"
Dans procédure suivante qui me semble interéssante n'est valable que pour une seule ligne,colonne.
dans ma feuille "inscription" j'ai dans une colonne E : nation chaque cellule de la colonne à une validation de données , les données sont une feuille "images" où en colonne A j'ai les drapeaux des nations et en colonne B le nom des nations. je voudrai que dans la feuille "Inscription" colonne F apparaise le drapeau en fonction de la nation choisie dans la liste de la colonne E.
Merci
Private Sub Worksheet_Change(ByVal Target As Range) 'AV If Target.Address = "$A$3" Then 'Efface image précédente On Error Resume Next Application.ScreenUpdating = False For Each DwO In ActiveSheet.DrawingObjects: If Not Intersect([A1], _ DwO.BottomRightCell) Is Nothing Then DwO.Delete ' Replace:úlse Next DwO 'Copie image Lg = Sheets("Images").Range("NomsImages").Find(Target.Text).Row Sheets("Images").Range("LesImages").Item(Lg - 1).Copy [A1] End If ' Avec image liée If Target.Address = "$H$2" Then Dim Adr As Range Set Adr = Sheets("Images").[B:B].Find(What:=Target.Value).Offset(0, -1) x = "Images!" & Adr.Address(0, 0) With Sheets("Résultats") .Shapes("ImageLiée").Select Selection.Formula = x End With [H2].Select End If End Sub
From: "Philippe.R" <AS_rauphil_chez_wanadoo.fr> Newsgroups: microsoft.public.fr.excel X-Newsreader: Microsoft Windows Mail 6.0.6000.16480
Bonsoir, Deux classeurs exemple, pour t'inspirer : http://www.excelabo.net/moteurs/compteclic.php?nom=av-listeimages http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a ‚crit dans le message de news:
Bonjour,
Je cherche a integrer dans une cellule une image.
j'ai une liste de personne en colonne A en B j'ai le pays et j'aimerai en C avoir l'image du drapeau les drapeaux sont stoqu‚s dans un r‚pertoire c:Imagesdrapeaux
merci d'avance Christian
Bonsoir,
dans le classeur Av-listeimages, Feuille "Résultats"
Dans procédure suivante qui me semble interéssante n'est valable que pour
une seule ligne,colonne.
dans ma feuille "inscription" j'ai dans une colonne E : nation chaque
cellule de la colonne à une validation de données , les données sont une
feuille "images" où en colonne A j'ai les drapeaux des nations et en
colonne B le nom des nations.
je voudrai que dans la feuille "Inscription" colonne F apparaise le drapeau
en fonction de la nation choisie dans la liste de la colonne E.
Merci
Private Sub Worksheet_Change(ByVal Target As Range) 'AV
If Target.Address = "$A$3" Then
'Efface image précédente
On Error Resume Next
Application.ScreenUpdating = False
For Each DwO In ActiveSheet.DrawingObjects: If Not Intersect([A1], _
DwO.BottomRightCell) Is Nothing Then DwO.Delete ' Replace:úlse
Next DwO
'Copie image
Lg = Sheets("Images").Range("NomsImages").Find(Target.Text).Row
Sheets("Images").Range("LesImages").Item(Lg - 1).Copy [A1]
End If
' Avec image liée
If Target.Address = "$H$2" Then
Dim Adr As Range
Set Adr = Sheets("Images").[B:B].Find(What:=Target.Value).Offset(0, -1)
x = "Images!" & Adr.Address(0, 0)
With Sheets("Résultats")
.Shapes("ImageLiée").Select
Selection.Formula = x
End With
[H2].Select
End If
End Sub
From: "Philippe.R" <AS_rauphil_chez_wanadoo.fr>
Newsgroups: microsoft.public.fr.excel
X-Newsreader: Microsoft Windows Mail 6.0.6000.16480
Bonsoir,
Deux classeurs exemple, pour t'inspirer :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-listeimages
http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Christian" <christian.raoux@wanadoo.fr> a ‚crit dans le message de
news:XnF9B18E9D13B2D6rchristian13@212.27.60.38...
Bonjour,
Je cherche a integrer dans une cellule une image.
j'ai une liste de personne en colonne A en B j'ai le pays et
j'aimerai en C
avoir l'image du drapeau les drapeaux sont stoqu‚s dans un r‚pertoire
c:Imagesdrapeaux
dans le classeur Av-listeimages, Feuille "Résultats"
Dans procédure suivante qui me semble interéssante n'est valable que pour une seule ligne,colonne.
dans ma feuille "inscription" j'ai dans une colonne E : nation chaque cellule de la colonne à une validation de données , les données sont une feuille "images" où en colonne A j'ai les drapeaux des nations et en colonne B le nom des nations. je voudrai que dans la feuille "Inscription" colonne F apparaise le drapeau en fonction de la nation choisie dans la liste de la colonne E.
Merci
Private Sub Worksheet_Change(ByVal Target As Range) 'AV If Target.Address = "$A$3" Then 'Efface image précédente On Error Resume Next Application.ScreenUpdating = False For Each DwO In ActiveSheet.DrawingObjects: If Not Intersect([A1], _ DwO.BottomRightCell) Is Nothing Then DwO.Delete ' Replace:úlse Next DwO 'Copie image Lg = Sheets("Images").Range("NomsImages").Find(Target.Text).Row Sheets("Images").Range("LesImages").Item(Lg - 1).Copy [A1] End If ' Avec image liée If Target.Address = "$H$2" Then Dim Adr As Range Set Adr = Sheets("Images").[B:B].Find(What:=Target.Value).Offset(0, -1) x = "Images!" & Adr.Address(0, 0) With Sheets("Résultats") .Shapes("ImageLiée").Select Selection.Formula = x End With [H2].Select End If End Sub
From: "Philippe.R" <AS_rauphil_chez_wanadoo.fr> Newsgroups: microsoft.public.fr.excel X-Newsreader: Microsoft Windows Mail 6.0.6000.16480
Bonsoir, Deux classeurs exemple, pour t'inspirer : http://www.excelabo.net/moteurs/compteclic.php?nom=av-listeimages http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Christian" a ‚crit dans le message de news:
Bonjour,
Je cherche a integrer dans une cellule une image.
j'ai une liste de personne en colonne A en B j'ai le pays et j'aimerai en C avoir l'image du drapeau les drapeaux sont stoqu‚s dans un r‚pertoire c:Imagesdrapeaux