Bonjour,
Avec 2 fichiers, on peut faire les liaisons par exemple :
A1 du Classeur2 = F4 du Classeur1 en texte ça fonctionne.
Mais à la place du texte j'ai une image.
Donc est-il possible de faire la liaison avec une image ?
Merci de votre aide.
--
Cordialement
Guy
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Guy85
Ou alors, est-il possible de modifier ce code pour avoir l'image suivante avec une cellule de décalage ? Ci-joint : http://www.cijoint.fr/cjlink.php?file=cj201001/cijDZnCi8z.xls
Private Sub Worksheet_Change(ByVal Target As Range) Dim ResAdr As String If Target.Row <> 3 Then Exit Sub Application.EnableEvents = False image = Application.Index([A20:A29], Application.Match(Target, [A20:A29], 0), 1) If Target.Column = 10 Then For i = 5 To 37 On Error Resume Next Set Sh = ActiveSheet.Shapes(Cells(i, 10).Address(0, 0)) If Err.Number <> 0 Then Err.Clear ActiveSheet.Shapes.Range(image).Select Selection.Copy Cells(i, 10).Select ActiveSheet.Paste Selection.ShapeRange.Name = (Cells(i, 10).Address(0, 0)) On Error GoTo 0 Exit For End If Next i With ActiveSheet.Shapes(Cells(i, 10).Address(0, 0)) .Left = Cells(i, 10).Left .Top = Cells(i, 10).Top End With End If ..................... Application.EnableEvents = True End Sub Merci de votre aide Cordialement Guy
"Guy85" a écrit dans le message de news:
Bonjour, Avec 2 fichiers, on peut faire les liaisons par exemple : A1 du Classeur2 = F4 du Classeur1 en texte ça fonctionne. Mais à la place du texte j'ai une image. Donc est-il possible de faire la liaison avec une image ? Merci de votre aide. -- Cordialement Guy
Ou alors, est-il possible de modifier ce code pour avoir l'image suivante
avec une cellule de décalage ?
Ci-joint : http://www.cijoint.fr/cjlink.php?file=cj201001/cijDZnCi8z.xls
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ResAdr As String
If Target.Row <> 3 Then Exit Sub
Application.EnableEvents = False
image = Application.Index([A20:A29], Application.Match(Target, [A20:A29],
0), 1)
If Target.Column = 10 Then
For i = 5 To 37
On Error Resume Next
Set Sh = ActiveSheet.Shapes(Cells(i, 10).Address(0, 0))
If Err.Number <> 0 Then
Err.Clear
ActiveSheet.Shapes.Range(image).Select
Selection.Copy
Cells(i, 10).Select
ActiveSheet.Paste
Selection.ShapeRange.Name = (Cells(i, 10).Address(0, 0))
On Error GoTo 0
Exit For
End If
Next i
With ActiveSheet.Shapes(Cells(i, 10).Address(0, 0))
.Left = Cells(i, 10).Left
.Top = Cells(i, 10).Top
End With
End If
.....................
Application.EnableEvents = True
End Sub
Merci de votre aide
Cordialement
Guy
"Guy85" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de news:
eCEoZoEoKHA.5552@TK2MSFTNGP05.phx.gbl...
Bonjour,
Avec 2 fichiers, on peut faire les liaisons par exemple :
A1 du Classeur2 = F4 du Classeur1 en texte ça fonctionne.
Mais à la place du texte j'ai une image.
Donc est-il possible de faire la liaison avec une image ?
Merci de votre aide.
--
Cordialement
Guy
Ou alors, est-il possible de modifier ce code pour avoir l'image suivante avec une cellule de décalage ? Ci-joint : http://www.cijoint.fr/cjlink.php?file=cj201001/cijDZnCi8z.xls
Private Sub Worksheet_Change(ByVal Target As Range) Dim ResAdr As String If Target.Row <> 3 Then Exit Sub Application.EnableEvents = False image = Application.Index([A20:A29], Application.Match(Target, [A20:A29], 0), 1) If Target.Column = 10 Then For i = 5 To 37 On Error Resume Next Set Sh = ActiveSheet.Shapes(Cells(i, 10).Address(0, 0)) If Err.Number <> 0 Then Err.Clear ActiveSheet.Shapes.Range(image).Select Selection.Copy Cells(i, 10).Select ActiveSheet.Paste Selection.ShapeRange.Name = (Cells(i, 10).Address(0, 0)) On Error GoTo 0 Exit For End If Next i With ActiveSheet.Shapes(Cells(i, 10).Address(0, 0)) .Left = Cells(i, 10).Left .Top = Cells(i, 10).Top End With End If ..................... Application.EnableEvents = True End Sub Merci de votre aide Cordialement Guy
"Guy85" a écrit dans le message de news:
Bonjour, Avec 2 fichiers, on peut faire les liaisons par exemple : A1 du Classeur2 = F4 du Classeur1 en texte ça fonctionne. Mais à la place du texte j'ai une image. Donc est-il possible de faire la liaison avec une image ? Merci de votre aide. -- Cordialement Guy
FdeCourt
Salut,
Essayes en ajoutant Step 2 après le For i = 5 to 37 (sur la meme ligne, exemple : "For i = 5 To 37 Step 2")
Cordialement,
F.
Salut,
Essayes en ajoutant Step 2 après le For i = 5 to 37
(sur la meme ligne, exemple : "For i = 5 To 37 Step 2")