Suite Macro de recherche

[papoow]

Bonjour à la communauté,

Merci à tous pour le partage de vos connaissances.

Je rebondis sur les réponses d'une question précédante sur 'les macros de recherche'.
Lien supprimé

J'ai un besoin de recherche très proche.
Je souhaite sélectionner des lignes à partir d'une date et copier celles-ci en totalité.
- I1 contient ma date

Public Sub test11()
Dim C As Range
For Each C In Range('b2:b' & Range('b65536').End(xlUp).Row)
If C.Value = Range('i1') Then
C.EntireRow.Select

Application.CutCopyMode = False
Selection.Copy
Range('A20').Select
ActiveSheet.Paste

End If
Next C
End Sub

Cette macro me permet juste de selectionner et copier la 1ere ligne identifiée, je voudrais étendre la selection aux 20 lignes suivantes (dessous) et les copier.

Merci à tous

Cordialement Papoow

 

[salim]

Bonjour papoow, et le Forum

si j'ai bien compris ta demande tu veux coller chaque correspondance trouvées sur la colonne 'B' par rapport a la cellue 'I1' et coller l'ensemble sur la colonne 'A' a prtir de la ligne 20.

Option Explicit

Sub CopiePlage()
Dim Cel As Range, MaPlage As Range, L&, Cpteur%
    L = Range('B65536').End(xlUp).Row
    Set MaPlage = Range(Cells(2, 2), Cells(L, 2))

    For Each Cel In MaPlage
        If Cel.Value = Range('I1').Value Then
            Cpteur = Cpteur + 1
            Cel.Copy Cells(19 + Cpteur, 1)
        End If
    Next Cel
End Sub

il existe surement des façons plus élégantes et efficaces d'y parvenir mais bon ma petite bidouille devrait fonctionner

salim

 

[papoow]

Bonjour Salim,

ça ne correspond pas à ce que je souhaitais, pour faciliter la compréhension de ma demande, je joins un fichier.

Désolé :sick: il est préférable de commencer par cela...

Merci pour ta réponse.

A++

Papoow [file name=demande001.zip size=6149]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/demande001.zip[/file]

 

[salim]

Re papoow.

y'a pas de mal on va finir par y arrivé .

je te joint ton fichier modifié qui devrait répondre a tes attentes sinon on continuera :lol: .

salim [file name=Pour_papoow.zip size=12324]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Pour_papoow.zip[/file]

 

[papoow]

Salim,

Comme tu dis si bien nous allons y arriver, c'est bien cela que je trouve formidable dans cette communauté, nous ne sommes jamais seul.

Concernant ma formule, elle n'est pas fause, pour quelle soit opérationnelle sur ton poste il est nécessaire d'activer une 'fonction' dans 'Outils/Macros Complémentaire/Analys Toolpack ou Analys Toolpack - VBA.

Pour mon application, il me faut faire la recherche par le N° de semaine, donc je teste mes connaissances sur ta proposition, ça va bientôt marcher comme je le souhaite.

Merci pour ton aide,

Cordialement, Papoow

 

[papoow]

Salim,

C'est gagné ! B)

Quelques modifs de rien, juste le temps de regarder et hop !

Ta macro me convient, c'est tout bon !

Pour la tester il te faut paramétrer ton poste.

Merci, A ton service

Papoow
[file name=demande003.zip size=11668]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/demande003.zip[/file]