Erreur lorsqu'on recherche des cellules par leur nom

[saadmechiche]

Bonjour si vous lancez le code suivant vous constaterai une erreur , pouvez vous me dire ce que je dois corriger.

Sub essai()
Dim cell As Range
For Each cell In Sheet1.UsedRange
If cell.Name.Name = "test" Then
cell.Interior.ColorIndex = 3
End If
Next
End Sub

merci

 

[Dranreb]

Re : Erreur lorsqu'on recherche des cellules par leur nom

Bonsoir.
Je dirais à priori:

Sub essai()
Application.Range("test").Interior.ColorIndex = 3
End Sub

À +

 

[ERIC S]

Re : Erreur lorsqu'on recherche des cellules par leur nom

Bonjour

à essayer
For Each cell In Sheets("Sheet1").UsedRange

 

[saadmechiche]

Re : Erreur lorsqu'on recherche des cellules par leur nom

Bonjour et merci pour vos reponses , que dois je faire dans le code suivant pour qu'il marche.

Sub essai()
Dim cell As Range
For Each cell In Sheets("Sheet1").UsedRange
If cell.Name.Name = "test" Then
MsgBox cstr(cell.Value)
End If
Next
End Sub

Merci

 

[Staple1600]

Re : Erreur lorsqu'on recherche des cellules par leur nom

Bonjour


Combien de cellules contient ta zone nommeé "test"

Pourquoi veux tu passer par une boucle?
Sub a()
[test].Interior.ColorIndex = 3
End Sub

 

[Staple1600]

Re : Erreur lorsqu'on recherche des cellules par leur nom

Re


Autant aller directement dans la zone nommée

Sub essaiII()
Dim cell As Range
For Each cell In [test]
MsgBox cell.Text
Next
End Sub

 

[saadmechiche]

Re : Erreur lorsqu'on recherche des cellules par leur nom

Merci Staple1600 , ton dernier code marche niquel