Trouver valeur numérique <>0

Bonjour,

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

Code:

---

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:

---

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.

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:

---

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+

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.

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

bonjour

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

Code:

---

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

Bonjour fred,

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

Cordialement.