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
Partager