image

Le
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 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é
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #5394191
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é" 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é




Philippe.R
Le #5394181
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" 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é" 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é







Publicité
Poster une réponse
Anonyme