Rapport de message :*
 

Re: supprimé une feuille selon la valeur d'une cellule

Titre du sujet : Re: supprimé une feuille selon la valeur d'une cellule
par Skoobi le 12/12/2008 21:16:33

Bonsoir inspecteur,
JC,

en reprenant le code de JC:

Option Explicit

Sub Delete()
Application.DisplayAlerts = 0
If Sheets("constitution de CA").Range("E14") <= 30000 Then
  Sheets("r�gime r�el ").Delete
Else: Sheets("r�gime forfaitaire").Delete
End If
Application.DisplayAlerts = 1
End Sub