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 ?
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