Vba - Vérifier si un tableau excel existe

philppe27 · 27 Octobre 2014

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 · 27 Octobre 2014

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

Bonjour philppe27,

Il nous faudrait plus de précision mais enfin :

Code:

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) :

Code:

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 · 27 Octobre 2014

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

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

Vba - Vérifier si un tableau excel existe

philppe27

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

philppe27

XLDnaute Occasionnel

Discussions similaires

Vba - Vérifier si un tableau excel existe

philppe27

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

philppe27

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency