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
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