Discussion :

[tioch]

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 :

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
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

[jfontaine]

Bonjour

Essai comme cela

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
 
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

[mercatog]

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 :

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
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

[tioch]

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

A bientot