Tableau de polyvalence

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

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

Code:

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

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:

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:

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