Importer image d'une cellule sur une cellule définie sur autre page

  • Initiateur de la discussion Initiateur de la discussion Youpsy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Youpsy

XLDnaute Junior
Bonjour à tous !

J'ai un petit soucis, je me suis fait un petit fichier pour créer des étiquettes personalisée
par rapport a une liste.

Le fichier fonctionne de la manière suivante, Quand vous cliquer sur le carré de la colonne A (page. Listing)
les textes qui sont dans les cellule B à E et les images G à L des cellules doivent s'importer dans le model d'étiquette..

Mon soucis c'est que mon code marche bien pour le texte mais pas pour les image.

Quelqu'un pourrai-il m'aider ?

Merci ! Bonne journée

Code:
Option Explicit




Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
    Cancel = True
    Target.HorizontalAlignment = xlCenter
    Target.VerticalAlignment = xlCenter
    Target.Font.Name = "Wingdings"
    Target.Font.Size = 16
    Target.Font.Bold = True
    Select Case Target.Value
        Case "o"
            Target.Value = "x"
            With Sheets("Etiquette installation")
                .Range("D10").Value = Range("B" & Target.Row).Value
                .Range("P10").Value = Range("C" & Target.Row).Value
                .Range("D14").Value = Range("D" & Target.Row).Value
                .Range("D18").Value = Range("E" & Target.Row).Value
                .Range("E26").Value = Range("G" & Target.Row).Value
                .Range("K26").Value = Range("H" & Target.Row).Value
                .Range("Q26").Value = Range("I" & Target.Row).Value
                .Range("E31").Value = Range("J" & Target.Row).Value
                .Range("K31").Value = Range("K" & Target.Row).Value
                .Range("Q31").Value = Range("K" & Target.Row).Value
       
            End With
        Case Else
            Target.Value = "o"
    End Select
End If
End Sub
 

Pièces jointes

Re : Importer image d'une cellule sur une cellule définie sur autre page

Bonjour Youpsy,

Voici un exemple de transfert d'image d'une feuille dans une autre à une position précise.

Je pense que cela peut t'aider?

Voici le code

Code:
Public Sub transfert()
    ActiveSheet.Shapes.Range(Array("Image 2")).Select
    Selection.Cut
    Sheets("Feuil2").Select
    Range("A1").Select
    ActiveSheet.Paste
    ActiveSheet.Shapes.Range(Array("Image 2")).Top = Sheets("Feuil2").Cells(8, 1).Top
    ActiveSheet.Shapes.Range(Array("Image 2")).Left = Sheets("Feuil2").Cells(8, 5).Left
End Sub


A+


René
 

Pièces jointes

Re : Importer image d'une cellule sur une cellule définie sur autre page

Bonjour.
Voci une solution à ta question qui pourra t'aider
Facile à faire évoluer en fonction de tes données
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
582
Réponses
3
Affichages
969
Retour