F
Frédéric
Guest
Bonjour
j'ai exécuté une macro qui a planté Excel. depuis lorsque je veux ouvrir le classeur, celui-ci 'mouline'. jJe n'ai pas accés aux feuilles ni aux scripts VBA.
Quelqu'un a-t-il une idée pour pouvoir récupérer le code VBA ?
Voici le script qui a planté:
Sub SautPAgeHorizontal()
Dim vp As HPageBreak
Dim posligne As Long
For Each vp In ActiveSheet.HPageBreaks
posligne = vp.Location.Row
If (Cells(posligne - 1, 2).Value <> "") Then
' on remonte
Do While Not IsEmpty(Cells(posligne, 2))
posligne = posligne - 1
Loop
Cells(posligne, 1).Select
Set vp.Location = ActiveCell
End If
Next
End Sub
j'ai exécuté une macro qui a planté Excel. depuis lorsque je veux ouvrir le classeur, celui-ci 'mouline'. jJe n'ai pas accés aux feuilles ni aux scripts VBA.
Quelqu'un a-t-il une idée pour pouvoir récupérer le code VBA ?
Voici le script qui a planté:
Sub SautPAgeHorizontal()
Dim vp As HPageBreak
Dim posligne As Long
For Each vp In ActiveSheet.HPageBreaks
posligne = vp.Location.Row
If (Cells(posligne - 1, 2).Value <> "") Then
' on remonte
Do While Not IsEmpty(Cells(posligne, 2))
posligne = posligne - 1
Loop
Cells(posligne, 1).Select
Set vp.Location = ActiveCell
End If
Next
End Sub