Recherchev sur nom feuilles

[Nashou]

Bonjour à tous,

Je cherche à comparer le nom d'une cellule au nom d'une feuille par boucle.
S'il trouve une correspondance, alors il met "OK" dans la cellule d'à coté.
Je pensais que ce bout de code suffirait mais il me rapporte que ws = nothing

Dois-je utiliser recherchev ou manque t-il quelque chose à mon code ?

Dim ws As Worksheet
Dim cell As Range

For i = 1 To Range("A65536").End(xlUp).Row

For Each ws In ThisWorkbook

If ws.Name = Cells(i, 1) Then
Cells(i, 2) = "OK"
End If

Next ws

Next i

End Sub

 

[Nashou]

Re : Recherchev sur nom feuilles

oulala j'ai trouvé en un éclair !

Erreur de syntaxe :

Dim ws As Worksheet
Dim cell As Range

For i = 1 To Range("A65536").End(xlUp).Row

For Each ws In Worksheets

If ws.Name = Cells(i, 1).Value Then
Cells(i, 2) = "OK"
End If

Next ws

Next i

End Sub