Discussion :

[pelerin98]

Bonjour,

J’ai chargé par la procédure ci-après dix objets-images dans dix cellules prédéfinies et je leur ai donné un nom :
du type : image_1 image_2 . . . image_10
Je souhaiterai intégrer dans cette procédure, l’affectation d’une macro (toujours la même).
Actuellement je le fais à la mimine après la procédure d’insertion car je ne sais pas coder cela.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
'   NomFich est défini précédemment
'   LigDest est défini précédemment
'   NomObjet est défini précédemment
'   Suffixe est défini précédemment    For n = 1 To 10
'
        ColDest = (n * 2) + 2
        Suffixe = n
        Worksheets(NomFich).Cells(LigDest, ColDest).CopyPicture
        If Application.Dialogs(xlDialogInsertPicture).Show Then
            Set Emplacement = Cells(LigDest, ColDest)
            Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
            With Img.ShapeRange
                .Name = NomObjet & "_" & Suffixe
                .LockAspectRatio = msoFalse
                .Left = Emplacement.Left
                .Top = Emplacement.Top
                .Height = Emplacement.Height
                .Width = Emplacement.Width
            End With
         Else
            MsgBox "Insertion d'image interrompue."
        End If
    Next
'

Cordiales salutations

[joe.levrai]

bonjour,

regarde la propriété OnAction de l'objet Shape

[pelerin98]

Merci joe.levrai; je regarde.

Pelerin98

[pelerin98]

J'ai regardé, puis ai trouvé cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(NomFich).Shapes("NomImage").OnAction = "CLIC_Image"

mais je n'arrive pas à écrire correctement le code ( où et comment ) dans ma boucle de chargement des images.
Quand je l'écris comme ci dessus ça plante.



Cordiales salutations

[joe.levrai]

entre la ligne 12 et 13 de ton code, essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Img.OnAction = "Nom de la macro"

[pelerin98]

Merci Joé.levrai,

ça fonctionne parfaitement (mais bien sûr, toi tu le savais) . . .

C'est formidable de pouvoir trouver des gens compétents, disponibles et sympathiques pour que les petits puissent grandir un peu !

pelerin98