XL 2010 Supprimer DataBodyRange Feuilles protégées

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cathodique

XLDnaute Barbatruc
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
 

Pièces jointes

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é.
 
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 listbox
Réponses
18
Affichages
284
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
7
Affichages
267
Réponses
9
Affichages
195
Retour