XL 2010 Supprimer DataBodyRange Feuilles protégées

cathodique · 8 Septembre 2024

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.

VB:

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 · 8 Septembre 2024

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

Code:

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.

dysorthographie · 8 Septembre 2024

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

Code:

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 · 8 Septembre 2024

Bonjour,

dysorthographie, ca roule?

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

job75 · 8 Septembre 2024

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 · 8 Septembre 2024

dysorthographie à dit:
Bonjour,
Tu as des données en feuille 2 et pas en feuille 3

Code:

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 · 8 Septembre 2024

job75 à dit:
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

XL 2010 Supprimer DataBodyRange Feuilles protégées

cathodique

XLDnaute Barbatruc

Pièces jointes

dysorthographie

dysorthographie

XLDnaute Accro

Oneida

XLDnaute Impliqué

dysorthographie, ca roule?

job75

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Discussions similaires

XL 2010 Supprimer DataBodyRange Feuilles protégées

cathodique

XLDnaute Barbatruc

Pièces jointes

dysorthographie

XLDnaute Accro

Oneida

XLDnaute Impliqué

dysorthographie, ca roule?​

job75

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Discussions similaires

dysorthographie, ca roule?