Sub rogation()
Dim WS As Worksheet
On Error GoTo errorHandler
MsgBox WS.Name '<- erreur!
errorHandler:
'indique le numéro et la description de l'erreur survenue
MsgBox _
"Erreur N°: " & Err.Number & Chr(13) _
& vbTab & Err.Description, vbCritical, _
"Aie, caramba!, y a comme un blème, ;-)"
End Sub
Sub terfuge()
Dim WS As Worksheet, mess$
On Error GoTo errorHandler
'-> Début Syntaxe OK
Set WS = ActiveSheet
MsgBox "La feuille nommée: " & WS.Name & " a le N° d'index: " & WS.Index, vbInformation, "Ouf, bonne syntaxe"
mess = WS.Cells(1600, "S").Address & vbCrLf
mess = mess & WS.Cells(1600, 19).Address(4, 0) & vbCrLf
MsgBox mess, vbExclamation, "Test OK"
'-> Fin Syntaxe OK
MsgBox Sheets(WS).Cells(1).Address '<- erreur!
errorHandler:
'indique le numéro et la description de l'erreur survenue
MsgBox _
"Erreur N°: " & Err.Number & Chr(13) _
& vbTab & Err.Description, vbCritical, _
"Aie, caramba!, y a comme un blème, ;-)"
End Sub