Bonjour,
A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau
filtré.
Offset (1,0) me place sur une ligne cachée.
xldown devrait faire partie de la réponse mais aucune aide n'existe dans
Excel.
Un coup de main svp!
Merci
--
René Delcourt
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
anonymousA
bonjour,
dans ce qui suit on suppose bien sur qu'un filtre a au moins été appliqué une fois car sinon FilterDatabase n'existerait pas.
Dim plagevisible As Range, A As Long, plg As Range
On Error GoTo errhandler Set plagevisible = Range("_FilterDatabase").SpecialCells(xlCellTypeVisible) On Error GoTo 0
A = 1
For Each plg In plagevisible.Areas
If Not Intersect(ActiveCell, plg) Is Nothing Then With plg If .Rows.Count > 1 Then If ActiveCell.Row >= .Rows(1).Row And ActiveCell.Row < .Rows(.Rows.Count).Row Then ActiveCell.Offset(1, 0).Activate Exit Sub ElseIf ActiveCell.Row = .Rows(.Rows.Count).Row Then On Error Resume Next plagevisible.Areas(A + 1).Rows(1).Cells(ActiveCell.Column).Activate If Err Then Cells(Range("_FilterDatabase").Rows.Count + 1, ActiveCell.Column).Activate Exit Sub End If Else On Error Resume Next plagevisible.Areas(A + 1).Rows(1).Cells(ActiveCell.Column).Activate If Err Then Cells(Range("_FilterDatabase").Rows.Count + 1, ActiveCell.Column).Activate Exit Sub End If End With End If
A = A + 1 Next
MsgBox "la cellule active n'appartient pas à la plage filtrée" Exit Sub
errhandler: MsgBox "Il n'y a pas de résultat au filtre"
A+
Bonjour, A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau filtré. Offset (1,0) me place sur une ligne cachée. xldown devrait faire partie de la réponse mais aucune aide n'existe dans Excel. Un coup de main svp! Merci -- René Delcourt
bonjour,
dans ce qui suit on suppose bien sur qu'un filtre a au moins été appliqué
une fois car sinon FilterDatabase n'existerait pas.
Dim plagevisible As Range, A As Long, plg As Range
On Error GoTo errhandler
Set plagevisible = Range("_FilterDatabase").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
A = 1
For Each plg In plagevisible.Areas
If Not Intersect(ActiveCell, plg) Is Nothing Then
With plg
If .Rows.Count > 1 Then
If ActiveCell.Row >= .Rows(1).Row And ActiveCell.Row <
.Rows(.Rows.Count).Row Then
ActiveCell.Offset(1, 0).Activate
Exit Sub
ElseIf ActiveCell.Row = .Rows(.Rows.Count).Row Then
On Error Resume Next
plagevisible.Areas(A +
1).Rows(1).Cells(ActiveCell.Column).Activate
If Err Then Cells(Range("_FilterDatabase").Rows.Count + 1,
ActiveCell.Column).Activate
Exit Sub
End If
Else
On Error Resume Next
plagevisible.Areas(A +
1).Rows(1).Cells(ActiveCell.Column).Activate
If Err Then Cells(Range("_FilterDatabase").Rows.Count + 1,
ActiveCell.Column).Activate
Exit Sub
End If
End With
End If
A = A + 1
Next
MsgBox "la cellule active n'appartient pas à la plage filtrée"
Exit Sub
errhandler:
MsgBox "Il n'y a pas de résultat au filtre"
A+
Bonjour,
A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau
filtré.
Offset (1,0) me place sur une ligne cachée.
xldown devrait faire partie de la réponse mais aucune aide n'existe dans
Excel.
Un coup de main svp!
Merci
--
René Delcourt
dans ce qui suit on suppose bien sur qu'un filtre a au moins été appliqué une fois car sinon FilterDatabase n'existerait pas.
Dim plagevisible As Range, A As Long, plg As Range
On Error GoTo errhandler Set plagevisible = Range("_FilterDatabase").SpecialCells(xlCellTypeVisible) On Error GoTo 0
A = 1
For Each plg In plagevisible.Areas
If Not Intersect(ActiveCell, plg) Is Nothing Then With plg If .Rows.Count > 1 Then If ActiveCell.Row >= .Rows(1).Row And ActiveCell.Row < .Rows(.Rows.Count).Row Then ActiveCell.Offset(1, 0).Activate Exit Sub ElseIf ActiveCell.Row = .Rows(.Rows.Count).Row Then On Error Resume Next plagevisible.Areas(A + 1).Rows(1).Cells(ActiveCell.Column).Activate If Err Then Cells(Range("_FilterDatabase").Rows.Count + 1, ActiveCell.Column).Activate Exit Sub End If Else On Error Resume Next plagevisible.Areas(A + 1).Rows(1).Cells(ActiveCell.Column).Activate If Err Then Cells(Range("_FilterDatabase").Rows.Count + 1, ActiveCell.Column).Activate Exit Sub End If End With End If
A = A + 1 Next
MsgBox "la cellule active n'appartient pas à la plage filtrée" Exit Sub
errhandler: MsgBox "Il n'y a pas de résultat au filtre"
A+
Bonjour, A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau filtré. Offset (1,0) me place sur une ligne cachée. xldown devrait faire partie de la réponse mais aucune aide n'existe dans Excel. Un coup de main svp! Merci -- René Delcourt
docm
Bonsoir.
Une solution concise est proposée dans ce fil: http://groups.google.ca/group/microsoft.public.fr.excel/browse_thread/thread /94f134c2d026913d/471a449c7f3c8596?q=prochaine+ligne+visible+excel&rnum=6&hl =fr#471a449c7f3c8596
Bonsoir.
docm.
"René Delcourt" a écrit dans le message news:
Bonjour, A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau
filtré. Offset (1,0) me place sur une ligne cachée. xldown devrait faire partie de la réponse mais aucune aide n'existe dans Excel. Un coup de main svp! Merci -- René Delcourt
Bonsoir.
Une solution concise est proposée dans ce fil:
http://groups.google.ca/group/microsoft.public.fr.excel/browse_thread/thread
/94f134c2d026913d/471a449c7f3c8596?q=prochaine+ligne+visible+excel&rnum=6&hl
=fr#471a449c7f3c8596
Bonsoir.
docm.
"René Delcourt" <RenDelcourt@discussions.microsoft.com> a écrit dans le
message news: D087B973-05DF-4142-8D47-9503F19F0219@microsoft.com...
Bonjour,
A partir du titre d'un champ je dois descendre "d'une" ligne dans un
tableau
filtré.
Offset (1,0) me place sur une ligne cachée.
xldown devrait faire partie de la réponse mais aucune aide n'existe dans
Excel.
Un coup de main svp!
Merci
--
René Delcourt
Une solution concise est proposée dans ce fil: http://groups.google.ca/group/microsoft.public.fr.excel/browse_thread/thread /94f134c2d026913d/471a449c7f3c8596?q=prochaine+ligne+visible+excel&rnum=6&hl =fr#471a449c7f3c8596
Bonsoir.
docm.
"René Delcourt" a écrit dans le message news:
Bonjour, A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau
filtré. Offset (1,0) me place sur une ligne cachée. xldown devrait faire partie de la réponse mais aucune aide n'existe dans Excel. Un coup de main svp! Merci -- René Delcourt
anonymousA
bonjour,
oui c'est concis mais je t'invite à faire l'essai entre la méthode que je propose et celle que tu indiques dans les conditions suivantes que j'ai essayées: tu as une base de 4750 lignes et ton filtre te renvoie la 2eme ligne et la 4750 eme ligne. Dans le cas de la proc que tu indiques, il faut sur mon PC 4.3 s . Pour celle que j'indique , 3 millisecondes ont été nécessaires. Cette dernière est toujours plus rapide même s'il est vrai que plus la base de données est petite l'écart est moins grand.
A+
Bonsoir.
Une solution concise est proposée dans ce fil: http://groups.google.ca/group/microsoft.public.fr.excel/browse_thread/thread /94f134c2d026913d/471a449c7f3c8596?q=prochaine+ligne+visible+excel&rnum=6&hl =fr#471a449c7f3c8596
Bonsoir.
docm.
"René Delcourt" a écrit dans le message news:
Bonjour, A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau
filtré. Offset (1,0) me place sur une ligne cachée. xldown devrait faire partie de la réponse mais aucune aide n'existe dans Excel. Un coup de main svp! Merci -- René Delcourt
bonjour,
oui c'est concis mais je t'invite à faire l'essai entre la méthode que je
propose et celle que tu indiques dans les conditions suivantes que j'ai
essayées: tu as une base de 4750 lignes et ton filtre te renvoie la 2eme
ligne et la 4750 eme ligne.
Dans le cas de la proc que tu indiques, il faut sur mon PC 4.3 s . Pour
celle que j'indique , 3 millisecondes ont été nécessaires. Cette dernière est
toujours plus rapide même s'il est vrai que plus la base de données est
petite l'écart est moins grand.
A+
Bonsoir.
Une solution concise est proposée dans ce fil:
http://groups.google.ca/group/microsoft.public.fr.excel/browse_thread/thread
/94f134c2d026913d/471a449c7f3c8596?q=prochaine+ligne+visible+excel&rnum=6&hl
=fr#471a449c7f3c8596
Bonsoir.
docm.
"René Delcourt" <RenDelcourt@discussions.microsoft.com> a écrit dans le
message news: D087B973-05DF-4142-8D47-9503F19F0219@microsoft.com...
Bonjour,
A partir du titre d'un champ je dois descendre "d'une" ligne dans un
tableau
filtré.
Offset (1,0) me place sur une ligne cachée.
xldown devrait faire partie de la réponse mais aucune aide n'existe dans
Excel.
Un coup de main svp!
Merci
--
René Delcourt
oui c'est concis mais je t'invite à faire l'essai entre la méthode que je propose et celle que tu indiques dans les conditions suivantes que j'ai essayées: tu as une base de 4750 lignes et ton filtre te renvoie la 2eme ligne et la 4750 eme ligne. Dans le cas de la proc que tu indiques, il faut sur mon PC 4.3 s . Pour celle que j'indique , 3 millisecondes ont été nécessaires. Cette dernière est toujours plus rapide même s'il est vrai que plus la base de données est petite l'écart est moins grand.
A+
Bonsoir.
Une solution concise est proposée dans ce fil: http://groups.google.ca/group/microsoft.public.fr.excel/browse_thread/thread /94f134c2d026913d/471a449c7f3c8596?q=prochaine+ligne+visible+excel&rnum=6&hl =fr#471a449c7f3c8596
Bonsoir.
docm.
"René Delcourt" a écrit dans le message news:
Bonjour, A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau
filtré. Offset (1,0) me place sur une ligne cachée. xldown devrait faire partie de la réponse mais aucune aide n'existe dans Excel. Un coup de main svp! Merci -- René Delcourt
docm
Bonjour.
Tu as raison. Pour ce qui s'agit de la facilité à comprendre la formulation, ta méthode est aussi grande gagnante.
Amicalement.
docm
"anonymousA" a écrit dans le message news:
bonjour,
oui c'est concis mais je t'invite à faire l'essai entre la méthode que je propose et celle que tu indiques dans les conditions suivantes que j'ai essayées: tu as une base de 4750 lignes et ton filtre te renvoie la 2eme ligne et la 4750 eme ligne. Dans le cas de la proc que tu indiques, il faut sur mon PC 4.3 s . Pour celle que j'indique , 3 millisecondes ont été nécessaires. Cette dernière est
toujours plus rapide même s'il est vrai que plus la base de données est petite l'écart est moins grand.
Bonjour, A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau
filtré. Offset (1,0) me place sur une ligne cachée. xldown devrait faire partie de la réponse mais aucune aide n'existe dans
Excel. Un coup de main svp! Merci -- René Delcourt
Bonjour.
Tu as raison. Pour ce qui s'agit de la facilité à comprendre la formulation,
ta méthode est aussi grande gagnante.
Amicalement.
docm
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
news: 5A6F151F-AC73-4683-9E7F-EDB03DAED55A@microsoft.com...
bonjour,
oui c'est concis mais je t'invite à faire l'essai entre la méthode que je
propose et celle que tu indiques dans les conditions suivantes que j'ai
essayées: tu as une base de 4750 lignes et ton filtre te renvoie la 2eme
ligne et la 4750 eme ligne.
Dans le cas de la proc que tu indiques, il faut sur mon PC 4.3 s . Pour
celle que j'indique , 3 millisecondes ont été nécessaires. Cette dernière
est
toujours plus rapide même s'il est vrai que plus la base de données est
petite l'écart est moins grand.
Tu as raison. Pour ce qui s'agit de la facilité à comprendre la formulation, ta méthode est aussi grande gagnante.
Amicalement.
docm
"anonymousA" a écrit dans le message news:
bonjour,
oui c'est concis mais je t'invite à faire l'essai entre la méthode que je propose et celle que tu indiques dans les conditions suivantes que j'ai essayées: tu as une base de 4750 lignes et ton filtre te renvoie la 2eme ligne et la 4750 eme ligne. Dans le cas de la proc que tu indiques, il faut sur mon PC 4.3 s . Pour celle que j'indique , 3 millisecondes ont été nécessaires. Cette dernière est
toujours plus rapide même s'il est vrai que plus la base de données est petite l'écart est moins grand.
Bonjour, A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau
filtré. Offset (1,0) me place sur une ligne cachée. xldown devrait faire partie de la réponse mais aucune aide n'existe dans
Excel. Un coup de main svp! Merci -- René Delcourt
anonymousA
re,
je reconnais que le code peut être allégé notamment par la constitution d'une proc On Error Resume Next plagevisible.Areas(A + 1).Rows(1).Cells(ActiveCell.Column).Activate If Err Then Cells(Range("_FilterDatabase").Rows.Count + 1, ActiveCell.Column).Activate Exit Sub que le programme principal appellerait. Pour le reste , l'objectif est d'utiliser toutes les possibilités de VBA sans faire de définition de variables sans interet majeur. Quant à documenter une proc , je fais ca quand le produit est vraiment complexe ce qui en l'occurrence n'est tout de même pas le cas.
A+
Bonjour.
Tu as raison. Pour ce qui s'agit de la facilité à comprendre la formulation, ta méthode est aussi grande gagnante.
Amicalement.
docm
"anonymousA" a écrit dans le message news:
bonjour,
oui c'est concis mais je t'invite à faire l'essai entre la méthode que je propose et celle que tu indiques dans les conditions suivantes que j'ai essayées: tu as une base de 4750 lignes et ton filtre te renvoie la 2eme ligne et la 4750 eme ligne. Dans le cas de la proc que tu indiques, il faut sur mon PC 4.3 s . Pour celle que j'indique , 3 millisecondes ont été nécessaires. Cette dernière est
toujours plus rapide même s'il est vrai que plus la base de données est petite l'écart est moins grand.
Bonjour, A partir du titre d'un champ je dois descendre "d'une" ligne dans un tableau
filtré. Offset (1,0) me place sur une ligne cachée. xldown devrait faire partie de la réponse mais aucune aide n'existe dans
Excel. Un coup de main svp! Merci -- René Delcourt
re,
je reconnais que le code peut être allégé notamment par la constitution
d'une proc
On Error Resume Next
plagevisible.Areas(A +
1).Rows(1).Cells(ActiveCell.Column).Activate
If Err Then Cells(Range("_FilterDatabase").Rows.Count + 1,
ActiveCell.Column).Activate
Exit Sub
que le programme principal appellerait. Pour le reste , l'objectif est
d'utiliser toutes les possibilités de VBA sans faire de définition de
variables sans interet majeur. Quant à documenter une proc , je fais ca quand
le produit est vraiment complexe ce qui en l'occurrence n'est tout de même
pas le cas.
A+
Bonjour.
Tu as raison. Pour ce qui s'agit de la facilité à comprendre la formulation,
ta méthode est aussi grande gagnante.
Amicalement.
docm
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
news: 5A6F151F-AC73-4683-9E7F-EDB03DAED55A@microsoft.com...
bonjour,
oui c'est concis mais je t'invite à faire l'essai entre la méthode que je
propose et celle que tu indiques dans les conditions suivantes que j'ai
essayées: tu as une base de 4750 lignes et ton filtre te renvoie la 2eme
ligne et la 4750 eme ligne.
Dans le cas de la proc que tu indiques, il faut sur mon PC 4.3 s . Pour
celle que j'indique , 3 millisecondes ont été nécessaires. Cette dernière
est
toujours plus rapide même s'il est vrai que plus la base de données est
petite l'écart est moins grand.
je reconnais que le code peut être allégé notamment par la constitution d'une proc On Error Resume Next plagevisible.Areas(A + 1).Rows(1).Cells(ActiveCell.Column).Activate If Err Then Cells(Range("_FilterDatabase").Rows.Count + 1, ActiveCell.Column).Activate Exit Sub que le programme principal appellerait. Pour le reste , l'objectif est d'utiliser toutes les possibilités de VBA sans faire de définition de variables sans interet majeur. Quant à documenter une proc , je fais ca quand le produit est vraiment complexe ce qui en l'occurrence n'est tout de même pas le cas.
A+
Bonjour.
Tu as raison. Pour ce qui s'agit de la facilité à comprendre la formulation, ta méthode est aussi grande gagnante.
Amicalement.
docm
"anonymousA" a écrit dans le message news:
bonjour,
oui c'est concis mais je t'invite à faire l'essai entre la méthode que je propose et celle que tu indiques dans les conditions suivantes que j'ai essayées: tu as une base de 4750 lignes et ton filtre te renvoie la 2eme ligne et la 4750 eme ligne. Dans le cas de la proc que tu indiques, il faut sur mon PC 4.3 s . Pour celle que j'indique , 3 millisecondes ont été nécessaires. Cette dernière est
toujours plus rapide même s'il est vrai que plus la base de données est petite l'écart est moins grand.
