Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

VBA et image

3 réponses
Avatar
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é

3 réponses

Avatar
LSteph
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é




Avatar
Francois L
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é




Avatar
Philippe.R
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é" a écrit dans le message de
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é