XL 2016 cliquer sur une icône pour l'insérer dans un tableau

[halecs93]

Bonjour à toutes et à tous,

Je travaille actuellement sur la mise en place d'un outil d'inventaire du matériel.

Comme illustré sur l'image, serait-il possible d'afficher une icône dans le tableau structuré en cliquant dessus depuis mon formulaire ?

Merci beaucoup.

 

[wDog66]

Bonjour halecs93

Ce doit être faisable, mais à mes yeux ce n'est vraiment pas une bonne idée 🤔
Lors du tri du tableau les images ne vont pas suivrent

Perso j'utiliserai une MFC avec icône qu'il est facile à gérer (ok c'est moins fun)

A+

 

[halecs93]

Bonjour halecs93

Ce doit être faisable, mais à mes yeux ce n'est vraiment pas une bonne idée 🤔
Lors du tri du tableau les images ne vont pas suivrent

Perso j'utiliserai une MFC avec icône qu'il est facile à gérer (ok c'est moins fun)
Regarde la pièce jointe 1214563
A+

merci... mais justement, je ne veux pas ce genre de MFC. En revanche, le tableau ne sera pas prévu pour utiliser filtre et tri 😉

 

[wDog66]

merci... mais justement, je ne veux pas ce genre de MFC. En revanche, le tableau ne sera pas prévu pour utiliser filtre et tri 😉

Ah bon, très très étonné 🤔 🤭
Mais je ne sais pas faire

 

[herve62]

Bonjour
J'ai déjà fait une appli de ce genre pour une asso de récup de chiens , sauf que mes icones étaient dans un répertoire et selon un choix une image s'insérait dans l'usf et au moment du transfert des données l'image s'insérait aussi dans une case précise
Là on peut faire idem en affectant d'abord le chemin de l'icone ( .png, .jpeg ...) avec l'événement Click , ex :
Private Sub Icon1_Click()
IconSelectedPath = "C:\Images\Icon1.png" ' Chemin de l'icône 1
End Sub

ensuite dans le code "Fermer"

Me.Hide
' Insérer l'image dans la feuille Excel
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Feuil1")
Dim ImageObject As Object

If IconSelectedPath <> "" Then
Set ImageObject = ws.Pictures.Insert(IconSelectedPath)
' Positionner l'image dans la cellule D4 par exemple
With ImageObject
.Left = ws.Cells(4,4).Left
.Top = ws.Cells(4, 4).Top
.Width = ws.Cells(4, 4).Width
.Height = ws.Cells(4, 4).Height
End With
End If
Voilà une piste à tester
Je n'ai pas le temps ce WE mais j'essaierai plus tard , espérant que tu as réussi

 

[patricktoulon]

Bonjour
et si tu mettais pas d'image ?
et que tu utilisais le J,K,L en font wingdings
même dans le userform d'ailleurs
dans le userform les boutons sont des labels avec J,K,L comme texte de caption et en font wingdings

terminé
et la on se posera plus la question si filtre ou pas filtre ou quoi qu'est ce

Private Sub Icon1_Click() 'tres content
    iconic 74 ' Chemin de l'icône 1
End Sub
Private Sub Icon2_Click() 'rien a fout
    iconic 75 ' Chemin de l'icône 1
End Sub
Private Sub Icon3_Click() 'pas content du tout
    iconic 76 ' Chemin de l'icône 1
End Sub


'Me.Hide
' Insérer l'image dans la feuille Excel
Sub iconic(ascci)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Feuil1")
    With ws.Cells(4, 4)
        .Value = Chr(ascci)
        Select Case ascci
            Case 74: .Font.Color = vbGreen
            Case 75: .Font.Color = vbYellow
            Case 76: .Font.Color = vbRed
        End Select
    End With

End Sub

terminé
Patrick

 

[halecs93]

Bonjour
et si tu mettais pas d'image ?
et que tu utilisais le J,K,L en font wingdings
même dans le userform d'ailleurs
dans le userform les boutons sont des labels avec J,K,L comme texte de caption et en font wingdings
Regarde la pièce jointe 1214571

terminé
et la on se posera plus la question si filtre ou pas filtre ou quoi qu'est ce

Private Sub Icon1_Click() 'tres content
    iconic 74 ' Chemin de l'icône 1
End Sub
Private Sub Icon2_Click() 'rien a fout
    iconic 75 ' Chemin de l'icône 1
End Sub
Private Sub Icon3_Click() 'pas content du tout
    iconic 76 ' Chemin de l'icône 1
End Sub


'Me.Hide
' Insérer l'image dans la feuille Excel
Sub iconic(ascci)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Feuil1")
    With ws.Cells(4, 4)
        .Value = Chr(ascci)
        Select Case ascci
            Case 74: .Font.Color = vbGreen
            Case 75: .Font.Color = vbYellow
            Case 76: .Font.Color = vbRed
        End Select
    End With

End Sub

terminé
Patrick

J'ai bien pensé à cela... mais non 😉... bon, en réalité, j'ai réussi à le faire. Du coup je poste la v3.... mais ce qui pose souci maintenant, c'est que lorsqu'une icone est sélectionnée, au moment de l'ajout, le formulaire se ferme (ce qui n'est pas le cas si aucun emoticone n'est sélectionné)....

 

[patricktoulon]

et en plus tu te sert de oleobject
pourquoi elle doivent être clicable dans la feuille ?
si c'est pas le cas c'est abusrde

 

[halecs93]

et en plus tu te sert de oleobject
pourquoi elle doivent être clicable dans la feuille ?
si c'est pas le cas c'est abusrde

Ha non... mais bricolage, bricolage

 

[patricktoulon]

Ha ben là c'est du bricolage
mais bon si ça te convient ma fois
en tout les cas a y regarder de plus pres
tu a 5 donnée a transférer sur ton tableau
le code ne devrait pas faire plus de 10 lignes

 

[halecs93]

Ha ben là c'est du bricolage
mais bon si ça te convient ma fois
en tout les cas a y regarder de plus pres
tu a 5 donnée a transférer sur ton tableau
le code ne devrait pas faire plus de 10 lignes

Merci.... mais je ne demande qu'à apprendre plus 😉... de façon plus sérieuse, vous pourriez "alléger" mon code ?

 

[halecs93]

Ha ben là c'est du bricolage
mais bon si ça te convient ma fois
en tout les cas a y regarder de plus pres
tu a 5 donnée a transférer sur ton tableau
le code ne devrait pas faire plus de 10 lignes

Encore un peu plus de bricolage...tout le monde ne peut avoir vos connaissances....