[E-00] utilisation d'un auxilliaire pour simplifier la lecture du code

bonjour,

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

Code:

---

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

Ton code fonctionne parfaitement bien à cet endroit, c'est juste que tu n'as pas assimilé correctement la notion de référence. ;)

Tu affectes à airbag la valeur de ta cellule, et non une référence à celle-ci. En plus VBA n'aime pas trop qu'on essaye de faire une référence à autre chose qu'un objet (en dehors du passage de paramètres pas référence dans une fonction): faut dire que la propriété Value de l'objet Range est de type Variant.
(au passage j'ai envie de dire: voilà une faiblesse de VBA que de ne pas pouvoir faire de référence à des types standard)

Donc pour changer la valeur de ta cellule, soit tu retape tout, soit tu crée une référence à la cellule et tu change la valeur de la cellule de la manière:

Code:

---

mareference.Value = "0"

---

bonjour decondelite merci d'avoir répondu aussi rapidement,

qu'appelles-tu référence à une cellule ? (:oops:)

Salut,

Sinon tu peux mettre à la fin de ton code :

Code:

---

Sheets("Lifting Phase FWD").Range("D101").Value = airbag

---

Pour faire simple, dis toi qu'une référence, c'est une expression "qui se rapporte à quelque chose", donc qui s'y réfère (d'où le nom "référence" :mrgreen:).

Pour ta cellule, quand je dis "créer une référence à ta cellule", c'est créer une variable qui va désigner ta cellule, dans ton cas:

Code:

---

1 2 3

Dim macellule As Range ... Set macellule = Sheets("Lifting Phase FWD").Range("D101")

---

Plus loin, le code reconnaîtra macellule comme étant la cellule D101 de la feuille "Lifting Phase FWD", et pour accéder à la valeur il suffit de taper:

Code:

---

macellule.Value

---

ce qui revient à taper:

Code:

---

Sheets("Lifting Phase FWD").Range("D101").Value

---

Bon voilà j'ai expliqué de façon très simple les références, car en réalité c'est plus compliqué que ça. :D

mais parfaitement expliqué ..... ;)

je vais tenté comme çà

çà fonctionne très bien merci pour le tuyau et bonne fin de journée :D