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.

[decondelite]

Pourquoi ne pas plutôt faire comme ça:

Code :

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

If isNumeric(Worksheet.name) Then

A mon avis il n'y a pas plus simple.

[abouhossam]

merci decondelite
une autre question
si les noms des feuilles du classeur sont numerique comment peut on connaître le max
merci infiniment.

[oOVaveOo]

Essayes ce bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub maximum()
 
Dim sh As Worksheet
Dim maxi As Integer
 
maxi = 0
 
For Each c In Worksheets
    If IsNumeric(c.Name) Then
 
        If CInt(c.Name) > maxi Then
            maxi = CInt(c.Name)
        End If
 
    End If
Next
 
End Sub

@+

[abouhossam]

merci bcp oOVaveOo
ça marche très bien.