Discussion :

[Yoooo]

bonjour,
je souhaiterais sélection toutes les cellules de la colonne A qui ont une valeur supérieur à "60211000"
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
Sub t()
Dim i As Range
For Each i In Range("a2:a200")
Select Case i
Case Is > 60211000
i.EntireRow.Select
End Select
Next
End Sub

quelqu'un voit le hic?

[tirex28]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub t()
   Dim i As Range, U As Range
   For Each i In Range("a2:a200")
      If i.Value > 60211000 Then
         If U Is Nothing Then
            Set U = i
         Else
            Set U = Union(i, U)
         End If
      End If
   Next
   U.Select
End Sub

Cordialement,

Tirex28/

[Yoooo]

je pige pas trop
si je luidemande de me sélection les cellules qui ont une valeur comprise entre "60211000" et "60511000"
il bloge

[decondelite]

Le premier hic que je vois, c'est que tu n'indentes pas ton code: c'est une bonne habitude à prendre pour la lisibilité.

Ensuite, l'instruction Select Case n'est faite que pour tester si une variable est égale à tel valeur, telle autre, etc... Il faut donc que tu utilise une instruction If... Then.
Dernier point: le mot clé Is ne sert qu'à tester si deux références sont identiques (mais je suppose que tu comprends pas ce que ça veut dire vu ton code). Or là tu compares la référence i de ton objet range, à un opérateur >, c'est donc plutôt normal que le compilateur te sort un truc dans le genre "je m'attendais à trouver une référence à cet endroit".

N'oublie pas que lrosque tu tapes Range("a2:a200"), la signification peut être ambigüe: selon la situation cela désigne la plage en elle-même, ou sa valeur. Personnellement, pour la clarté de mon code je tape toujours Range("a2:a200").Value si je veux avoir la valeur.

Je te laisse réfléchir un peu à tout ça, ce n'est pas bien dur.*

EDIT: grillé... pendant que je tapais.

[Pierre Fauconnier]

Bonjour

Attention quand on amène un complément d'infos...


On peut, même si c'est rare de l'utiliser ainsi, utiliser Select case ... pour envisager un seul cas.

Par contre, on ne peut pas avoir ceci

Code :

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

1
2
dim i as range
for each i in range("a2:a200").value

Le code suivant (sur l'idée de Tirex) fonctionne très bien

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
Sub t()
Dim i As Range, u As Range
 
    For Each i In Range("a2:a200")
        Select Case i
            Case Is > 60211000
                If u Is Nothing Then
                    Set u = i
                    Else
                    Set u = Union(u, i)
                End If
        End Select
    Next
    u.Select
End Sub

Mais celui-ci

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
Sub t()
Dim i As Range, u As Range
 
    For Each i In Range("a2:a200").Value
        Select Case i
            Case Is > 60211000
                If u Is Nothing Then
                    Set u = i
                    Else
                    Set u = Union(u, i)
                End If
        End Select
    Next
    u.Select
End Sub

plantera!

[Yoooo]

ma logique ne doit pas être bonne
je n'arrive pas à faire sélectionner les cellules de la colonne A qui ont une valeur comprise entre "60211000" et "60500000"

[Pierre Fauconnier]

Code :

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

If i.Value > 60211000 And i.Value < 60500000 Then

P.S.: C'est toujours plus simple quand tu mets le bout de code qui pose problème...