Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Suppression Feuille si Colonne ne contient pas

Créer une discussion

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 !

S'inscrire
F

fouggy

XLDnaute Junior
Slt à tous,

Mon objectif est de supprimer toutes les feuilles d'un classeur ouvert dont aucune des cellules de la colonne A ne contient un certain mot.

J'ai essayé ce qui suit mais ça le fait pas. Merci de votre aide.


Sub SupprFeuilles()

Dim Ws As Worksheet

Application.DisplayAlerts = False

For Each Ws In Sheets
If Ws.Range("A1:A150") <> "BLABLA" Then
Ws.Delete
End If
Next Ws

Application.DisplayAlerts = True

End Sub
 
Trier par date Trier par votes
Re : Suppression Feuille si Colonne ne contient pas

Bonjour

peut-être en remplaçant

If Ws.Range("A1:A150") <> "BLABLA" Then

par

If WorksheetFunction.CountIf(Ws.Range("A1:A150"), "BLABLA") = 0 Then
ou
If WorksheetFunction.CountIf(Ws.Range("A:A"), "BLABLA") = 0 Then
A+
 
Vote positif 0 Vote négatif
Re : Suppression Feuille si Colonne ne contient pas

Bonjour, fouggy, le Forum,

Peut-être ainsi :

Code: 
Option Explicit
Sub SupprFeuilles()
    Dim Ws As Worksheet
    Application.DisplayAlerts = False
    For Each Ws In Sheets
        With Ws
            If WorksheetFunction.CountIf(Ws.Range("a1:a150"), "BLABLA") = 0 Then Ws.Delete
        End With
    Next
    Application.DisplayAlerts = True
End Sub

A bientôt 🙂

P. S. : Bonjour, Paf.
 
Vote positif 0 Vote négatif
Re : Suppression Feuille si Colonne ne contient pas

Slt le Forum,

Merci à vous deux, Paf et DoubleZéros. Vos propositions fonctionnent au top.

Pourriez-vous m'expliquer pourquoi et comment on peut appliquer un code indiquant "= 0" et qui marche, lol, alors qu'on cherche à supprimer avec comme condition "<> de quelque chose" !!!

Merci à vous encore.
 
Vote positif 0 Vote négatif
Re : Suppression Feuille si Colonne ne contient pas

re bonjour fouggy et bonjour DoubleZero que je n'avais pas vu.

on ne peut pas l'écrire comme ça, mais If Ws.Range("A1:A150") <> "BLABLA" Then voudrait dire : si la plage A1:A150 ne contient pas de cellules ayant pour valeur "BLABLA" alors ...

Tandis que If WorksheetFunction.CountIf(Ws.Range("A1:A150"), "BLABLA") = 0 Then signifie : si dans la plage de cellules A1:A150, le nombre de cellule ayant pour valeur "BLABLA" est égal à zéro alors...


A+
 
Vote positif 0 Vote négatif
Re : Suppression Feuille si Colonne ne contient pas

Bonsoir à tous

Une petite modif en passant pour éviter un éventuel souci si présence de feuille Graphique

Code vb:
Option Explicit
Sub SupprFeuillesBIS()
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In WorkSheets'ici modif
With Ws
If WorksheetFunction.CountIf(Ws.Range("a1:a150"), "BLABLA") = 0 Then Ws.Delete
End With
Next
Application.DisplayAlerts = True
End Sub




Une variante pour flatter mes endives et en guise de berceuse pour tenter de m'endormir 😉
Code vb:
Sub SupprFeuillesTER()
Dim Ws As Worksheet
With Application
.DisplayAlerts = False
For Each Ws In Worksheets'ici modif
With Ws
On Error Resume Next
If Application.CountIf(.[A1:A150], "ACHTUNG!Baby") = 0 Then Ws.Delete
End With
Next
.DisplayAlerts = True
End With
End Sub








 
Dernière édition:
Vote positif 0 Vote négatif
Re : Suppression Feuille si Colonne ne contient pas

Merci Paf pour ton explication très claire. Cela ressemble de loin à un raisonnement par l'absurde, encore fallait-il y penser....

Est-ce que ce code supporte le Or ou And ?, Style :

If WorksheetFunction.CountIf(Ws.Range("A1:A150"), "BLABLA" Or "BLABLA2") = 0 Then

Merci de ta réponse.
 
Vote positif 0 Vote négatif
Re : Suppression Feuille si Colonne ne contient pas

Yooooooo,

Grand merci à vous pour vos réponses.

A DoubleZéro dont je vais tester au plus vite la proposition.

A Staple1600 que j'ai oublié de remercier précédemment mais à qui je dois avouer que la notion de feuille graphique m'échappe complètement.

A Job75 même si je n'ai pas compris la finesse de l'intervention.

Bonne nuit à tous et encore merci.
 
Vote positif 0 Vote négatif
Re : Suppression Feuille si Colonne ne contient pas

Bonjour à tous

une autre solution qui ne s'applique peut-être pas dans ce cas précis: utilisez le joker "*".

If WorksheetFunction.CountIf(Ws.Range("a1:a150"), "BLABLA*") = 0 Then Ws.Delete

comptera toutes les cellules commençant par "BLABLA" ( donc "BLABLA2" compris)

A+
 
Vote positif 0 Vote négatif
Re : Suppression Feuille si Colonne ne contient pas

salut

alerte, Si... ce n'est déjà fait, mauvais temps à prévoir 😉

Pour contrôler (sans abuser des endives à la mode de Stapple 😛) ...
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
512
anthoYS
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
551
job75
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
250
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
406
patricktoulon
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
665
fanch55
Capturer et imprimer ou exporter en pdf un userform
Réponses
4
Affichages
559
PHV62
P
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
A
  • Question Question
XL 2019 Mélange aléatoire colonne A sur colonne G ne fonctionne pas
Réponses
3
Affichages
352
arvin
A
  • Question Question
XL 2021 Optimisation code pour affichage ligne et colonne
Réponses
14
Affichages
1 K
patricktoulon
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
697
job75
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
610
safranien
S
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
1 K
Thomi
T
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
718
vgendron
  • Question Question
XL 2021 Création et adaptation barre de progression
2 3
Réponses
44
Affichages
2 K
Tartine
T
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
772
MBEPID
M
E
  • Question Question
Microsoft 365 Total général TCD à gauche : Solution VBA ?
Réponses
2
Affichages
561
merinos-BernardEtang
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…