Discussion :

[abouhossam]

bjr à tous
j'ai developpé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DN°WP As Single
If Target.Address = Worksheets(1).Range("ae7").Address Then
DN°WP = Application.InputBox("Saisissez le dernier N° WP", Type:=1)
For Each fl In ActiveWorkbook.Worksheets
If fl.Name > DN°WP Then fl.Delete
next
end if
end sub

le problème c'est que excel m'envoi des message de confirmation de suppression des feuilles lors d'execution de macro.
merci à votre aide.

[oOVaveOo]

Bonjour,
Il faut mettre la ligne :

Code :

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

Application.DisplayAlerts = False

avant de supprimer les feuilles.

Il faut le remettre à 'true' en fin de programme. Je crois que ce n'est pas obligatoire, mais c'est plus sûr.

[abouhossam]

merci oOVaveOo
ça marche

j'ai une petit question stp
comment peux je faire pour que mon macro ne prend en consediration que les feuilles dont leurs nom est un nombre.

merci.