i = 10 x = Rows(i).Find(What:="fin", LookAt:=xlPart).Address
isabelle
bonjour,
complètement bouché ce soir, je n'arrive pas à faire marcher un pauvre Find, même en m'usant les yeux sur l'aide de VBA.
A partir de la dernière colonne de la ligne i càd cells(i,255) , je veux trouver la première cellule à gauche contenant le texte "fin".
Merci de me dépanner.
Bourby
papou
Bonjour Si j'ai bien compris (décidément !): MsgBox Cells(i, 256).End(xlToLeft).Find("fin", , xlValues, xlPart, xlByColumns).Address A intégrer : une gestion d'erreur si pas trouvé.
Cordialement Pascal
"bourby" a écrit dans le message de news:
bonjour,
complètement bouché ce soir, je n'arrive pas à faire marcher un pauvre Find, même en m'usant les yeux sur l'aide de VBA.
A partir de la dernière colonne de la ligne i càd cells(i,255) , je veux trouver la première cellule à gauche contenant le texte "fin".
Merci de me dépanner.
Bourby
Bonjour
Si j'ai bien compris (décidément !):
MsgBox Cells(i, 256).End(xlToLeft).Find("fin", , xlValues, xlPart,
xlByColumns).Address
A intégrer : une gestion d'erreur si pas trouvé.
Cordialement
Pascal
"bourby" <jchfer@wanadoo.fr> a écrit dans le message de news:
OCVcDXmWFHA.2664@TK2MSFTNGP15.phx.gbl...
bonjour,
complètement bouché ce soir, je n'arrive pas à faire marcher un pauvre
Find, même en m'usant les yeux sur l'aide de VBA.
A partir de la dernière colonne de la ligne i càd cells(i,255) , je veux
trouver la première cellule à gauche contenant le texte "fin".
Bonjour Si j'ai bien compris (décidément !): MsgBox Cells(i, 256).End(xlToLeft).Find("fin", , xlValues, xlPart, xlByColumns).Address A intégrer : une gestion d'erreur si pas trouvé.
Cordialement Pascal
"bourby" a écrit dans le message de news:
bonjour,
complètement bouché ce soir, je n'arrive pas à faire marcher un pauvre Find, même en m'usant les yeux sur l'aide de VBA.
A partir de la dernière colonne de la ligne i càd cells(i,255) , je veux trouver la première cellule à gauche contenant le texte "fin".
Merci de me dépanner.
Bourby
bourby
bonsoir,
merci à Pascal et Isabelle; en comparant vos réponses à mon code, et en utilisant pour la n-ième fois l'enregistreur de macros, j'ai réalisé que find recherche au sein de la plage spécifiée: maPlage.find (etc....); or je lui indiquais une seule cellule, donc il ne trouvait jamais rien... Et c'est vrai qu'un petit test pour gérer le cas où il n'a rien trouvé, ça aide.
Donc maintenant ça marche. Encore merci
Bourby
papou wrote:
Bonjour Si j'ai bien compris (décidément !): MsgBox Cells(i, 256).End(xlToLeft).Find("fin", , xlValues, xlPart, xlByColumns).Address A intégrer : une gestion d'erreur si pas trouvé.
Cordialement Pascal
"bourby" a écrit dans le message de news:
bonjour,
complètement bouché ce soir, je n'arrive pas à faire marcher un pauvre Find, même en m'usant les yeux sur l'aide de VBA.
A partir de la dernière colonne de la ligne i càd cells(i,255) , je veux trouver la première cellule à gauche contenant le texte "fin".
Merci de me dépanner.
Bourby
bonsoir,
merci à Pascal et Isabelle;
en comparant vos réponses à mon code, et en utilisant pour la n-ième
fois l'enregistreur de macros, j'ai réalisé que
find recherche au sein de la plage spécifiée: maPlage.find (etc....); or
je lui indiquais une seule cellule, donc il ne trouvait jamais rien...
Et c'est vrai qu'un petit test pour gérer le cas où il n'a rien trouvé,
ça aide.
Donc maintenant ça marche.
Encore merci
Bourby
papou wrote:
Bonjour
Si j'ai bien compris (décidément !):
MsgBox Cells(i, 256).End(xlToLeft).Find("fin", , xlValues, xlPart,
xlByColumns).Address
A intégrer : une gestion d'erreur si pas trouvé.
Cordialement
Pascal
"bourby" <jchfer@wanadoo.fr> a écrit dans le message de news:
OCVcDXmWFHA.2664@TK2MSFTNGP15.phx.gbl...
bonjour,
complètement bouché ce soir, je n'arrive pas à faire marcher un pauvre
Find, même en m'usant les yeux sur l'aide de VBA.
A partir de la dernière colonne de la ligne i càd cells(i,255) , je veux
trouver la première cellule à gauche contenant le texte "fin".
merci à Pascal et Isabelle; en comparant vos réponses à mon code, et en utilisant pour la n-ième fois l'enregistreur de macros, j'ai réalisé que find recherche au sein de la plage spécifiée: maPlage.find (etc....); or je lui indiquais une seule cellule, donc il ne trouvait jamais rien... Et c'est vrai qu'un petit test pour gérer le cas où il n'a rien trouvé, ça aide.
Donc maintenant ça marche. Encore merci
Bourby
papou wrote:
Bonjour Si j'ai bien compris (décidément !): MsgBox Cells(i, 256).End(xlToLeft).Find("fin", , xlValues, xlPart, xlByColumns).Address A intégrer : une gestion d'erreur si pas trouvé.
Cordialement Pascal
"bourby" a écrit dans le message de news:
bonjour,
complètement bouché ce soir, je n'arrive pas à faire marcher un pauvre Find, même en m'usant les yeux sur l'aide de VBA.
A partir de la dernière colonne de la ligne i càd cells(i,255) , je veux trouver la première cellule à gauche contenant le texte "fin".
