Vba - Vérifier si un tableau excel existe

[philppe27]

Bonjour à tous,

En Vba je voudrais vérifier si un tableau excel qui s'appelle "contact" existe dans la feuille d'un fichier et s'il n'existe pas le créer.

Merci d'avance pour vos réponses

 

[job75]

Re : Vba - Vérifier si un tableau excel existe

Bonjour philppe27,

Il nous faudrait plus de précision mais enfin :

Sub Macro1()
With ActiveSheet
  If .ListObjects.Count Then
    .ListObjects(1).Name = "contact"
  Else
    .ListObjects.Add(xlSrcRange, .UsedRange, , xlYes).Name = "contact"
  End If
End With
End Sub

En plus du .UsedRange on peut préciser les colonnes (A à D) :

Sub Macro2()
With ActiveSheet
  If .ListObjects.Count Then
    .ListObjects(1).Name = "contact"
  Else
    .ListObjects.Add(xlSrcRange, Intersect(.UsedRange.EntireRow, .[A:D]), , xlYes).Name = "contact"
  End If
End With
End Sub

A+

 

[philppe27]

Re : Vba - Vérifier si un tableau excel existe

Merci Job75 c'est tout à fait ce qu'il me faut