Utilisation de la boucle for pour rechercher les valeurs de i - excel, vba, excel-vba

Si j'utilise un for i = 1 to 1000, comment utiliser le Cell.Find fonction pour rechercher la valeur de i dans ma feuille?

J'ai besoin de vérifier si l'un des nombres de 1 à 1000 est dans la feuille (ou la ligne ... n'a pas d'importance). De préférence en utilisant la boucle for.

J'ai fait ce qui suit:

Dim i As Integer
For i = 1 To 10
Cells.Find(What:="i", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _, SearchFormat:=False).Activate

Next i

End Sub

Réponses:

S'il n'y a qu'une seule instance de i alors trouver pourrait fonctionner pour vous.

Sub UsingFind()
Dim i As Integer, c As Range

For i = 1 To 1000
Set c = Cells.Find(what:=i, lookat:=xlWhole)

If Not c Is Nothing Then
c.Font.Bold = 1
Else:    "MsgBox "Not Found"
End If
Next i
End Sub

S'il y a plus d'une instance de i alors quelque chose d'autre devrait être utilisé, comme une boucle dans chaque cellule.

Par exemple(x est utilisé à la place de i):

Sub MoreThanOne()
Dim x As Integer, c As Range, rng As Range

Set rng = Cells.SpecialCells(xlCellTypeConstants, 23)
For x = 1 To 1000
For Each c In rng.Cells
If c = x Then
c.Font.Bold = 1
End If
Next c
Next x

End Sub