images et cellules

[oudjat]

voici mon probleme entre images et cellules

le fichier XLS en piece jointe est bien plus parlant si il est possible de me repondre a ce petit probleme ce serait gentil.

en vous remerciant d'avance

Oudjat

 

[michel]

bonsoir Oudjat

j'espere que l'exemple joint pourra t'aider

bonne soirée
michel

 

[Christian BERNIER]

Bonsoir Oudjat,

Facile le pb si j'ai bien compris la requête.

1 - Dans la cellule ou tu veux voir apparaîte l'image
- Clic droit pour "Insérr un commentaire"
2 - Supprimer tout le texte qui peut exister dans le cadre.
3 - Double clic sur la bordure du cadre
- Apparition menu contextuel
- Sélectionner onglet couleurs et traits.
4 - Partie remplissage :
- Sélectionner le champ Couleur
- Sélectionner motifs et texture
- Sélectionner Onglet Image
- Sélectionner et clic sur Image... dans le bas de la page
5 - Rechercher la photo voulue dans les répertoires.
6 - Sélectionner la photo recherchée
7 - OK dans la page motifs et textures
8 - OK dans la page format et commentaire

Et là apparaît une cellule marquée d'un triangle rouge. En promenant la soutis sur cette cellule la photo apparaît.
Pour modifier la taille de la photo dans Excel:
- Clic droit sur la cellule concernée
- Sélectionner sous-menu modifier le commentaire.

Voilà. J'espère que c'est ce que tu cherchais.

Tiens moir au courant. A bientôt.

 

[oudjat]

en effet ton aide m'est precieuse car elle fonctionne a merveille (et meme me permet t'entrevoir de nouvelle possibilité dont je je n'avais pas songé)


mais elle est fastidieuse et lourde a gerer pour mon besoin

j'ai depuis amelioré mon tableau d'une nouvelle colonne qui contient l'adresse de chaque photo

ex:


A1 ville de lyon A2 d:\ville\ville2lyon.jpg

je pensait le recuperer dans un userform image en each cell.select

mais cela ne fonctionne pas


Sub lirecode()
On Error Resume Next
For Each cell In Selection
celluletest = cell.Value
MsgBox celluletest
UserForm1.Picture = celluletest
Next cell
UserForm1.Show
End Sub


encore merci pour ton aide

oudjat

 

[oudjat]

je te remercie de ta reponse qui d'apres ton exemple a l'air de tres bien fonctionner mais dont je n'arrive pas l'adapter a mon fichier

j'ai essayer avec et sans .jpg
et avec et sans l'adresse avant "D:\toto\..."

mais c'est bien ce que j'attendait

je buche dessus depuis plus d'une heure pour l'adapter mais c'est pas evidant

je te remercie de ton aide et je continue a chercher....



encore merci


OUDJAT

 

[michel]

bonsoir Oudjat , bonsoir Christian

Oudjat , en suvant le lien ci dessous tu trouveras une demo de Ti et Veriland qui traite du meme sujet
Lien supprimé

par contre je ne comprends plus ton histoire d'USF . tu n'en parlais pas dans ton premier message , ni dans ton fichier joint ... je ne comprends plus trop ce que tu souhaites obtenir ....

bonne soirée
michel