Discussion :

[spico45]

Bonjour à tous,

je suis en train de faire un tableau de polyvalence pour mon atelier. J'ai créé 5 images qui correspondent chaqu'une à un niveau.

Mon objectif est que si la personne est novice, je tape 0 et l'image correspondant à novice s'affiche dans la cellule.

J'ai essayé pas mal de chose sans succès

Merci d'avance

[oOVaveOo]

Bonjour,
As tu essayé dans la procédure d'une worsheet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
'la tu indique que si une cellule appartenant à la colonne que tu souhaite
'prend la valeur entre 0 et 5, tu insére l'image correspondante 
 
End Sub

[DidierLoche]

Bonjour,

J'ai déjà réalisé ce genre de code.
Dans une feuille cachée (que j'appelerai "Données" dans l'exemple), tu stockes les images que tu nommes "Novice", "Débutant", "Confirmé" ... Sur cette même feuille, tu mets en A1 : "Novice", A2 : "Débutant", A3 : "Confirmé". Il est important que les mêmes noms soient utilisés entre le nom des images et la liste de la colonne A.

Dans une feuille (Feuille 1 dans mon exemple), tu places une zone de liste déroulante (ComboBox) qui tu initialises à l'ouverture de ton fichier Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_Open()
With Worksheets(1).ComboBox1
    .ListFillRange = "Données!A1:A3"
    .LinkedCell = "Données!B1" ' pas nécessaire mais bon !
End With
End Sub

Ensuite, tu utilises l'événement "change" de ta ComboBox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ComboBox1_Change()
On Error Resume Next
    ActiveSheet.Shapes("Image_niveau").Delete 'supprime l'ancienne image
On Error GoTo 0
    Niveau = ComboBox1.Value
    Sheets("Données").Shapes(Niveau).Copy
    Sheets("Feuil1").Cells(1, 4).Select 'pour définir l'endroit où l'image sera copiée
    ActiveSheet.Paste
    Sheets("Feuil1").Shapes(Niveau).Name = "Image_niveau"
    With Sheets("Feuil1").Shapes("Image_niveau")
        .ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft 'mise à l'échelle désirée
        .ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft 'mise à l'échelle désirée
    End With
End Sub

J'ai testé et ça marche.

Didier