bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news: bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" <nospam@nospam.no> a écrit dans le message de news:40AA01EB.AFC9F211@nospam.no...
bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news: bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Pascal Engelmajer
Salut,
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row NbHeuresMoisMax=ligne
End Function aquoi sert le zz ?
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Salut,
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
NbHeuresMoisMax=ligne
End Function
aquoi sert le zz ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Bob le retour" <nospam@nospam.no> a écrit dans le message de news:
40AA01EB.AFC9F211@nospam.no...
bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row NbHeuresMoisMax=ligne
End Function aquoi sert le zz ?
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
patrick
Bonjour
le find peut s'utiliser dans une function qui est appelée par une sub exemple à adapter Function cherche_nom() With ActiveSheet.Range("d:d") Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole) If Not foundcell Is Nothing Then cherche_nom = foundcell.address End If End With end function
@+ patrick
"michdenis" a écrit dans le message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Bonjour
le find peut s'utiliser dans une function
qui est appelée par une sub
exemple à adapter
Function cherche_nom()
With ActiveSheet.Range("d:d")
Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole)
If Not foundcell Is Nothing Then
cherche_nom = foundcell.address
End If
End With
end function
@+
patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message news:
OStzjQNPEHA.624@TK2MSFTNGP11.phx.gbl...
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" <nospam@nospam.no> a écrit dans le message de
news:40AA01EB.AFC9F211@nospam.no...
bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
le find peut s'utiliser dans une function qui est appelée par une sub exemple à adapter Function cherche_nom() With ActiveSheet.Range("d:d") Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole) If Not foundcell Is Nothing Then cherche_nom = foundcell.address End If End With end function
@+ patrick
"michdenis" a écrit dans le message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
michdenis
Et oui Patrick,
J'ai seulement déduit que la fonction était utilisée directement dans la feuille ! mais je peux me tromper... attendons voir ce qu'en dit le demandeur.
Salutations!
"patrick" a écrit dans le message de news:c8d0qd$o91$ Bonjour
le find peut s'utiliser dans une function qui est appelée par une sub exemple à adapter Function cherche_nom() With ActiveSheet.Range("d:d") Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole) If Not foundcell Is Nothing Then cherche_nom = foundcell.address End If End With end function
@+ patrick
"michdenis" a écrit dans le message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Et oui Patrick,
J'ai seulement déduit que la fonction était utilisée directement dans la feuille ! mais je peux me tromper... attendons
voir ce qu'en dit le demandeur.
Salutations!
"patrick" <stop_patrick.mathe@libertysurf.fr> a écrit dans le message de news:c8d0qd$o91$1@muguet.sncf.fr...
Bonjour
le find peut s'utiliser dans une function
qui est appelée par une sub
exemple à adapter
Function cherche_nom()
With ActiveSheet.Range("d:d")
Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole)
If Not foundcell Is Nothing Then
cherche_nom = foundcell.address
End If
End With
end function
@+
patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message news:
OStzjQNPEHA.624@TK2MSFTNGP11.phx.gbl...
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" <nospam@nospam.no> a écrit dans le message de
news:40AA01EB.AFC9F211@nospam.no...
bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
J'ai seulement déduit que la fonction était utilisée directement dans la feuille ! mais je peux me tromper... attendons voir ce qu'en dit le demandeur.
Salutations!
"patrick" a écrit dans le message de news:c8d0qd$o91$ Bonjour
le find peut s'utiliser dans une function qui est appelée par une sub exemple à adapter Function cherche_nom() With ActiveSheet.Range("d:d") Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole) If Not foundcell Is Nothing Then cherche_nom = foundcell.address End If End With end function
@+ patrick
"michdenis" a écrit dans le message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
patrick
Bonjour michdenis
oui effectivement on peut croire qu'il veut s'en servir comme fonction de feuille
@+
patrick
"michdenis" a écrit dans le message news:
Et oui Patrick,
J'ai seulement déduit que la fonction était utilisée directement dans la feuille ! mais je peux me tromper... attendons
voir ce qu'en dit le demandeur.
Salutations!
"patrick" a écrit dans le message de news:c8d0qd$o91$
Bonjour
le find peut s'utiliser dans une function qui est appelée par une sub exemple à adapter Function cherche_nom() With ActiveSheet.Range("d:d") Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole) If Not foundcell Is Nothing Then cherche_nom = foundcell.address End If End With end function
@+ patrick
"michdenis" a écrit dans le message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Bonjour michdenis
oui effectivement on peut croire qu'il veut s'en servir comme
fonction de feuille
@+
patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message news:
uDpOwiNPEHA.3748@TK2MSFTNGP09.phx.gbl...
Et oui Patrick,
J'ai seulement déduit que la fonction était utilisée directement dans la
feuille ! mais je peux me tromper... attendons
voir ce qu'en dit le demandeur.
Salutations!
"patrick" <stop_patrick.mathe@libertysurf.fr> a écrit dans le message de
news:c8d0qd$o91$1@muguet.sncf.fr...
Bonjour
le find peut s'utiliser dans une function
qui est appelée par une sub
exemple à adapter
Function cherche_nom()
With ActiveSheet.Range("d:d")
Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole)
If Not foundcell Is Nothing Then
cherche_nom = foundcell.address
End If
End With
end function
@+
patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message news:
OStzjQNPEHA.624@TK2MSFTNGP11.phx.gbl...
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction
personnelle.
C'est comme ça !
Salutations!
"Bob le retour" <nospam@nospam.no> a écrit dans le message de
news:40AA01EB.AFC9F211@nospam.no...
bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
oui effectivement on peut croire qu'il veut s'en servir comme fonction de feuille
@+
patrick
"michdenis" a écrit dans le message news:
Et oui Patrick,
J'ai seulement déduit que la fonction était utilisée directement dans la feuille ! mais je peux me tromper... attendons
voir ce qu'en dit le demandeur.
Salutations!
"patrick" a écrit dans le message de news:c8d0qd$o91$
Bonjour
le find peut s'utiliser dans une function qui est appelée par une sub exemple à adapter Function cherche_nom() With ActiveSheet.Range("d:d") Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole) If Not foundcell Is Nothing Then cherche_nom = foundcell.address End If End With end function
@+ patrick
"michdenis" a écrit dans le message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Daniel.M
Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" wrote in message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille
si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" <michdenis@hotmail.com> wrote in message
news:OStzjQNPEHA.624@TK2MSFTNGP11.phx.gbl...
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" <nospam@nospam.no> a écrit dans le message de
news:40AA01EB.AFC9F211@nospam.no...
bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" wrote in message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
isabelle
bonjour à vous tous,
celle ci fonctionne sur xl2002 sp2
Function Trouver(PlageDeRecherche As Range) Set zz = Range(PlageDeRecherche.Find(what:="zaza").Address) Trouver = zz.Address End Function
isabelle
Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" wrote in message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
bonjour à vous tous,
celle ci fonctionne sur xl2002 sp2
Function Trouver(PlageDeRecherche As Range)
Set zz = Range(PlageDeRecherche.Find(what:="zaza").Address)
Trouver = zz.Address
End Function
isabelle
Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille
si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" <michdenis@hotmail.com> wrote in message
news:OStzjQNPEHA.624@TK2MSFTNGP11.phx.gbl...
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" <nospam@nospam.no> a écrit dans le message de
news:40AA01EB.AFC9F211@nospam.no...
bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
Function Trouver(PlageDeRecherche As Range) Set zz = Range(PlageDeRecherche.Find(what:="zaza").Address) Trouver = zz.Address End Function
isabelle
Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" wrote in message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
isabelle
pour que ce soit plus général,
Function TrouverMot(PlageDeRecherche As Range, mot As String) Set zz = Range(PlageDeRecherche.Find(what:="" & mot).Address) TrouverMot = zz.Address End Function
isabelle
Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" wrote in message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
pour que ce soit plus général,
Function TrouverMot(PlageDeRecherche As Range, mot As String)
Set zz = Range(PlageDeRecherche.Find(what:="" & mot).Address)
TrouverMot = zz.Address
End Function
isabelle
Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille
si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" <michdenis@hotmail.com> wrote in message
news:OStzjQNPEHA.624@TK2MSFTNGP11.phx.gbl...
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" <nospam@nospam.no> a écrit dans le message de
news:40AA01EB.AFC9F211@nospam.no...
bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
Function TrouverMot(PlageDeRecherche As Range, mot As String) Set zz = Range(PlageDeRecherche.Find(what:="" & mot).Address) TrouverMot = zz.Address End Function
isabelle
Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" wrote in message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
michdenis
Bonjour Daniel,
Merci de me mettre au parfum ! une chose de régler !
(j'ai pas testé mais je fais confiance à Isabelle.)
Merci à vous deux!
Bonne fin de journée,
Salutations!
P.S. J'ai aussi eu de la difficulté avec la méthode "specialcells" avec des fonctions personnalisées s'adressant à la feuille de calcul. Sais-tu si Microsoft a solutionné cette difficulté aussi ?
"Daniel.M" a écrit dans le message de news: Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" wrote in message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Bonjour Daniel,
Merci de me mettre au parfum ! une chose de régler !
(j'ai pas testé mais je fais confiance à Isabelle.)
Merci à vous deux!
Bonne fin de journée,
Salutations!
P.S. J'ai aussi eu de la difficulté avec la méthode "specialcells" avec des fonctions personnalisées s'adressant à la
feuille de calcul. Sais-tu si Microsoft a solutionné cette difficulté aussi ?
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message de news:O0pUDEPPEHA.3020@tk2msftngp13.phx.gbl...
Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille
si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" <michdenis@hotmail.com> wrote in message
news:OStzjQNPEHA.624@TK2MSFTNGP11.phx.gbl...
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" <nospam@nospam.no> a écrit dans le message de
news:40AA01EB.AFC9F211@nospam.no...
bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
Merci de me mettre au parfum ! une chose de régler !
(j'ai pas testé mais je fais confiance à Isabelle.)
Merci à vous deux!
Bonne fin de journée,
Salutations!
P.S. J'ai aussi eu de la difficulté avec la méthode "specialcells" avec des fonctions personnalisées s'adressant à la feuille de calcul. Sais-tu si Microsoft a solutionné cette difficulté aussi ?
"Daniel.M" a écrit dans le message de news: Salut Denis,
Il paraît qu'on peu invoquer .Find dans une fonction perso appelée de la feuille si on possède la toute dernière version d'Excel (à vérifier).
Mais, en tout cas, ça ne fonctionne pas avec Excel 2000.
Salutations,
Daniel M.
"michdenis" wrote in message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Bob le retour
Merci pour vos réponses. Effectivement, la fonction est utilisée directement dans la feuille. J'ai réussi à palier au problème en la recherchant cellule par cellule, puisque la feuille en question est de dimensions raisonables. Merci !
Et oui Patrick,
J'ai seulement déduit que la fonction était utilisée directement dans la feuille ! mais je peux me tromper... attendons voir ce qu'en dit le demandeur.
Salutations!
"patrick" a écrit dans le message de news:c8d0qd$o91$ Bonjour
le find peut s'utiliser dans une function qui est appelée par une sub exemple à adapter Function cherche_nom() With ActiveSheet.Range("d:d") Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole) If Not foundcell Is Nothing Then cherche_nom = foundcell.address End If End With end function
@+ patrick
"michdenis" a écrit dans le message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
Merci pour vos réponses. Effectivement, la fonction est utilisée directement dans la feuille. J'ai réussi à palier au
problème en la recherchant cellule par cellule, puisque la feuille en question est de dimensions raisonables.
Merci !
Et oui Patrick,
J'ai seulement déduit que la fonction était utilisée directement dans la feuille ! mais je peux me tromper... attendons
voir ce qu'en dit le demandeur.
Salutations!
"patrick" <stop_patrick.mathe@libertysurf.fr> a écrit dans le message de news:c8d0qd$o91$1@muguet.sncf.fr...
Bonjour
le find peut s'utiliser dans une function
qui est appelée par une sub
exemple à adapter
Function cherche_nom()
With ActiveSheet.Range("d:d")
Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole)
If Not foundcell Is Nothing Then
cherche_nom = foundcell.address
End If
End With
end function
@+
patrick
"michdenis" <michdenis@hotmail.com> a écrit dans le message news:
OStzjQNPEHA.624@TK2MSFTNGP11.phx.gbl...
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" <nospam@nospam.no> a écrit dans le message de
news:40AA01EB.AFC9F211@nospam.no...
bjr,
la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien
qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette
ligne unique dans une procédure Sub, elle renvoie quelque chose.
Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer
Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur
la feuille1").Row
End Function
Merci pour vos réponses. Effectivement, la fonction est utilisée directement dans la feuille. J'ai réussi à palier au problème en la recherchant cellule par cellule, puisque la feuille en question est de dimensions raisonables. Merci !
Et oui Patrick,
J'ai seulement déduit que la fonction était utilisée directement dans la feuille ! mais je peux me tromper... attendons voir ce qu'en dit le demandeur.
Salutations!
"patrick" a écrit dans le message de news:c8d0qd$o91$ Bonjour
le find peut s'utiliser dans une function qui est appelée par une sub exemple à adapter Function cherche_nom() With ActiveSheet.Range("d:d") Set foundcell = .Find(MAVALEUR, LookIn:=xlValues, LookAt:=xlWhole) If Not foundcell Is Nothing Then cherche_nom = foundcell.address End If End With end function
@+ patrick
"michdenis" a écrit dans le message news:
Bonjour Bob le retour,
La fonction "Find" ne peut pas être utilisé dans une fonction personnelle.
C'est comme ça !
Salutations!
"Bob le retour" a écrit dans le message de news:
bjr, la fonction Find ne renvoie rien (Nothing) dans cette fonction -bien qu'il y a it qque chose à trouver-, alors que lorsque j'isole cette ligne unique dans une procédure Sub, elle renvoie quelque chose. Pourquoi ?
Function NbHeuresMoisMax(ByVal zz As Range) As Integer Ligne = Worksheets("Feuille1").Cells.Find(what:="Un Nom qui existe sur la feuille1").Row End Function
