Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel cellules qui se cachent

cellules qui se cachent

4 réponses
Avatar
Mike
Bonjour,
je suis en train de faire un macro avec pour filtrer et
copier/coller une liste Le problem est que quelques lignes
sous L36 se cache et "find" au lieu d'aller en "d trente
et quelque" se met en "E1"

Range("d3:q33").AutoFilter Field:=3, Criteria1:="cheval"
Range("d3:q33").Select
Selection.Copy
Range("d36").Select
Cells.Find(What:="", after:=ActiveCell,
LookIn:=xlformules, LookAt:= _
xlPart, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveSheet.Paste
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Vincent.
Bonjour,
A première vue, comme ça, sans tester, je dirais que
SearchOrder:=xlByColumns devrait être remplacé par
SearchOrder:=xlRows...
Mais c'est pas du garanti ;-)
A+

V.

-----Message d'origine-----
Bonjour,
je suis en train de faire un macro avec pour filtrer et
copier/coller une liste Le problem est que quelques
lignes

sous L36 se cache et "find" au lieu d'aller en "d trente
et quelque" se met en "E1"

Range("d3:q33").AutoFilter Field:=3, Criteria1:="cheval"
Range("d3:q33").Select
Selection.Copy
Range("d36").Select
Cells.Find(What:="", after:¬tiveCell,
LookIn:=xlformules, LookAt:= _
xlPart, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:úlse).Activate
ActiveSheet.Paste
.



Avatar
Vincent.
Bonjour,
A première vue, comme ça, sans tester, je dirais que
SearchOrder:=xlByColumns devrait être remplacé par
SearchOrder:=xlRows...
Mais c'est pas du garanti ;-)
A+

V.

-----Message d'origine-----
Bonjour,
je suis en train de faire un macro avec pour filtrer et
copier/coller une liste Le problem est que quelques
lignes

sous L36 se cache et "find" au lieu d'aller en "d trente
et quelque" se met en "E1"

Range("d3:q33").AutoFilter Field:=3, Criteria1:="cheval"
Range("d3:q33").Select
Selection.Copy
Range("d36").Select
Cells.Find(What:="", after:¬tiveCell,
LookIn:=xlformules, LookAt:= _
xlPart, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:úlse).Activate
ActiveSheet.Paste
.



Avatar
AV
Sans me prononcer sur le reste du code, applique le "Find" seulement sur les
cellules visibles

Ex :
[D36:IV65536].SpecialCells(xlCellTypeVisible).Find(............

AV
Avatar
mike
-----Message d'origine-----
Sans me prononcer sur le reste du code, applique
le "Find" seulement sur les

cellules visibles

Ex :
[D36:IV65536].SpecialCells(xlCellTypeVisible).Find
(............


AV

merci, mais je veux pas laisser des trous entre les lignes

sinon ca déconnerai à l'impression, aussi de temps en
temps le premier ligne visible est "L70", et si tu veux te
prononcer sur le reste du code je sera ravi Je debut un
peu avec des macros :-))))