VBA Action sur suppression de feuille

Bonjour,
je voudrais savoir comment je pourrais décrémenter une variable lorsqu'une feuille est supprimée manuellement et où je dois écrire le code svp.
J'ai bien essayé de trouver un truc du genre "Workbook_NewSheet" qui était deja disponible mais je n'ai pas trouvé pour la suppression.

Merci d'avance.

Salut.

Tu peux gérer l'événement de classeur qui survient juste avant la suppression. Le code suivant est donc à mettre dans le module du classeur, et ta variable doit être soit une variable de ce module, soit une variable globale.

Code:

---

1 2 3

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object) Mavariable = Mavariable - 1 End Sub

---

Par exemple, le code suivant gère le nombre de feuilles à l'ouverture du classeur et décrémente ce nombre à chaque suppression de feuille

Code:

---

1 2 3 4 5 6 7 8 9

Public CountOf As Long   Private Sub Workbook_Open() CountOf = Sheets.Count End Sub   Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object) CountOf = CountOf - 1 End Sub

---

Bonjour,
Regarde du côté de

Code:

---

1 2 3 4

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)   End Sub

---

Merci de vos réponses et je voulais savoir si cette fonction était compatible avec 2010 parce que je ne l'avait pas trouvée dans la liste et que mon programme ne fonctionne toujours pas j'ai donc ceci:

Code:

---

1 2 3 4 5

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object) nombre_de_pages = nombre_de_pages - 1 ActiveWorkbook.Names.Add Name:="mavariable", RefersToR1C1:="=" & nombre_de_pages MsgBox [Mavariable] End Sub

---

je supprime avec un clic droit mais rien ne se passe, vous pourriez m'éclaircir sur mes erreurs ?
Je précise que je garde ma valeur nombre_de_page en mémoire même après fermeture du fichier d'où le code ajoutée.

Tu ne dis pas "ce qui ne marche pas", mais déjà, tu ajoutes un nom alors qu'il existe peut-être déjà...

Question existentielle: A quoi te sert-il de mémoriser le nombre de feuilles d'un classeur alors que tu peux l'obtenir via la propriété Count de la collection Sheets ou WorkSheets?

Si tu en as besoin dans une feuille de calcul (ce que je suppose vu l'utilisation d'un nom), je te propose d'utiliser la fonction =INFORMATIONS("NBFICH")

Je ne connais pas la propriété Count je l'integrerais après je préfère travailler pour l'instant avec ce que je connais pour cela que j'ai une variable qui compte mon nombre de pages et en faite c'est la décrémentation qui ne fonctionne pas ma variable reste a valeur fixe.
J'ai donc essayer sur une nouvelle feuille pour m'entrainer et pareil je pense ne pas bien comprendre la fonction delete du coup ou peut etre autre chose.
Je précise que je suis débutant en VB ceci explique mes nombreuses erreurs et apparament lacunes :s
Voici le code que j'ai créer pour m'entrainer:

Module 1:

Code:

---

1 2 3 4 5 6

Global Salut As Integer   Sub bouton() MsgBox [Salut] End Sub

---

Workbook:

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_Open() Salut = 10 End Sub   Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object) Salut = Salut - 1 End Sub

---

Et donc avec ce code ma variable reste à 10 quoi que je fasse j'imagine qu'il y a une bonne explication à cela.
Pour visualiser ma variable j'ai reliée la macro à un bouton comme c'est indiqué sur son nom.
Je supprime des pages en faisant clique droit puis supprimer pour essayer de décrémenter.

Chez moi, le code tel que tu le donnes fonctionne... Les crochets autour de Salut ne sont pas nécessaires.

PS: Pense à mettre des balises code autour de ton code (sélection du code puis bouton #) ;)

Ca ne m'explique pas pourquoi tu as besoin de le calculer à la suppression d'une feuille alors que tu peux l'avoir par .Count sur la collection des feuilles... Peut-être aimes-tu te compliquer la vie? ;)

Ah bon ? erf c'est bizarre je me demande si il y a pas des options a changer peut etre ou que je ne suis tout simplement pas sur la bonne version de excel pour utiliser cette fonction je ne l'avais pas dans ma liste de fonction workSheet ca me semblait bizarre bref merci de ton aide je me renseignerais je met la discussion en résolu je ferais mes petites recherches sur le sujet ;)

Ceci est un test (les balises)

Code:

---

1 2 3 4

Sub bouton() MsgBox [Salut] End Sub

---

Ca à l'air d'être ça tu m'a appris un autre nouveau truc merci mdr bonne journée.

L'événement BeforeDelete existe depuis longtemps, à mon avis... Met un point d'arrêt sur la première ligne de cette fonction, puis supprime une feuille. Tu verras bien si tu captes l'événement.

J'ai fait une petite recherche sur internet, j'ai l'impressions, qu'en effet, cet evenement n'existe pas encore sur Excel2010.
Tu ferais mieux d'utiliser Sheets.Count qui lui, a priori, existe bien sur Excel2010 et est bien plus simple ;)

EDIT : https://msdn.microsoft.com/en-us/lib.../dn448396.aspx

Citation:

---

Workbook.SheetBeforeDelete Event (Excel)
Office 2013 and later

---

Tiens, j'aurais dit que c'était plus vieux... Merci riaolle ;)

TKSfoufi: Ca n'indique toujours pas pourquoi tu veux mémoriser cette donnée... :koi:

Ah merci Riaolle j'essaierais de faire avec cette autre fonction je peux bien me débrouiller avec ce qu'il y a ;)