Recherche cellule nommée VBA

[yadla]

Bonjour,

J'ai déjà fait une recherche de cellule contenant un texte précis.

Mais comment faire pour chercher une cellule nommé.

Par exemple, le taux. Je nomme ma cellule "taux".

Je veux chercher cette cellule pour copier sa valeur dans une autre cellule.

J'ai modifié mon code en :

Cells.Name.Find("taux", , xlValues, xlWhole)

Comment faire pour que ca marche ?

 

[Staple1600]

Re : Recherche cellule nommée VBA

Bonjour

redit: suite message Catrice
j'avais mal lu la question
ca doit marcher comme ca aussi (j'ai pas testé...(lol))
[Taux].Copy(destination)

edit: une autre méthode

Sub Macro2()
For Each cell In ActiveSheet.UsedRange
If cell.Value = [taux] Then
cell.Font.Bold = True
MsgBox "Valeur cherchée : " & [taux] & Chr(13) _
& "Valeur trouvée dans la cellule: " & cell.Address(0, 0)
End If
Next
End Sub

A tester

[LEFT]Sub Macro1()
quoi = [taux]' cellue nommée
Cells.Find(What:=quoi, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate[/LEFT]
 
[LEFT]End Sub[/LEFT]

 

[yadla]

Re : Recherche cellule nommée VBA

Bonjour Staple1600,

Ca fonctionne, en fait j'ai remplacé mes "" par des [] et ca marche 🙂

Merci de m'avoir répondu 😉

 

[Catrice]

Re : Recherche cellule nommée VBA

Bonjour,

Pourquoi chercher la cellule Taux puisqu'elle est nommée ?...

Sheets("Feuil1").Range("Taux").Copy(destination)

 

[yadla]

Re : Recherche cellule nommée VBA

Re-bonjour Catrice 😉 ,

Evidemment, ce que tu me proposes est plus simple encore...

Je dois avoir l'esprit trop tordu. Je ne pensais pas qu'on pouvais directement appeler Range("taux").

Ca va encore allégé mon code 😀

Merci à toi, encore et encore