salut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelleCoucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
salut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelle
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
salut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelleCoucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans l'exemple
ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" a écrit dans le message de news:
%Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans l'exemple
ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23np48xImHHA.4592@TK2MSFTNGP05.phx.gbl...
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans l'exemple
ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" a écrit dans le message de news:
%Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Tu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" a écrit dans le message de news:
%bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans l'exemple
ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" a écrit dans le message de news:
%Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Tu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23VLh0NJmHHA.4752@TK2MSFTNGP04.phx.gbl...
bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans l'exemple
ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23np48xImHHA.4592@TK2MSFTNGP05.phx.gbl...
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Tu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" a écrit dans le message de news:
%bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans l'exemple
ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" a écrit dans le message de news:
%Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour Mon ange
héhé ! intéressante soluce. mais la même à l'intersection de la dernière
ligne et de la dernière colonne ?
Une tite question et plein de répondeurs avec des soluces différentes,
y'a pas c'est sympa le MPFe ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netsalut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelleCoucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une
formule qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
Bonjour Mon ange
héhé ! intéressante soluce. mais la même à l'intersection de la dernière
ligne et de la dernière colonne ?
Une tite question et plein de répondeurs avec des soluces différentes,
y'a pas c'est sympa le MPFe ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
salut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelle
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une
formule qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
Bonjour Mon ange
héhé ! intéressante soluce. mais la même à l'intersection de la dernière
ligne et de la dernière colonne ?
Une tite question et plein de répondeurs avec des soluces différentes,
y'a pas c'est sympa le MPFe ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netsalut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelleCoucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une
formule qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
c'est quoi excelabo ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netTu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" a écrit dans le message de news:
%bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans
l'exemple ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" a écrit dans le message de news:
%Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
c'est quoi excelabo ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Tu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23VLh0NJmHHA.4752@TK2MSFTNGP04.phx.gbl...
bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans
l'exemple ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23np48xImHHA.4592@TK2MSFTNGP05.phx.gbl...
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
c'est quoi excelabo ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netTu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" a écrit dans le message de news:
%bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans
l'exemple ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" a écrit dans le message de news:
%Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
c'est quoi excelabo ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netTu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" a écrit dans le message de news:
%bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans
l'exemple ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" a écrit dans le message de news:
%Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
c'est quoi excelabo ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Tu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23VLh0NJmHHA.4752@TK2MSFTNGP04.phx.gbl...
bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans
l'exemple ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23np48xImHHA.4592@TK2MSFTNGP05.phx.gbl...
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
c'est quoi excelabo ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netTu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" a écrit dans le message de news:
%bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans
l'exemple ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" a écrit dans le message de news:
%Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
pour l'adresse complete,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
If Not IsError([y]) Then Names("y").Delete
Names.Add Name:="y",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",Column(Feuil2!$D$9:$Z$58)))"
MsgBox Cells([z], [y]).Address
isabelleBonjour Mon ange
héhé ! intéressante soluce. mais la même à l'intersection de la
dernière ligne et de la dernière colonne ?
Une tite question et plein de répondeurs avec des soluces différentes,
y'a pas c'est sympa le MPFe ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netsalut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelleCoucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une
formule qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
pour l'adresse complete,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
If Not IsError([y]) Then Names("y").Delete
Names.Add Name:="y",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",Column(Feuil2!$D$9:$Z$58)))"
MsgBox Cells([z], [y]).Address
isabelle
Bonjour Mon ange
héhé ! intéressante soluce. mais la même à l'intersection de la
dernière ligne et de la dernière colonne ?
Une tite question et plein de répondeurs avec des soluces différentes,
y'a pas c'est sympa le MPFe ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
salut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelle
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une
formule qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
pour l'adresse complete,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
If Not IsError([y]) Then Names("y").Delete
Names.Add Name:="y",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",Column(Feuil2!$D$9:$Z$58)))"
MsgBox Cells([z], [y]).Address
isabelleBonjour Mon ange
héhé ! intéressante soluce. mais la même à l'intersection de la
dernière ligne et de la dernière colonne ?
Une tite question et plein de répondeurs avec des soluces différentes,
y'a pas c'est sympa le MPFe ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netsalut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelleCoucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une
formule qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
Sub IntersectionDerLigneColonne()
x = Cells([D9:Z58].Find("*", , xlValues, , xlByRows, xlPrevious).Row,
[D9:Z58].Find("*", , xlValues, , xlByColumns, xlPrevious).Column).Address
MsgBox x
End Sub
http://cjoint.com/?frrxjA1zjn
JB
"Misange" a écrit dans le message de news:
%23tQJ$c'est quoi excelabo ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netTu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" a écrit dans le message de news:
%bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans
l'exemple ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" a écrit dans le message de news:
%Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Sub IntersectionDerLigneColonne()
x = Cells([D9:Z58].Find("*", , xlValues, , xlByRows, xlPrevious).Row,
[D9:Z58].Find("*", , xlValues, , xlByColumns, xlPrevious).Column).Address
MsgBox x
End Sub
http://cjoint.com/?frrxjA1zjn
JB
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23tQJ$YJmHHA.4868@TK2MSFTNGP06.phx.gbl...
c'est quoi excelabo ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Tu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23VLh0NJmHHA.4752@TK2MSFTNGP04.phx.gbl...
bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans
l'exemple ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23np48xImHHA.4592@TK2MSFTNGP05.phx.gbl...
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Sub IntersectionDerLigneColonne()
x = Cells([D9:Z58].Find("*", , xlValues, , xlByRows, xlPrevious).Row,
[D9:Z58].Find("*", , xlValues, , xlByColumns, xlPrevious).Column).Address
MsgBox x
End Sub
http://cjoint.com/?frrxjA1zjn
JB
"Misange" a écrit dans le message de news:
%23tQJ$c'est quoi excelabo ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netTu avais la réponse dans jb-find sur Excelabo!
JB
"Misange" a écrit dans le message de news:
%bonjour Jacques,
ce qu'il me faudrait c'est l'intersection des deux ;-)
autrement dit l'adresse de la cellule représentée par un x dans
l'exemple ci dessous
----------------------------
-----------
----------------------------------
--
-----------------------
----------------------- X
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour Misange,
Peut être ça?
Sub dernièreligne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByRows, xlPrevious)
MsgBox x.Address
End Sub
Sub dernièreColonne()
Set x = [D9:Z30].Find("*", , xlValues, , xlByColumns, xlPrevious)
MsgBox x.Address
End Sub
JB
"Misange" a écrit dans le message de news:
%Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
--
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
YESSS !
bravo Isabelle t'es la meilleure :-)
mille mercis
trouver cette adresse sur une feuille ne comportant rien d'autre c'était
OK mais j'arrivais vraiment pas à le restreindre à une plage donnée
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netpour l'adresse complete,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
If Not IsError([y]) Then Names("y").Delete
Names.Add Name:="y",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",Column(Feuil2!$D$9:$Z$58)))"
MsgBox Cells([z], [y]).Address
isabelleBonjour Mon ange
héhé ! intéressante soluce. mais la même à l'intersection de la
dernière ligne et de la dernière colonne ?
Une tite question et plein de répondeurs avec des soluces
différentes, y'a pas c'est sympa le MPFe ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netsalut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelleCoucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une
formule qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage
qui contient une valeur (non vide). Je ne trouve que des trucs
hyper compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
YESSS !
bravo Isabelle t'es la meilleure :-)
mille mercis
trouver cette adresse sur une feuille ne comportant rien d'autre c'était
OK mais j'arrivais vraiment pas à le restreindre à une plage donnée
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
pour l'adresse complete,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
If Not IsError([y]) Then Names("y").Delete
Names.Add Name:="y",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",Column(Feuil2!$D$9:$Z$58)))"
MsgBox Cells([z], [y]).Address
isabelle
Bonjour Mon ange
héhé ! intéressante soluce. mais la même à l'intersection de la
dernière ligne et de la dernière colonne ?
Une tite question et plein de répondeurs avec des soluces
différentes, y'a pas c'est sympa le MPFe ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
salut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelle
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une
formule qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage
qui contient une valeur (non vide). Je ne trouve que des trucs
hyper compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
YESSS !
bravo Isabelle t'es la meilleure :-)
mille mercis
trouver cette adresse sur une feuille ne comportant rien d'autre c'était
OK mais j'arrivais vraiment pas à le restreindre à une plage donnée
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netpour l'adresse complete,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
If Not IsError([y]) Then Names("y").Delete
Names.Add Name:="y",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",Column(Feuil2!$D$9:$Z$58)))"
MsgBox Cells([z], [y]).Address
isabelleBonjour Mon ange
héhé ! intéressante soluce. mais la même à l'intersection de la
dernière ligne et de la dernière colonne ?
Une tite question et plein de répondeurs avec des soluces
différentes, y'a pas c'est sympa le MPFe ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netsalut Misange,
If Not IsError([z]) Then Names("z").Delete
Names.Add Name:="z",
RefersTo:="=MAX(IF(Feuil2!$D$9:$Z$58<>"""",ROW(Feuil2!$D$9:$Z$58)))"
MsgBox [z]
isabelleCoucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une
formule qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage
qui contient une valeur (non vide). Je ne trouve que des trucs
hyper compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
Il y a une coquille dû à un copier coller
Remplace Cells par Plg dans cette ligne de code
DerLig = Cells.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
"MichDenis" a écrit dans le message de news:
une fonction personnalisée que tu mets dans un module standard :
Et dans la cellule tu écris : ÞrCell_NonVide(A1:G21)
Ceci ne renvoie pas la dernière cellule utilisée dans la feuille mais
la dernière cellule dont la valeur est différente de ""
'-----------------------
Function DerCell_NonVide(Plg As Range) As String
Dim DerLig As Long, DerCol As Integer
DerLig = Cells.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
DerCol = Plg.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
DerCell_NonVide = Cells(DerLig, DerCol).Address
End Function
'-----------------------
"Misange" a écrit dans le message de news:
%
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
Il y a une coquille dû à un copier coller
Remplace Cells par Plg dans cette ligne de code
DerLig = Cells.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
u5R9NKJmHHA.3980@TK2MSFTNGP06.phx.gbl...
une fonction personnalisée que tu mets dans un module standard :
Et dans la cellule tu écris : ÞrCell_NonVide(A1:G21)
Ceci ne renvoie pas la dernière cellule utilisée dans la feuille mais
la dernière cellule dont la valeur est différente de ""
'-----------------------
Function DerCell_NonVide(Plg As Range) As String
Dim DerLig As Long, DerCol As Integer
DerLig = Cells.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
DerCol = Plg.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
DerCell_NonVide = Cells(DerLig, DerCol).Address
End Function
'-----------------------
"Misange" <misange@devinez-ou.net> a écrit dans le message de news:
%23np48xImHHA.4592@TK2MSFTNGP05.phx.gbl...
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi
Il y a une coquille dû à un copier coller
Remplace Cells par Plg dans cette ligne de code
DerLig = Cells.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
"MichDenis" a écrit dans le message de news:
une fonction personnalisée que tu mets dans un module standard :
Et dans la cellule tu écris : ÞrCell_NonVide(A1:G21)
Ceci ne renvoie pas la dernière cellule utilisée dans la feuille mais
la dernière cellule dont la valeur est différente de ""
'-----------------------
Function DerCell_NonVide(Plg As Range) As String
Dim DerLig As Long, DerCol As Integer
DerLig = Cells.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
DerCol = Plg.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
DerCell_NonVide = Cells(DerLig, DerCol).Address
End Function
'-----------------------
"Misange" a écrit dans le message de news:
%
Coucou,
j'ai une plage de données, D9:Z58. Chaque cellule contient une formule
qui renvoie soit une valeur soit "".
Je cherche *en VBA* l'adresse de la dernière cellule de la plage qui
contient une valeur (non vide). Je ne trouve que des trucs hyper
compliqués. Qu'est ce qui vous semble le plus simple ?
marchi