Bonjour le Forum
Je reçois une erreur de syntaxe pour le code suivant (extrait)
Dim leShButDebut As Object
Public Sub DeplaceShBut(Incr As Single, Etat As Boolean)
Set leShButDebut = Worksheets(2).Shapes('ShButDebut')
leShButDebut.IncrementTop Incr
leShButDebut.Visible = Etat
Set leShButDebut = Nothing
End Sub
DeplaceShBut (178,True)
Erreur sur la dernière ligne.
Voyez-vous l'erreur ?
Merci à tous
Je reçois une erreur de syntaxe pour le code suivant (extrait)
Dim leShButDebut As Object
Public Sub DeplaceShBut(Incr As Single, Etat As Boolean)
Set leShButDebut = Worksheets(2).Shapes('ShButDebut')
leShButDebut.IncrementTop Incr
leShButDebut.Visible = Etat
Set leShButDebut = Nothing
End Sub
DeplaceShBut (178,True)
Erreur sur la dernière ligne.
Voyez-vous l'erreur ?
Merci à tous