VBA et image

Le
José
Bonjour à tous
Mon message apparaitra peut être plusieurs fois car depuis hier soir ce que
j'envoie ne semble pas arriver.


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.
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
LSteph
Le #5394091
Bonjour,
Utilise offset

au lieu de target
ou activecell
ou Cells(1,1)
ou [A1]
selon la proc utilisée

Activecell.offset(0,1)

le premier chiffre décale Vertical le second horizontal
dans l'autre sens -1

Cordialement

lSteph

Bonjour à tous
Mon message apparaitra peut être plusieurs fois car depuis hier soir ce que
j'envoie ne semble pas arriver.


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.
Seulement je voudrais qu'elle se place à côté c'est à dire sur B1.
Comment faire ?
Merci d'avance
José




Francois L
Le #5394041
Bonjour à tous
Mon message apparaitra peut être plusieurs fois car depuis hier soir ce que
j'envoie ne semble pas arriver.

Bonjour,


Si tu ne vois pas ton message précédent, c'est parce que du fait de
l'objet utilisé qui était "image", ta question se trouve dans un fil qui
existe déjà avec le même objet.

--
François L

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.
Seulement je voudrais qu'elle se place à côté c'est à dire sur B1.
Comment faire ?
Merci d'avance
José




Philippe.R
Le #5393951
Pour la 3ème fois donc :

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

--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"José" news:47494818$0$12967$
Bonjour à tous
Mon message apparaitra peut être plusieurs fois car depuis hier soir ce
que j'envoie ne semble pas arriver.


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.
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