Macro déplacer image clipart

Bonjour à tous,

comment "déplacer" une image clipart par macro en fonction de la valeur d'une cellule?

je m'explique, l'utilisateur peut choisir deux mode: gauche ou droite

en fonction de son choix la macro (bouton go) masque les colonnes I:Q pour gauche et A:I pour droite. le problème est que sur la feuil concernée se trouve un autre bouton (start).

comment déplacer ce bouton en fonction du choix.

c'est à dire pour gauche le placer dans la colonne D et pour droite la colonne L.

j'espère avoir été clair dans mes explications

merci de votre aide

oza

Bonjour,

Il faut jouer avec les propriétés Left et Top de l'image :

Sub masquer()
If Range("F10") = "gauche" Then
    Worksheets("Feuil3").Select
    Columns("A:Q").EntireColumn.Hidden = True
    Columns("A:H").EntireColumn.Hidden = False
    With ActiveSheet.Shapes("Picture 2")
        .Left = Range("D12").Left 'L'image sera placée au même endroit que la bordure gauche de D12
        .Top = Range("D12").Top 'L'image sera placée au même endroit que la partie supérieure de la cellule D12
    End With
End If

If Range("F10") = "droite" Then
    Worksheets("Feuil3").Select
    Columns("A:Q").EntireColumn.Hidden = True
    Columns("H:Q").EntireColumn.Hidden = False
    With ActiveSheet.Shapes("Picture 2")
        .Left = Range("L12").Left
        .Top = Range("L12").Top
    End With
End If
End Sub

Pas sûr que la position de l'image corresponde à ce que tu souhaites, à toi de l'adapter.

à vue de nez cela fonctionne comme je le souhaitais, j'adapte et si je rencontre un problème je reviens vers vous...

merci beaucoup!