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 ?
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 ?
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 ?
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" 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
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" 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
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" 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
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 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
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" 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
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" 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
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 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
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" 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
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