Bonjour,

j'ai quelque petit souci de simplification de mon code VBA.

Je cherche à déplacer des images en fonction d'un choix fait dans une cellule sachant que j'ai environ 30cellules et 21choix par cellule. ce qui me fait beaucoup trop de ligne avec mon code actuel voici un exemple ci dessous:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Select Case [l1]
Case "Disjoncteur"
    Shapes("image13").Top = 1220
    Shapes("image13").Left = 250
Case "Sectionneur ou L 1"
    Shapes("image14").Top = 1220
    Shapes("image14").Left = 250
Case "TC ou TTube 1"
    Shapes("image15").Top = 1220
    Shapes("image15").Left = 250
Case "Buffer 1"
    Shapes("image16").Top = 1220
    Shapes("image16").Left = 250
Case "BAC 1"
    Shapes("image17").Top = 1220
    Shapes("image17").Left = 250
Case "ISO 1"
    Shapes("image18").Top = 1220
    Shapes("image18").Left = 250
End Select