Discussion :

[javelot69]

Bonjour,

Pour trouver dans une plage une valeur numérique égale à 1 j'utilise

Code :

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

1
2
With Worksheets("Tempo").Range("G1:G150")
    Set S = .Find(1, LookIn:=xlValues)

Afin de ne pas répéter les lignes pour trouver les valeurs numériques comme 3, 5, 12 etc..., je veux faire une recherche de toutes les valeurs <>0.
Evidemment

Code :

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

Set S = .Find(<>0, LookIn:=xlValues)

ne marche pas et me renvoie une erreur "Attendu:Expression" avec le curseur sur <>. Comment écrire de ne pas chercher les valeurs 0 ?
Merci d'avance de vos suggestions.
Bonne journée.

[Gorfael]

Salut
à ma connaissance, Find trouve uniquement des valeur, pas des non-valeur. Il marche sur l'égalité.

Donc, pour ton cas, il ne convient pas. À la place, tu peux faire une boucle qui parcourt tes cellules et qui teste tes valeurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
dim Cel as range
'........
With Worksheets("Tempo")
for each cel in .Range("G1:G150")
     if isnumeric(cel) then
          if cel<>0 then
               'traitement
          end if
     end if
next cel
end with

A+

[javelot69]

Bonjour Gorfael,

Merci pour ta réponse que je viens de trouver. Dommage que Find ne sache pas trouver des valeurs différentes d'une valeur désignée.

Je teste ta solution et je tiens au courant.

Bonne journée.

[javelot69]

Bonjour Gorfael,

J'ai testé la solution indiquée dans ton code et j'ai obtenu le résultat souhaité. Pour l'intégrer j'ai dû pas mal modifier le code des traitements à faire après identification et sélection des valeurs <>0 mais c'est bon.

Un grand merci à toi pour ta réponse.

Cordialement

[fred65200]

bonjour

pour simplifier la solution de Gorfael et n'avoir qu'un If

Code :

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

1
2
3
4
5
6
7
8
9
10
dim Cel as range
'........
With Worksheets("Tempo")
for each cel in .Range("G1:G150")
     if cel Like "[1-9]" then
               'traitement

     end if
next cel
end with

cordialement

[javelot69]

Bonjour fred,

Merci pour ta suggestion ; effectivement, il est toujours bon d'avoir moins de lignes de code.

Cordialement.