bonjour,

voici la parti de mon code qui ne fonctionne pas et surtout la ligne en rouge

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
21
22
23
24
25
26
27
Public Sub SHAPE_REMOVAL_FWD_LIFTING()

Dim jack$
Dim airbag$
Dim crane$

jack = Sheets("Lifting Phase FWD").Range("D100").Value
airbag = Sheets("Lifting Phase FWD").Range("D101").Value
crane = Sheets("Lifting Phase FWD").Range("D102").Value

If jack = "1" Then
    jack = "0"
    Sheets("Lifting Phase FWD").Shapes("lift_jack").Select
    Selection.Delete
End If
If airbag = "1" Then
    airbag = "0"
    Sheets("Lifting Phase FWD").Shapes("lift_airbag").Select
    Selection.Delete
End If
If crane = "1" Then
    crane = "0"
    Sheets("Lifting Phase FWD").Shapes("lift_crane").Select
    Selection.Delete
End If

End Sub
si je met sheets("...").rangeblablabla a la place de mon airbag ca marche
j'ai essayé de mettre mon auxilliaire airbag en string en integer en variant rien n'y fait la cellule ne change pas de valeur ....surtout que c'est beaucoup plus lisisble ecrit avec des auxilliaires ....

quelqu'un connait-il la solution ?

merci pour vos réponses