[Icedarts]

Est-il possible de copier un petit tableau excel pour le mettre en commentaire dans une cellule d'un autre tableau xl?

[Eric 45]

Bonsoir à tous

BONSOIR Icedarts

Oui c'est possible

Au revoir

Eric

[Tibo]

Salut Eric, BONSOIR Icedarts,

Soyons sympa ce soir,

un début de réponse (ou le moyen d'en obtenir une) ici :

http://www.excel-downloads.com/forum...de-poster.html

Bonne soirée à tous

@+

[Icedarts]

Veuillez m'excuser,
bonsoir à tous et merci d'avance pour votre aide.
OK mais comment faire je n'y arrive pas???
Un exemple en fichier joint
le tableau en feuille 2 est à mettre en commetaire en feuille 1 case A2.

[tatiak]

Bonsoir à tous,
ci-joint une p'tit exemple de ce qu'il est possible de faire:
un clic sur le bouton intègre la plage E4:G6 dans le commentaire de la cellule B12.

[CB60]

Bonsoir

Voici un exemple j'ai mis en commentaire une partie du tableau et dans une autre cellule le graph.
Les indications pour le faire manuellement sont dans le fichier

[Icedarts]

Merci Tatiak il me semble que la plage est transformé en image puis inséré?
Si c'est ça j'avais trouvé la solution mais je dois passer par un copier coller dans paint pour ensuite l'insérer.
Y a-t-il une autre solution?

[Icedarts]

CB60 qui a répondu entre temps à la même solution je pense qu'il existe que cette dernière alors?

[tatiak]

Pour le fun, (mais pas pourIcedarts!!)
Une modif de ma proposition avec calcul de la taille de l'image crée.

Sub test()
    Call export_image_de_plage
    Call IntegrationCommentaire
End Sub

Sub export_image_de_plage()
Dim ndf As String
Dim Source As Range, Gr As Object
    ndf = ActiveWorkbook.Path & "\transit.jpg"
    Set Source = Range("Feuil2!A1:E6")
    Source.CopyPicture xlScreen, xlPicture
    Set Gr = Sheets(1).ChartObjects.Add(0, 0, Source.Width, Source.Height)
    Gr.Chart.Paste
    Gr.Chart.Export ndf, "JPG"
    Gr.Delete
    Set Gr = Nothing
    Set Source = Nothing
End Sub

Sub IntegrationCommentaire()
Dim image As String
    With Sheets("feuil1").Range("A2")
        .ClearComments
        image = ActiveWorkbook.Path & "\transit.jpg"
        .AddComment
        .Comment.Shape.Fill.UserPicture image
        .Comment.Shape.Height = Taille_image(image, "Hauteur")
        .Comment.Shape.Width = Taille_image(image, "Largeur")
        .Comment.Visible = False
    End With
End Sub

Function Taille_image(image As String, LH As String)
Dim Hauteur As Variant, Largeur As Variant
Dim i As Byte, a0 As Byte, a1 As Byte, a10 As Long
Dim Msg As String
    Open image For Binary As #5 Len = 1024
    Get #5, 1, a0
    Get #5, 2, a1
    If (a0 = 255 And a1 = 216) Then
        a10 = 3
        For i = 1 To 10
            Get #5, a10, a0
            Get #5, a10 + 1, a1
            If (a1 = 192 Or a1 = 193 Or a1 = 194 Or a1 = 195 Or a1 = 197 Or a1 = 198 Or _
              a1 = 199 Or a1 = 201 Or a1 = 202 Or a1 = 203 Or a1 = 205 Or a1 = 206 Or a1 = 207) Then
                Get #5, a10 + 5, a0
                Get #5, a10 + 6, a1
                Hauteur = 256& * a0 + a1
                Get #5, a10 + 7, a0
                Get #5, a10 + 8, a1
                Largeur = 256& * a0 + a1
                i = 20
            End If
            Get #5, a10 + 2, a0
            Get #5, a10 + 3, a1
            a10 = 2& + a10 + a0 * 256& + a1
        Next i
    Else
    End If
    Close #5
    If LH = "Hauteur" Then
        Taille_image = Hauteur
    Else
        Taille_image = Largeur
    End If
End Function

ici j'ai mis l'image est en JPG car je ne connais que le code entête du Jpg (FFD8)
(je suis preneur du code entête binaire du GIF si qqun sait!)

[Icedarts]

Alors personne n'a de solution rapide???
Je vous donne un exemple de ce que j'ai réellement.
Donc feuille 1 les équipes
feuille 2 les résultats par équipes à mettre en commentaire

Ou si quelqu'un à une idée pour que lorsqu'on selectionne une équipe en feuille 1 on soit renvoyer à ses résultats en feuille 2 je suis preneur car j'ai 1415 équipes...

Merci d'avance.

[Catrice]

Bonsoir,

Une solution à tester ...
voir fichier joint

[Icedarts]

Ben ça me semble parfait!!!
Merci bcp Catrice.