Help Macro !!

Salut

Sub test()
ligne = [a65536].End(xlUp).Row
Range("a" & ligne + 1).FormulaLocal = "=sous.total(9;a5:a" & ligne & ")"
End Sub

a+
rural thierry
"JPP" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
1d9901c4dc5b$2ec2a7a0$a401280a@phx.gbl...
Bonjour

Dans une macro je doit écrire la formule :
Sous-total(9;A5:A"X")
X étant la fin de la colonne mais je ne sait pas ou elle
s'arrête

quelqu'un pourrait il m'aider ,

Merci

bonjour,

selon les programmeurs, il y a plusieurs manières de répondre. Si tu connais
avec certitude la colonne dont tu désires connaitre la dernière cellule non
vide, tu peux écrire les instructions suivantes en supposant que c'est sur la
colonne A que tu veux faire la recherche.

if isempty(cells(65536,1))then
derligne=range("A65536").end(xlup).row
if derligne=1 and isempty(cells(1,1)) then msgbox "pas de données dans la
colonne"
else
derlignee536
end if

derligne te donnera le N° de la ligne où se situe la dernière cellule non
vide.

A+

Bonjour

Dans une macro je doit écrire la formule :
Sous-total(9;A5:A"X")
X étant la fin de la colonne mais je ne sait pas ou elle
s'arrête

quelqu'un pourrait il m'aider ,

Merci

Pour mettre la formule en A1 :
[A1] = "=subtotal(9,A5:A" & [A65536].End(3).Row & ")"
Pour y mettre le résultat :
[A1] = Evaluate("subtotal(9,A5:A" & [A65536].End(3).Row & ")")

AV

Merci Bcp

-----Message d'origine-----
Pour mettre la formule en A1 :
[A1] = "=subtotal(9,A5:A" & [A65536].End(3).Row & ")"
Pour y mettre le résultat :
[A1] = Evaluate("subtotal(9,A5:A" & [A65536].End
(3).Row & ")")

AV


.

merci BCP

-----Message d'origine-----
bonjour,

selon les programmeurs, il y a plusieurs manières de
répondre. Si tu connais

avec certitude la colonne dont tu désires connaitre la
dernière cellule non

vide, tu peux écrire les instructions suivantes en
supposant que c'est sur la

colonne A que tu veux faire la recherche.

if isempty(cells(65536,1))then
derligne=range("A65536").end(xlup).row
if derligne=1 and isempty(cells(1,1)) then msgbox "pas
de données dans la

colonne"
else
derligne=65536
end if

derligne te donnera le N° de la ligne où se situe la
dernière cellule non

vide.

A+

Bonjour

Dans une macro je doit écrire la formule :
Sous-total(9;A5:A"X")
X étant la fin de la colonne mais je ne sait pas ou
elle

s'arrête

quelqu'un pourrait il m'aider ,

Merci

.

MERCI BCP

-----Message d'origine-----
Salut

Sub test()
ligne = [a65536].End(xlUp).Row
Range("a" & ligne + 1).FormulaLocal = "=sous.total
(9;a5:a" & ligne & ")"

End Sub

a+
rural thierry
"JPP" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:

1d9901c4dc5b$2ec2a7a0$a401280a@phx.gbl...
Bonjour

Dans une macro je doit écrire la formule :
Sous-total(9;A5:A"X")
X étant la fin de la colonne mais je ne sait pas ou elle
s'arrête

quelqu'un pourrait il m'aider ,

Merci


.

P'tite précision toutefois
ne pas utiliser Range("a" & ligne + 1) si un filtre est posé
tu risque t'écrire en plein sur ces données
donc bien vérifié qu'un filtre n'est pas actif
ou écrire ailleurs en a1 comme le suggèrait AV
a+
rural thierry
<anonymous@discussions.microsoft.com> a écrit dans le message de news:
128901c4dc60$7196dce0$a501280a@phx.gbl...
MERCI BCP

-----Message d'origine-----
Salut

Sub test()
ligne = [a65536].End(xlUp).Row
FormulaLocal = "=sous.total
(9;a5:a" & ligne & ")"

End Sub

a+
rural thierry
"JPP" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:

1d9901c4dc5b$2ec2a7a0$a401280a@phx.gbl...
Bonjour

Dans une macro je doit écrire la formule :
Sous-total(9;A5:A"X")
X étant la fin de la colonne mais je ne sait pas ou elle
s'arrête

quelqu'un pourrait il m'aider ,

Merci


.