REbonjour
Une version un peu plus évoluée
(Ne pas oublier d'oter le filtre à la fin de la macro sur la feuille
données 2006)
[TOTO]= cellule nommée, E2 sur feuille Pannes>10
Sub FIL_TRA_GE_DEUX()
'Staple1600
Dim Cz As String
Dim X As String, Y As String
Cz = InputBox('Saisir le critère avec les opérateurs suivants: ' & Chr(13) & 'Inférieur: ' & Chr(13) & 'Egal: saisir juste le chiffre', 'Choix du critère')
Sheets('Pannes>10').[E2] = Cz
With Worksheets(' données2006 ').Range('A1').CurrentRegion
.AdvancedFilter xlFilterInPlace, [TOTO], False
Worksheets.Add after:=Sheets(Sheets.Count)
.Copy ActiveSheet.Range('A1')
End With
X = Left(Cz, 1): Y = Right(Cz, 1)
If X = '>' Then
ActiveSheet.Name = 'Données triées SUP à ' & Y
End If
If X = '<' Then
ActiveSheet.Name = 'Données triées INF à ' & Y
Else
ActiveSheet.Name = 'Données triées égales à ' & Y
End If
End Sub
Message édité par: staple1600, à: 06/01/2006 15:32