Convertir en Plage VBA

[AmigosCarole]

Bonjour,
C'est la première fois que je poste, et je ne suis pas grande spécialiste ...

J'ai trouvé cette aide http://monsieur-excel.blogspot.fr/2009/10/convertir-en-plage-en-vba.html, que j 'ai adapté à mon cas

Sub ConvertirPlage()
Selection.CurrentRegion.Select
Worksheets("Feuil51").ListObjects("Tableau51").Unlist
End Sub

J'arrive à automatiser en VBA mais en fixant le nom de l'onglet , j'aimerais savoir écrire dans ma macro ,

Si tu es sur l'onglet "A", la macro devrait devenir toute seule Worksheets("A").ListObjects("A").Unlist

Pensez vous que c'est possible merci beaucoup

 

[JCGL]

Bonjour à tous,
Bienvenue su XLD

Dans le ThisWorkBook :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.ListObjects(ActiveSheet.Name).Unlist
End Sub

A+ à tous

 

[AmigosCarole]

Merci JCGL pour cette réponse , par contre je ne sais pas ou mettre le code et surtout l'exécuter

Merci de votre patience

 

[JCGL]

Bonjour,

Le code se déroulera à l'activation de la feuille (quand tu choisiras un onglet)
Il est à mettre dans le ThisWorkBook accessible par Alt F11

Rajoute une gestion des erreurs si le Tableau n'existe pas :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error resume Next
ActiveSheet.ListObjects(ActiveSheet.Name).Unlist
End Sub

A+