utilisation de find

Le
Le Nordiste
Bonjour tertous,

J'utilise FIND dans le code ci dessous pour dtecter les occurences
d'un entier intValCherche

'=
=
Dim intValCherche As Integer
intValCherche = 5

With Worksheets("brouillon").Range("a4:a20")

Set c = .Find(What:=intValCherche, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'MARQUER LA LIGNE
c.EntireRow.Select
With Selection.Font
.Strikethrough = True
.FontStyle = "Italique"
.Size = 6
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

'=
=
ce code me dtecte 5 mais aussi 15, 25, 35
Comment se limiter la valeur de l'entier ?


Remerciements anticips,

  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Le Nordiste
Le #3632701
AUTO REPONSE
la solution est dans le xlWhole

Set c = .Find(What:=intValCherche, LookIn:=xlValues,
LookAt:=xlWhole)

prendre du recul en posant le probléme par écrit permet parfois de
solutionner celui ci,
même aprés avoir parcouru les fils traitant du sujet.

Merci tertous et bon WE
Le Nordiste
Le #3632691
AUTO REPONSE
la solution est dans le xlWhole

Set c = .Find(What:=intValCherche, LookIn:=xlValues,
LookAt:=xlWhole)

prendre du recul en posant le probléme par écrit permet parfois de
solutionner celui ci,
même aprés avoir parcouru les fils traitant du sujet.

Merci tertous et bon WE
papou
Le #3632671
Bonjour
Il faut ajouter le paramètre Lookat :
Set c = .Find(What:=intValCherche, LookIn:=xlValues,Lookat:=xlwhole)

Cordialement
Pascal

"Le Nordiste" news:
Bonjour tertous,

J'utilise FIND dans le code ci dessous pour détecter les occurences
d'un entier intValCherche

'======================== Dim intValCherche As Integer
intValCherche = 5

With Worksheets("brouillon").Range("a4:a20")

Set c = .Find(What:=intValCherche, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'MARQUER LA LIGNE
c.EntireRow.Select
With Selection.Font
.Strikethrough = True
.FontStyle = "Italique"
.Size = 6
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

'======================== ce code me détecte 5 mais aussi 15, 25, 35......
Comment se limiter à la valeur de l'entier ?


Remerciements anticipés,
Poster une réponse
Anonyme