Erreur lorsqu'on recherche des cellules par leur nom

Dranreb

XLDnaute Barbatruc

• 15 Décembre 2012

• #2

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

À +

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 15 Décembre 2012

• #3

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

Bonjour

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

 

Vote positif 0 Vote négatif

S

saadmechiche

Guest

• 15 Décembre 2012

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Décembre 2012

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Décembre 2012

• #6

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

 

Vote positif 0 Vote négatif

S

saadmechiche

Guest

• 15 Décembre 2012

• #7

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

Merci Staple1600 , ton dernier code marche niquel 🙂

 

Vote positif 0 Vote négatif