Bonjour à tous,
J'ai un grand besoin de votre aide pour finaliser mon projet. Le code qui me pose problème est au bas de ce post. Sous excel 2003 après conversion du fichier développé sous 2007, le logiciel me renvoie une erreur comme si cette fonction n'était pas prise en charge sous excel 2003. Peut-être cela vient de la conversion qu'excel effectue qui est erroné. Existerait-il une conversion de ce code pour excel 2003?
Merci d'avance pour tout aide.
J'ai un grand besoin de votre aide pour finaliser mon projet. Le code qui me pose problème est au bas de ce post. Sous excel 2003 après conversion du fichier développé sous 2007, le logiciel me renvoie une erreur comme si cette fonction n'était pas prise en charge sous excel 2003. Peut-être cela vient de la conversion qu'excel effectue qui est erroné. Existerait-il une conversion de ce code pour excel 2003?
Merci d'avance pour tout aide.
Code:
Sub positionV()
With ActiveSheet.Shapes("ftracksv")
If Range("Z3") = 0 Then
.Visible = False
ActiveSheet.TextBox2.Visible = False
Else
.Visible = True
ActiveSheet.TextBox2.Visible = True
.Width = Range("Z3")
ActiveSheet.TextBox2.Top = 545 + Range("Z3") / 2
ActiveSheet.TextBox2.Left = 428
ActiveSheet.TextBox2.Width = 30
End If
End With
With ActiveSheet.Shapes("gtracksv")
If Range("Z2") = 0 Then
.Visible = False
Else
.Visible = True
'.Left = 312
'.Top = 174 - Range("Z2")
.Width = Range("Z2")
ActiveSheet.TextBox1.Top = 255 - Range("Z2") / 2
ActiveSheet.TextBox1.Left = 428
ActiveSheet.TextBox1.Width = 30
End If
End With
With ActiveSheet.Shapes("dtrackssv")
.Top = 498 + Range("Z3")
End With
With ActiveSheet.Shapes("Ltracksv")
.Top = 440 - Range("Z2")
.Width = 287 + Range("Z3") + Range("Z2")
End With
w = Range("N32")
With ActiveSheet.Shapes(w)
.Visible = True
.Top = 274
.Left = 405
End With
End Sub