Discussion :

[TkSfoufi]

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.

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[riaolle]

Bonjour,
Regarde du côté de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
 
End Sub

[TkSfoufi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pierre Fauconnier]

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")

[TkSfoufi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Global Salut As Integer
 
Sub bouton()
MsgBox [Salut]
End Sub

Workbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pierre Fauconnier]

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?

[TkSfoufi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[riaolle]

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

Workbook.SheetBeforeDelete Event (Excel)
Office 2013 and later

[TkSfoufi]

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

[Pierre Fauconnier]

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.

[Pierre Fauconnier]

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...