Déplacer une image en VBA

Bonjour

Tu es gentil Martialus, mais je suis loin d'etre un expert (enfin si c'est de moi que tu parles)

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1").Value = "False" Then
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.IncrementLeft -117.75
Else
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.IncrementLeft 117.75

End If
End Sub

essaye ceci, pour ce code j'ai dessiné une image je l'ai placé en C5, j'ai lancé l'exécuteur de macro, j'ai déplacé l'image en A5 et j'ai regardé le code généré :

ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.IncrementLeft -117.75

tu parles d'un expert que je fais (loooooooool)

pour la cellule A1, ne sachant pas comment tu récupére ton booléan j'ai placé en dur "False", fais sauté les guillemets.

Salut
Hervé

C'est bien de toi que je parle Hervé !! ;-)

Merci beaucoup pour ta méthode qui marche très bien. En fait, si je voulais que l'image soit décalée vers la gauche, c'est pour qu'elle entre dans ma zone d'impression si la case A1 vaut True.

Comme je suis perfectionniste, j'ai fait quelque chose du genre :
Bool = ActiveSheet.Cells(1, 1)
If EstIMode = True Then
ActiveSheet.Shapes("Image1").Visible = True
Else
ActiveSheet.Shapes("Image1").Visible = False
End If
afin de plutôt afficher l'image si c'est True et carrément ne pas l'afficher si c'est False. Je te remercie quand même pour ta méthode, j'ai commencé à apprendre le VBE hier en début d'après-midi, et j'en connais déjà pas mal !!! Donc merci à toi, à Pascal76 (je crois que c'est ça), et à tous ceux qui font vivre ce site et qui donnent envie de continuer à apprendre dans ce sens.

Re : Déplacer une image en VBA

Salut,
Autre méthode pour la placer sans points mais avec le nom des cellules :


Attention, l'image garde sa forme, tu peux mettre une plage de cellules a la place d'une seule. cette méthode marche aussi avec les chartobjet et un peu tout ce qui peu ce placer.