Gestion d'erreur

bonjour,

je voudrais gérer mes erreurs en faisant apparaitre un texte spécifique à chaque erreur courantes, mais je ne suis que débutant ...

si quelqu'un peux m'aider

voici mes sources d'erreurs et le texte que je voudrais écrire :

tableau = ActiveSheet.ListObjects(1).name

aucun tableau détecté

T8 = ActiveSheet.ListObjects(1).HeaderRowRange(8)

le tableau doit contenir au moins 8 colonnes

merci d'avance

Bonjour

Pas évident ces tableaux (j'aime pas)

A tester

Sub Test()
  If ActiveSheet.ListObjects.Count = 0 Then
    MsgBox "aucun tableau détecté"
    Exit Sub
  End If
  tableau = ActiveSheet.ListObjects(1).Name
  If ActiveSheet.ListObjects(1).ListColumns.Count < 8 Then
    MsgBox "le tableau doit contenir au moins 8 colonnes"
    Exit Sub
  End If
End Sub