récupérer l'adresse de cellules d'une formule

Salut,
un truc de ce genre
Function zoneST(x) As Range
Dim f As String
f = Range(x).Formula
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) - InStr(f, ",") -
1))
End Function
Sub efface()
zoneST("d8").EntireRow.Delete
Range("d8").Value = ""
End Sub

--
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
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 156d001c41d61$8e7e4690$a001280a@phx.gbl...
bonjour !
à partir de la formule SOUS.TOTAL est-il possible de
sélectionner les lignes concernées par ce sous-total.
Pourquoi ? tout simplement parce que j'ai une liste avec
des sous-totaux, et je souhaite trouver une macro qui me
permette de supprimer les lignes dont le sous total est
égal à zéro, et donc qu'il ne reste plus dans la liste que
les sous-totaux différents de zéro.
Pensez-vous que cela soit possible ? et si oui comment ?
Merci d'avance de vos réponses

un truc de ce genre ? Ok mais je suis débutant, et je
comprends rien à cette macro que tu me donnes. J'ai essayé
de la tester mais ça bloque sur Set zoneST = Range(Mid(...

-----Message d'origine-----
Salut,
un truc de ce genre
Function zoneST(x) As Range
Dim f As String
f = Range(x).Formula
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") -

1))
End Function
Sub efface()
zoneST("d8").EntireRow.Delete
Range("d8").Value = ""
End Sub

--
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
"gaston" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news: 156d001c41d61$8e7e4690$a001280a@phx.gbl...
bonjour !
à partir de la formule SOUS.TOTAL est-il possible de
sélectionner les lignes concernées par ce sous-total.
Pourquoi ? tout simplement parce que j'ai une liste avec
des sous-totaux, et je souhaite trouver une macro qui me
permette de supprimer les lignes dont le sous total est
égal à zéro, et donc qu'il ne reste plus dans la liste que
les sous-totaux différents de zéro.
Pensez-vous que cela soit possible ? et si oui comment ?
Merci d'avance de vos réponses


.

Salut,
attention au passage à la ligne du à la transmission du message...
'début de la ligne ================================ Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) - InStr(f, ",") -1))
' fin de la ligne ================================== bien sur il faut que la plage du sous total existe et qu'en D8 on ait la
formule soustotal ....
--
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
<anonymous@discussions.microsoft.com> a écrit dans le message de news:
1a4a601c41d80$50fc7c00$a101280a@phx.gbl...
un truc de ce genre ? Ok mais je suis débutant, et je
comprends rien à cette macro que tu me donnes. J'ai essayé
de la tester mais ça bloque sur Set zoneST = Range(Mid(...

-----Message d'origine-----
Salut,
un truc de ce genre
Function zoneST(x) As Range
Dim f As String
f = Range(x).Formula
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") -

1))
End Function
Sub efface()
zoneST("d8").EntireRow.Delete
Range("d8").Value = ""
End Sub

--
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
"gaston" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news: 156d001c41d61$8e7e4690$a001280a@phx.gbl...
bonjour !
à partir de la formule SOUS.TOTAL est-il possible de
sélectionner les lignes concernées par ce sous-total.
Pourquoi ? tout simplement parce que j'ai une liste avec
des sous-totaux, et je souhaite trouver une macro qui me
permette de supprimer les lignes dont le sous total est
égal à zéro, et donc qu'il ne reste plus dans la liste que
les sous-totaux différents de zéro.
Pensez-vous que cela soit possible ? et si oui comment ?
Merci d'avance de vos réponses


.

ok ça marche !
seulement mon problème reste en partie car d'une part j'ai
plusieurs sous totaux qui sont égaux à zero et j'aimerai
que TOUTES les lignes concernées s'effacent, et d'autre
part, j'aimerai aussi que la ligne du sous total en
question s'efface aussi...mais j'en demande peut-être
trop ?

-----Message d'origine-----
Salut,
attention au passage à la ligne du à la transmission du
message...

'début de la ligne ========================= ========
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") -1))

' fin de la ligne ========================= ==========
bien sur il faut que la plage du sous total existe et
qu'en D8 on ait la

formule soustotal ....
--
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
<anonymous@discussions.microsoft.com> a écrit dans le
message de news:

1a4a601c41d80$50fc7c00$a101280a@phx.gbl...
un truc de ce genre ? Ok mais je suis débutant, et je
comprends rien à cette macro que tu me donnes. J'ai essayé
de la tester mais ça bloque sur Set zoneST = Range(Mid
(...

-----Message d'origine-----
Salut,
un truc de ce genre
Function zoneST(x) As Range
Dim f As String
f = Range(x).Formula
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") -

1))
End Function
Sub efface()
zoneST("d8").EntireRow.Delete
Range("d8").Value = ""
End Sub

--
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
"gaston" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news: 156d001c41d61$8e7e4690$a001280a@phx.gbl...
bonjour !
à partir de la formule SOUS.TOTAL est-il possible de
sélectionner les lignes concernées par ce sous-total.
Pourquoi ? tout simplement parce que j'ai une liste avec
des sous-totaux, et je souhaite trouver une macro qui me
permette de supprimer les lignes dont le sous total est
égal à zéro, et donc qu'il ne reste plus dans la liste
que

les sous-totaux différents de zéro.
Pensez-vous que cela soit possible ? et si oui comment ?
Merci d'avance de vos réponses


.

.