Supprimer onglet si valeur cellule supprimée

job75

XLDnaute Barbatruc

• 14 Novembre 2011

• #2

Re : Supprimer onglet si valeur cellule supprimée

Bonsoir joelpelle,

Dans le code de la feuille Planning :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Object, n%
Application.DisplayAlerts = False
For Each s In Sheets
  n = Val(s.Name)
  If n And Application.CountIf([BG:BG], n) = 0 Then s.Delete
Next
End Sub

A+

 

Vote positif 0 Vote négatif

J

joelpelle

XLDnaute Junior

• 14 Novembre 2011

• #3

Re : Supprimer onglet si valeur cellule supprimée

Bonsoir,

Un grand merci à toi, pour cette réponse rapide, qui fonctionne nickel, et comme d'habitude sur ce forum, on trouve de l'aide et des gens sympas.
Good Job (et oui, j'ai osé)
Pour le lien hypertexte, c'est bon, j'ai réussi, car il faut bien continuer à chercher tout seul quand même !
Mille merci et à très bientôt, car y'a des balèzes par ici !!! 😉
Joël

 

Vote positif 0 Vote négatif

J

joelpelle

XLDnaute Junior

• 16 Novembre 2011

• #4

Re : Supprimer onglet si valeur cellule supprimée

Bonjour le forum,

J'ai utilisé la macro de Job75 qui fonctionne nickel sur des chiffres, mais si je mets des noms à la place, ça ne fonctionne pas😡
Que faut il changer à cette macro pour ça fonctionne avec des noms en majuscule ???
Merci pour votre aide.
Bien cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Novembre 2011

• #5

Re : Supprimer onglet si valeur cellule supprimée

Bonjour joelpelle,

joelpelle à dit:

Que faut il changer à cette macro pour ça fonctionne avec des noms en majuscule ???

Cliquez pour agrandir...

Le critère "noms en majuscule" est trop général je pense.

En écrivant simplement :

Code:

If Application.CountIf([BG:BG], s.Name) = 0 Then s.Delete

vous supprimerez en effet toutes les feuilles dont le nom n'est pas en colonne BG.

Dangereux non ?

En fait il faut faire une liste des feuilles à ne jamais supprimer et tester leurs noms avant de supprimer une feuille dans la boucle.

A+

 

Vote positif 0 Vote négatif

J

joelpelle

XLDnaute Junior

• 16 Novembre 2011

• #6

Re : Supprimer onglet si valeur cellule supprimée

Bonjour Job75, et merci pour votre réponse,
En fait, votre premier code correspondait à mon attente, à savoir, que je supprime les onglets dont le noms a été supprimé de ma colonne BG (déjà triée) et qui contient ma liste de référence.
Donc, si j'y supprime un nom, je souhaite que l'onglet s'y rattachant soit aussi supprimé.
Votre modification de code : If Application.CountIf([BG:BG], s.Name) = 0 Then s.Delete
supprime tous les onglets, sauf celui que j'ai sorti de ma colonne BG ! C'est donc le contraire qu'il me faudrait 🙄
La macro déjà envoyée fonctionne parfaitement avec des nombres 1, 2 3 etc... mais pas avec du texte ex; AMANDIERS, AGE D'OR etc..
Merci encore de vous penchez sur mon cas.😡
Bien cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Novembre 2011

• #7

Re : Supprimer onglet si valeur cellule supprimée

Re,

joelpelle à dit:

Votre modification de code : If Application.CountIf([BG:BG], s.Name) = 0 Then s.Delete
supprime tous les onglets, sauf celui que j'ai sorti de ma colonne BG !

Cliquez pour agrandir...

Pour éviter d'écrire des bêtises il faut tourner 7 fois son stylo dans sa bouche.

Mon post #5 est clair, non ?

A+

 

Vote positif 0 Vote négatif

J

joelpelle

XLDnaute Junior

• 16 Novembre 2011

• #8

Re : Supprimer onglet si valeur cellule supprimée

Bonsoir job75, le Forum,

Effectivement, en l'écrivant 2 fois, c'est plus clair, mais j'étais parti dans ma logique, et je n'ai rien vu!😕

J'ai donc suivi votre code, et le conseil, en copiant automatiquement mes données à ne pas supprimer dans une colonne masquée, et en pointant mon code vers cette colonne.

Ca marche impec !!!

Merci encore pour votre aide et votre analyse.

Bien cordialement

PS édité : Je joins l'exemple finalisé, dans lequel on peut retrouver également, une macro empêchant le copier coller dans la feuille en cours, par la souris.

 

Pièces jointes

• Copier onglet.xlsm

  36.3 KB · Affichages: 52

Dernière édition: 17 Novembre 2011

Vote positif 0 Vote négatif