Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Tu peux utiliser :
Sub test() Set plage = Intersect([_filterdatabase], [H:H]) MsgBox Application.Subtotal(104, plage) End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement. Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, même si je sais que tout le monde ici est bénévole et nous sommes de surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un trés gros traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont et l'aval du projet étant terminé et fonctionnel.
Mais le soucis c'est que mon activecell.offset ne tiens pas compte des lignes filtrées ou de celles qui ne le sont pas !
Comment faire pour se balader avec activecell sur les cellules uniquement affiché grace au filtre ?
Merci de votre aide !
Bonjour.
Tu peux utiliser :
Sub test()
Set plage = Intersect([_filterdatabase], [H:H])
MsgBox Application.Subtotal(104, plage)
End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement.
Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, même si je
sais que tout le monde ici est bénévole et nous sommes de surcroit le wend
... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un trés gros
traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont
et l'aval du projet étant terminé et fonctionnel.
Sub test() Set plage = Intersect([_filterdatabase], [H:H]) MsgBox Application.Subtotal(104, plage) End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement. Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, même si je sais que tout le monde ici est bénévole et nous sommes de surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un trés gros traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont et l'aval du projet étant terminé et fonctionnel.
Mais le soucis c'est que mon activecell.offset ne tiens pas compte des lignes filtrées ou de celles qui ne le sont pas !
Comment faire pour se balader avec activecell sur les cellules uniquement affiché grace au filtre ?
Merci de votre aide !
Shewy_FR_34
Bonjour Daniel.
Des 2 propositions aucune ne fonctionne.
Sur la première, j'ai un retour "0" au msgbox ...
Sur la seconde un message d'erreur "Err.1004 - Impossible de lire la propriété Hidden de la classe range"
Merci par avance de ton aide.
Le 24/05/2010 12:25, Daniel.C a écrit :
Bonjour. Tu peux utiliser :
Sub test() Set plage = Intersect([_filterdatabase], [H:H]) MsgBox Application.Subtotal(104, plage) End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement. Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, mê me si je sais que tout le monde ici est bénévole et nous sommes de surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un tré s gros traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont et l'aval du projet étant terminé et fonctionne l.
Mais le soucis c'est que mon activecell.offset ne tiens pas compte des lignes filtrées ou de celles qui ne le sont pas !
Comment faire pour se balader avec activecell sur les cellules uniquement affiché grace au filtre ?
Merci de votre aide !
Bonjour Daniel.
Des 2 propositions aucune ne fonctionne.
Sur la première, j'ai un retour "0" au msgbox ...
Sur la seconde un message d'erreur "Err.1004 - Impossible de lire la
propriété Hidden de la classe range"
Merci par avance de ton aide.
Le 24/05/2010 12:25, Daniel.C a écrit :
Bonjour.
Tu peux utiliser :
Sub test()
Set plage = Intersect([_filterdatabase], [H:H])
MsgBox Application.Subtotal(104, plage)
End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement.
Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, mê me
si je sais que tout le monde ici est bénévole et nous sommes de
surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un tré s
gros traitement. Seul ce petit sub coince ... et je suis donc à
l'arrêt. l'amont et l'aval du projet étant terminé et fonctionne l.
Sur la seconde un message d'erreur "Err.1004 - Impossible de lire la propriété Hidden de la classe range"
Merci par avance de ton aide.
Le 24/05/2010 12:25, Daniel.C a écrit :
Bonjour. Tu peux utiliser :
Sub test() Set plage = Intersect([_filterdatabase], [H:H]) MsgBox Application.Subtotal(104, plage) End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement. Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, mê me si je sais que tout le monde ici est bénévole et nous sommes de surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un tré s gros traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont et l'aval du projet étant terminé et fonctionne l.
Mais le soucis c'est que mon activecell.offset ne tiens pas compte des lignes filtrées ou de celles qui ne le sont pas !
Comment faire pour se balader avec activecell sur les cellules uniquement affiché grace au filtre ?
Merci de votre aide !
Shewy_FR_34
PS : j'ai trouvé cette instruction sur GG :
Set rngSelect = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible )
Celle-ci me renvoi : Debug.Print rngSelect.Address
$A$1:$N$1,$A$82:$N$85,$A$114:$N$121
mis à pars copié collé dans un feuille cette zone pour ensuite fair e mon while, je ne vois pas comment je pourrai me balder dans cette zone. Un "truc" du style :
While rngSelect.ActiveCell.Offset(1, 0).Value > 0 If Val(rngSelect.ActiveCell.Value)
hum ...
Le 24/05/2010 12:25, Daniel.C a écrit :
Bonjour. Tu peux utiliser :
Sub test() Set plage = Intersect([_filterdatabase], [H:H]) MsgBox Application.Subtotal(104, plage) End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement. Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, mê me si je sais que tout le monde ici est bénévole et nous sommes de surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un tré s gros traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont et l'aval du projet étant terminé et fonctionne l.
Mais le soucis c'est que mon activecell.offset ne tiens pas compte des lignes filtrées ou de celles qui ne le sont pas !
Comment faire pour se balader avec activecell sur les cellules uniquement affiché grace au filtre ?
Merci de votre aide !
PS : j'ai trouvé cette instruction sur GG :
Set rngSelect = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible )
Celle-ci me renvoi :
Debug.Print rngSelect.Address
$A$1:$N$1,$A$82:$N$85,$A$114:$N$121
mis à pars copié collé dans un feuille cette zone pour ensuite fair e mon
while, je ne vois pas comment je pourrai me balder dans cette zone.
Un "truc" du style :
While rngSelect.ActiveCell.Offset(1, 0).Value > 0
If Val(rngSelect.ActiveCell.Value)
hum ...
Le 24/05/2010 12:25, Daniel.C a écrit :
Bonjour.
Tu peux utiliser :
Sub test()
Set plage = Intersect([_filterdatabase], [H:H])
MsgBox Application.Subtotal(104, plage)
End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement.
Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, mê me
si je sais que tout le monde ici est bénévole et nous sommes de
surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un tré s
gros traitement. Seul ce petit sub coince ... et je suis donc à
l'arrêt. l'amont et l'aval du projet étant terminé et fonctionne l.
Set rngSelect = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible )
Celle-ci me renvoi : Debug.Print rngSelect.Address
$A$1:$N$1,$A$82:$N$85,$A$114:$N$121
mis à pars copié collé dans un feuille cette zone pour ensuite fair e mon while, je ne vois pas comment je pourrai me balder dans cette zone. Un "truc" du style :
While rngSelect.ActiveCell.Offset(1, 0).Value > 0 If Val(rngSelect.ActiveCell.Value)
hum ...
Le 24/05/2010 12:25, Daniel.C a écrit :
Bonjour. Tu peux utiliser :
Sub test() Set plage = Intersect([_filterdatabase], [H:H]) MsgBox Application.Subtotal(104, plage) End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement. Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, mê me si je sais que tout le monde ici est bénévole et nous sommes de surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un tré s gros traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont et l'aval du projet étant terminé et fonctionne l.
Mais le soucis c'est que mon activecell.offset ne tiens pas compte des lignes filtrées ou de celles qui ne le sont pas !
Comment faire pour se balader avec activecell sur les cellules uniquement affiché grace au filtre ?
Merci de votre aide !
Daniel.C
Peux-tu mettre un classeur exemple sur www.cijoint.fr et poster ici le lien généré? Daniel
Bonjour Daniel.
Des 2 propositions aucune ne fonctionne.
Sur la première, j'ai un retour "0" au msgbox ...
Sur la seconde un message d'erreur "Err.1004 - Impossible de lire la propriété Hidden de la classe range"
Merci par avance de ton aide.
Le 24/05/2010 12:25, Daniel.C a écrit :
Bonjour. Tu peux utiliser :
Sub test() Set plage = Intersect([_filterdatabase], [H:H]) MsgBox Application.Subtotal(104, plage) End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement. Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, même si je sais que tout le monde ici est bénévole et nous sommes de surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un trés gros traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont et l'aval du projet étant terminé et fonctionnel.
Mais le soucis c'est que mon activecell.offset ne tiens pas compte des lignes filtrées ou de celles qui ne le sont pas !
Comment faire pour se balader avec activecell sur les cellules uniquement affiché grace au filtre ?
Merci de votre aide !
Peux-tu mettre un classeur exemple sur www.cijoint.fr et poster ici le
lien généré?
Daniel
Bonjour Daniel.
Des 2 propositions aucune ne fonctionne.
Sur la première, j'ai un retour "0" au msgbox ...
Sur la seconde un message d'erreur "Err.1004 - Impossible de lire la
propriété Hidden de la classe range"
Merci par avance de ton aide.
Le 24/05/2010 12:25, Daniel.C a écrit :
Bonjour.
Tu peux utiliser :
Sub test()
Set plage = Intersect([_filterdatabase], [H:H])
MsgBox Application.Subtotal(104, plage)
End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement.
Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, même
si je sais que tout le monde ici est bénévole et nous sommes de
surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un trés
gros traitement. Seul ce petit sub coince ... et je suis donc à
l'arrêt. l'amont et l'aval du projet étant terminé et fonctionnel.
Peux-tu mettre un classeur exemple sur www.cijoint.fr et poster ici le lien généré? Daniel
Bonjour Daniel.
Des 2 propositions aucune ne fonctionne.
Sur la première, j'ai un retour "0" au msgbox ...
Sur la seconde un message d'erreur "Err.1004 - Impossible de lire la propriété Hidden de la classe range"
Merci par avance de ton aide.
Le 24/05/2010 12:25, Daniel.C a écrit :
Bonjour. Tu peux utiliser :
Sub test() Set plage = Intersect([_filterdatabase], [H:H]) MsgBox Application.Subtotal(104, plage) End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement. Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, même si je sais que tout le monde ici est bénévole et nous sommes de surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un trés gros traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont et l'aval du projet étant terminé et fonctionnel.
Mais le soucis c'est que mon activecell.offset ne tiens pas compte des lignes filtrées ou de celles qui ne le sont pas !
Comment faire pour se balader avec activecell sur les cellules uniquement affiché grace au filtre ?
Merci de votre aide !
Daniel.C
Pour la seconde proposition, il faut mettre : If Val(ActiveCell.Value) > 0 And ActiveCell.EntireRow.Hidden = False Then Sinon, regarde le classeur suivant : les deux macros fonctionnent : http://www.cijoint.fr/cjlink.php?file=cj201005/cij5c0j7NB.xls Daniel
Bonjour. Tu peux utiliser :
Sub test() Set plage = Intersect([_filterdatabase], [H:H]) MsgBox Application.Subtotal(104, plage) End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement. Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, même si je sais que tout le monde ici est bénévole et nous sommes de surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un trés gros traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont et l'aval du projet étant terminé et fonctionnel.
Mais le soucis c'est que mon activecell.offset ne tiens pas compte des lignes filtrées ou de celles qui ne le sont pas !
Comment faire pour se balader avec activecell sur les cellules uniquement affiché grace au filtre ?
Merci de votre aide !
Pour la seconde proposition, il faut mettre :
If Val(ActiveCell.Value) > 0 And ActiveCell.EntireRow.Hidden = False
Then
Sinon, regarde le classeur suivant :
les deux macros fonctionnent :
http://www.cijoint.fr/cjlink.php?file=cj201005/cij5c0j7NB.xls
Daniel
Bonjour.
Tu peux utiliser :
Sub test()
Set plage = Intersect([_filterdatabase], [H:H])
MsgBox Application.Subtotal(104, plage)
End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement.
Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, même si
je sais que tout le monde ici est bénévole et nous sommes de surcroit le
wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un trés gros
traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont
et l'aval du projet étant terminé et fonctionnel.
Pour la seconde proposition, il faut mettre : If Val(ActiveCell.Value) > 0 And ActiveCell.EntireRow.Hidden = False Then Sinon, regarde le classeur suivant : les deux macros fonctionnent : http://www.cijoint.fr/cjlink.php?file=cj201005/cij5c0j7NB.xls Daniel
Bonjour. Tu peux utiliser :
Sub test() Set plage = Intersect([_filterdatabase], [H:H]) MsgBox Application.Subtotal(104, plage) End Sub
ou, pour coller d'avantage à ton code :
If Val(ActiveCell.Value) > 0 And ActiveCell.Hidden = False Then
Cordialement. Daniel
Bonjour à tous.
Je relance mon sujet, un peu par empressement je dois l'admettre, même si je sais que tout le monde ici est bénévole et nous sommes de surcroit le wend ... Je tiens à m'en excuser !
La petite macro qui provoque ce gros problème s'inscrit dans un trés gros traitement. Seul ce petit sub coince ... et je suis donc à l'arrêt. l'amont et l'aval du projet étant terminé et fonctionnel.