XL 2010 Supprimer DataBodyRange Feuilles protégées

[cathodique]

Bonjour,

je n'arrive pas à comprendre la raison pour laquelle les lignes de code ci-dessous fonctionnent pour une feuille et pas pour l'autre.

Private Sub Worksheet_Deactivate()
   With Feuil2 'ne fonctionne pas'
      .Unprotect 123
      If Not .ListObjects(1).DataBodyRange Is Nothing Then .ListObjects(1).DataBodyRange.Delete
      .Protect 123
   End With
End Sub

Private Sub Worksheet_Deactivate()
   With Feuil3 'fonctionne'
      .Unprotect 123
      If Not .ListObjects(1).DataBodyRange Is Nothing Then .ListObjects(1).DataBodyRange.Delete
      .Protect 123
   End With
End Sub

Merci de m'indiquer mon erreur.

Bon dimanche

 

[dysorthographie]

Bonjour,
Tu as des données en feuille 2 et pas en feuille 3

If .ListObjects.Count > 0 Then
   If Not .ListObjects(1).DataBodyRange Is Nothing Then .ListObjects(1).DataBodyRange.Delete
End If

Il faut vérifier si il y a quelques chose à supprimer.

 

[Oneida]

Bonjour,

dysorthographie, ca roule?​

Chez moi pas probleme meme si pas de donnees
Essayez avec le nom des tableaux

 

[job75]

Bonjour,

Quand on active Feuil2 rien ne se passe, c'est normal.

Quand on quitte cette feuille c'est alors que A2:B2 est supprimé.

A+

 

[cathodique]

Bonjour,
Tu as des données en feuille 2 et pas en feuille 3

If .ListObjects.Count > 0 Then
   If Not .ListObjects(1).DataBodyRange Is Nothing Then .ListObjects(1).DataBodyRange.Delete
End If

Il faut vérifier si il y a quelques chose à supprimer.

Bonjour @dysorthographie ,

En effet, il n'y a plus de données en feuille 3 car le code de feuille a fonctionné.

 

[cathodique]

Bonjour,

Quand on active Feuil2 rien ne se passe, c'est normal.

Quand on quitte cette feuille c'est alors que A2:B2 est supprimé.

A+

Bonjour @job75 ,

Merci, ça m'a complétement dérouté ce matin. Je n'ai pas compris pourquoi ça fonctionner pour une feuille et pas pour l'autre. Le code proposé par @dysorthographie fonctionne.

Bon dimanche