Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel image

image

2 réponses
Avatar
José
Bonsoir
Voilà le problème :
Dans la cellule A1 j'ai mis le nom d'une image.
Lorsque je fais un double clic sur la cellule A1 l'image se place dans la
cellule A1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\All Users\Documents\Mes
images\Échantillons d'images\" _
& ActiveCell & ".jpg").Select
End Sub

Seulement je voudrais qu'elle se place à côté c'est à dire sur B1.
Comment faire ?
Merci d'avance
José
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Philippe.R
Bonjour,
Sauf à trouver mieux, tu peux obtenir le résultat recherché en
double-cliquant dans la cellule voisine avec cette variante du code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Range, Cancel As Boolean)
ActiveSheet.Pictures.Insert( _
"C:Documents and SettingsAll UsersDocuments" _
& "Mes imagesÉchantillons d'images" _
& ActiveCell.Offset(0, -1).Value & ".jpg").Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"José" a écrit dans le message de
news:4748b19b$0$28867$
Bonsoir
Voilà le problème :
Dans la cellule A1 j'ai mis le nom d'une image.
Lorsque je fais un double clic sur la cellule A1 l'image se place dans la
cellule A1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
ActiveSheet.Pictures.Insert( _
"C:Documents and SettingsAll UsersDocumentsMes
imagesÉchantillons d'images" _
& ActiveCell & ".jpg").Select
End Sub

Seulement je voudrais qu'elle se place à côté c'est à dire sur B1.
Comment faire ?
Merci d'avance
José




Avatar
Philippe.R
Mieux :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Range, Cancel As Boolean)
ActiveSheet.Pictures.Insert( _
"C:Documents and SettingsAll UsersDocuments" _
& "Mes imagesÉchantillons d'images" _
& ActiveCell & ".jpg").Select
Selection.ShapeRange.IncrementLeft ActiveCell.Width
End Sub

En continuant à double-cliquer dans la cellule qui contient le nom de
l'image
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonjour,
Sauf à trouver mieux, tu peux obtenir le résultat recherché en
double-cliquant dans la cellule voisine avec cette variante du code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Range, Cancel As Boolean)
ActiveSheet.Pictures.Insert( _
"C:Documents and SettingsAll UsersDocuments" _
& "Mes imagesÉchantillons d'images" _
& ActiveCell.Offset(0, -1).Value & ".jpg").Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"José" a écrit dans le message de
news:4748b19b$0$28867$
Bonsoir
Voilà le problème :
Dans la cellule A1 j'ai mis le nom d'une image.
Lorsque je fais un double clic sur la cellule A1 l'image se place dans la
cellule A1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
ActiveSheet.Pictures.Insert( _
"C:Documents and SettingsAll UsersDocumentsMes
imagesÉchantillons d'images" _
& ActiveCell & ".jpg").Select
End Sub

Seulement je voudrais qu'elle se place à côté c'est à dire sur B1.
Comment faire ?
Merci d'avance
José