recherche dans une plage nommée

t'as pas rèvé, là ?
chez moi, ça marge pareil !
BI:AR1 nommé plg dans la page excel
With Sheets("codes").Range("plg")
(t'as pas oublié les "" assourdie que tu es par le bruit des cloches ?)


"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
OSBIC2#HEHA.3988@tk2msftngp13.phx.gbl...

Coucou !
j'espère que vous êtes sortis de la fatigue post prandiale pascale et
que vous aurez la soluce à ma question :
je cherche à faire une recherche d'un mot dans une plage nommée

truc = "bip"
With Sheets("codes").Range("B1:AR1")
Set p = .Find(truc, LookIn:=xlValues)
resultat = p.Column - 2
MsgBox (resultat)
End With

fonctionne très bien
mais si je définis Plg par B1:AR1
et que j'utilise plg dans cette proc, ben ça marche plus.
Pourquoi ? et comment faire ?
merci !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

???
ben non !


Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

t'as pas rèvé, là ?
chez moi, ça marge pareil !
BI:AR1 nommé plg dans la page excel
With Sheets("codes").Range("plg")
(t'as pas oublié les "" assourdie que tu es par le bruit des cloches ?)


"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
OSBIC2#HEHA.3988@tk2msftngp13.phx.gbl...

Coucou !
j'espère que vous êtes sortis de la fatigue post prandiale pascale et
que vous aurez la soluce à ma question :
je cherche à faire une recherche d'un mot dans une plage nommée

truc = "bip"
With Sheets("codes").Range("B1:AR1")
Set p = .Find(truc, LookIn:=xlValues)
resultat = p.Column - 2
MsgBox (resultat)
End With

fonctionne très bien
mais si je définis Plg par B1:AR1
et que j'utilise plg dans cette proc, ben ça marche plus.
Pourquoi ? et comment faire ?
merci !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

2 façons de faire :


'--------------------------------
Sub Trouver()
Dim P As Variant, Truc As String

Truc = "bip"
On Error Resume Next
With Sheets("Feuil1").Range("plg")
P = .Find(Truc, LookIn:=xlValues, _
Lookat:=xlWhole).Column - 2
If Err = 0 Then
MsgBox P
Else
On Error GoTo 0
MsgBox "Valeur non trouvée."
End If
End With

End Sub

'--------------------------------
Sub Trouver2()

Dim P As Variant, Truc As String
Truc = "bip"
With Sheets("Feuil1").Range("plg")
P = Application.Match(Truc, Range("plg"), 0)
End With
If Not IsError(P) Then
MsgBox P - 2
Else
On Error GoTo 0
MsgBox "Valeur non trouvée."
End If

End Sub
'--------------------------------



Salutations!





"Misange" <misange@devinez-ou.net> a écrit dans le message de news:%23SgcFxLIEHA.3848@tk2msftngp13.phx.gbl...
???
ben non !


Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

t'as pas rèvé, là ?
chez moi, ça marge pareil !
BI:AR1 nommé plg dans la page excel
With Sheets("codes").Range("plg")
(t'as pas oublié les "" assourdie que tu es par le bruit des cloches ?)


"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
OSBIC2#HEHA.3988@tk2msftngp13.phx.gbl...

Coucou !
j'espère que vous êtes sortis de la fatigue post prandiale pascale et
que vous aurez la soluce à ma question :
je cherche à faire une recherche d'un mot dans une plage nommée

truc = "bip"
With Sheets("codes").Range("B1:AR1")
Set p = .Find(truc, LookIn:=xlValues)
resultat = p.Column - 2
MsgBox (resultat)
End With

fonctionne très bien
mais si je définis Plg par B1:AR1
et que j'utilise plg dans cette proc, ben ça marche plus.
Pourquoi ? et comment faire ?
merci !
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Et comme ça ?

MsgBox [if(or("truc"=plg),"Trouvé","Non trouvé")]

AV