Supprimer une feuille de calcul à condition

Bonjour, je souhaiterai pouvoir supprimer une feuille de calcul, à la condition de valeur d'une cellule d'une autre feuille. Je pense qu'une macro doit pouvoir le faire, mais je ne suis un spécialiste.

Merci d'avance de votre aide.

Bonsoir,

Essaye ceci :

Sub test()
'Macro Dan
If Sheets("Feuil2").Range("A1") = 1 Then
Application.DisplayAlerts = False
Sheets("Feuil1").Delete
End If
End Sub

La feuille est supprimée si la cellule A1 dans la feuille 2 contient 1

Amicalement

Dan

Bonjour, merci, cela fonctionne, mais j'aurai voulu que la macro s'exécute seule, juste après la saisie de la cellule a1 feuil2, ou après enregistrer quitter.

Bonjour

s'execute des que la valeur de "Feuil2!A1" change

A placer dans le code de la Feuil2.

Private Sub Worksheet_Change(ByVal cells As range)
'Macro Dan
If cells("1, 1") = 1 Then
Application.DisplayAlerts = False
Sheets("Feuil1").Delete
End If
End Sub

Cordialement

Re bonjour, merci à nouveau, mais cela ne fonctionne pas, la macro ne s'enregistre pas et la fonction ne se vérifie pas.

Cordialement,

Jean-louis.

Bonjour,

chez moi cela fonctionne, joint ton fichier que l'on voit ce qui ne va pas

Cordialement

Rebonjour, je ne savais pas ce que voulait dire "placer dans le code de la feuille", le pb venait de là il fallait double cliquer sur la feuille dans visual basic.

Merci encore, je garde votre lien pour un futur besoin.