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.