Userforme, bouton de commande avec insertion d'images

Bonjour,

fichier d'essai en PJ, c'est un brouillon de travail

j'ai crée un Userform, bibliothèque d'images, rattaché à la cellule G9

Je voudrais que, quand je click sur un bouton de commande de Userform, ce soit l'image de ce bouton qui se place en G9

Est ce possible?

merci pour votre aide, Pascale

Bonjour,

Une possibilité...

Copie et collage image (avec suppression de l'image lors de la désélection). [Me suis pas trop cassé la tête ! ]

Cordialement.

Bonjour,

et merci MFerrand,

c'est tout à fait ce que je voulais faire mais, novice en vba, je partais dans quelque chose de trop compliqué

reste plus qu'à re transposer dans tableau initial...

merci pour votre aide, cordialement, Pascale

Re,

Outre le code dans le module du Userform, note la modification de ton code sur Feuil1, et la déclaration de variable sur Module1.

Cordialement.

Re bonjour MFerrand,

Si je peux me permettre de te solliciter à nouveau.....

en PJ, mon brouillon qui avance....

- j'ai crée une plage de cellule(G9 à G16) qui fonctionnent avec Userform1

par contre, bug sur G9 ???

- j'aimerais que les images sélectionnées restent affichées dans la cellule

ex : clic G11, feuille figure, choix figure 1, par ex, et figure 1 s'affiche et reste en G11

- j' ai également déplacé ma bibliothèque dans feuille "figures" et pas d'incidence sur Userform1!!!

j'ai pas mal "bidouillé" avant de m'en rendre compte....

je suis débutante en Vba, il faut vraiment que je me forme mieux!!!

merci pour votre aide, Pascale

Bonsoir,

La méthode consistant à les supprimer automatiquement visait surtout à éviter de les laisser s'empiler et être envahi à ne plus savoir qu'en faire...

Avec la même méthode d'insertion, sans les supprimer il faudra que tu les supprimes manuellement, ou les supprimer lors de l'insertion d'une nouvelle ?

Bonjour MFerrand,

je ne m'en sors pas... et j'aurais encore besoin d'aide :

dans le projet (en PJ),

j'aimerais que :

Feuil1, G9:G16, quand je clic (en G10, par ex), j'obtiens bibliothèque d'images (ça ne fonctionne pas pour G9 ?, mais pour G10:G16, oui))

je voudrais que, quand je clic sur une image de cette bibliothèque, cette image vienne se mettre dans la case sélectionnée dans la plage Feuil1, G9;G16 (dans mon ex, G10)

j'ai essayé des "bidouillages" sur bouton 1 et bouton 2 mais cela ne fonctionne pas

Pour l'effacement, à la fin, quand toutes les images seront affichées en G9:G16, j'effacerai manuellement, enfin, la macro du tableau final le fera (je sélectionnerai la plage G9:G16)

merci beaucoup pour ton aide, Pascale

Bonjour,

On revient à quelque chose de simple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("G9:G16")) Is Nothing Then
        If Target.Count = 1 Then
            With UserForm1
                .CelS = Target.Address(False, False)
                .Show
            End With
        End If
    End If
End Sub

La sélection d'une cellule de la plage prédéfinie entraîne le lancement du Userform, l'adresse de la cellule sélectionnée est passée à une variable publique du Userform.

Dispositif inchangé pour le Userform, l'action sur les boutons lance une procédure unique :

Sub ImgSélec(n As Integer)
    Dim img As Object, Nimg$
    Nimg = "_" & CelS
    Application.ScreenUpdating = False
    With Worksheets("Feuil1")
        On Error Resume Next
        .Shapes(Nimg).Delete
        On Error GoTo 0
        Worksheets("Figures").Range("C3:C16").Cells(n, 1).Copy
        Set img = .Pictures.Paste(True)
        img.Name = Nimg
        With .Range(CelS)
            img.Top = .Top
            img.Left = .Left + .Width / 5
        End With
    End With
    Unload Me
End Sub

Mais : un nom est constituée en utilisant l'adresse de cellule précédée par un underscore, qui servira à nommer l'image, on supprime une éventuellement image préexistante dans la cellule, on copie la figure, colle l'image, la nomme et la positionne.

Cordialement.