Problème avec select case

Version imprimable

Bonjour à tous,

Je veux créer une macro avec la boucle case. Mais j'ai un problème lors de l'éxecution, j'ai le message suivant : Erreur de compilation Case sans select case.
Pourtant dans mon code j'ai bien l'impression que j'ai mon select case pour tous les cas?
Voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Test() Select Case Range("A1").Value Case Is < 10 For i = 56 To 82 Rows("i").EntireRow.Delete Shift:=xlUp Exit For Case Is < 15 For i = 56 To 81 Rows("i").EntireRow.Delete Shift:=xlUp Exit For End Select End Sub
Merci de votre aide

Bonjour

Essai comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Select Case Range("A1").Value
 
Case Is < 10
    For i = 56 To 82
    Rows("i").EntireRow.Delete Shift:=xlUp
    Exit For
    Next i
Case 10 To 15
    For i = 56 To 81
    Rows("i").EntireRow.Delete Shift:=xlUp
    Exit For
    Next i
End Select
End Sub

Bonjour
Bon, plusieurs remarques:
Les boucles For sans next;
Le Exit For pourquoi?
et enfin pour supprimer une ligne, on commence par la fin et on remonte.

Le principe est le suivant mais reste à savoir le but

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
Dim i As Integer
 
With Sheets("Feuil3") 'à adapter
    Select Case .Range("A1").Value
        Case Is < 10
            For i = 82 To 56 Step -1
                .Rows(i).Delete Shift:=xlUp
            Next i
        Case Is < 15
            For i = 81 To 56 Step -1
                .Rows(i).Delete Shift:=xlUp
            Next i
    End Select
End With
End Sub

28/06/2011, 13h39
tioch

C'est bon

Merci bien mercatog, c'est bon ca marche nikel comme je veux.

A bientot