Erreur lorsqu'on recherche des cellules par leur nom

saadmechiche · 15 Décembre 2012

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

Code:

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 · 15 Décembre 2012

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

Bonsoir.
Je dirais à priori:

VB:

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

À +

ERIC S · 15 Décembre 2012

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

Bonjour

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

saadmechiche · 15 Décembre 2012

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.

Code:

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 · 15 Décembre 2012

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 · 15 Décembre 2012

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

Re

Autant aller directement dans la zone nommée

Code:

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

saadmechiche · 15 Décembre 2012

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

Merci Staple1600 , ton dernier code marche niquel

Erreur lorsqu'on recherche des cellules par leur nom

saadmechiche

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

ERIC S

XLDnaute Barbatruc

saadmechiche

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

saadmechiche

XLDnaute Junior

Discussions similaires