Importation Objets

Bonjour,

Je recherche une solution (si c'est possible) pour importer un objet situé sur Feuil2 vers une autre feuille (Feuil1) via une liste déroulante en A2.

L'objet en question pourra être repositionné via la souris.

En complément il devra être possible d'importer plusieurs objet à chaque sélection de la liste déroulante, je vous mets un fichier en PJ.

Merci

Cordialement

12sitac.xlsx (23.18 Ko)

bonjour

Excel peut afficher des objets (dessins) en fonction de liste déroulante, mais je ne crois pas qu'ils soient repositionnables ( ? )

en tout état de cause, il est tout aussi facile (et bien plus fiable) de faire "insérer objet" et de naviguer dans ton PC pour trouver l'objet

valable pour dessins et tout autre objet (Word, ERP, pdf...)

note : si tu dois faire ceci 10 fois par jour, songe à remplacer Excel par Access ou autre SGBD.

Bonjour, Salut jmd !

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nImg$, n%, L!, T!, img As Object
    If Target.Address = "$A$2" Then
        nImg = Target
        n = Me.Shapes.Count - 1
        With Me.Range("C5")
            L = .Left + (.Width / 7) * (n Mod 7) + .Width / 14
            T = .Top + (.Height / 6) * (n \ 7) + .Height / 12
        End With
        Application.ScreenUpdating = False
        [VEHIC].Worksheet.Shapes(nImg).Copy
        Set img = Me.Pictures.Paste(False)
        img.Left = L: img.Top = T
    End If
End Sub

A défaut d'informations précises, je me les suis précisé moi-même ! Donc, tes images vont s'aligner dans ta cellule colorée au fil de tes sélections en A2 : 7 par ligne. La cellule peut contenir 6 lignes, mais cela peut continuer au-delà, il n'y a pas de verrou.

Les mêmes peuvent être sélectionnées plusieurs fois, pas de verrou non plus sur ce point...

Cordialement.

Désolé de la réponse tardive, en stage, je vais essayer demain sur windows (actuellement sur Mac cela ne fonctionne pas)

Merci

Cordialement

Le fichier que j'ai retourné qui ne fonctionne pas ?

Merci de préciser.

Oui sur Mac j'ai un code erreur 424, mais sur Windows le fichier fonctionne parfaitement

Juste pour information, ce code sert pour la mise en forme de l'objet

Merci

With Me.Range("C5")

L = .Left + (.Width / 7) * (n Mod 7) + .Width / 14

T = .Top + (.Height / 6) * (n \ 7) + .Height / 12

Ce code sert à positionner l'objet dans la cellule. C'est le calcul de coordonnées de positionnement.

Sur MAC, il me sera difficile de régler ton problème, je ne connais (théoriquement) que quelques-uns des éléments qui ne sont pas utilisables sur MAC.

A tout hasard, sur quelle ligne survient cette erreur 424 ?

Cordialement.

Dés que je choisi un objet dans la liste déroulante,

Mais bon sur Windows tout fonctionne parfaitement

Merci

J'ai bien noté que ça fonctionnait sous Windows. Sous MAC, il y a souvent des problèmes avec des commandes fonctionnelles sous Windows.

La ligne sur laquelle l'erreur survient a son importance pour détecter une origine du problème. Il suffire parfois de l'écrire autrement pour que MAC finisse par accepter !

Cordialement.

Rechercher des sujets similaires à "importation objets"