Recherchev sur nom feuilles

Nashou · 30 Novembre 2010

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 · 30 Novembre 2010

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

Recherchev sur nom feuilles

Nashou

Guest

Pièces jointes

Nashou

Guest

Discussions similaires

Recherchev sur nom feuilles

Nashou

Guest

Pièces jointes

Nashou

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency