Construire un range avec une condition sur les lignes
Bonjour,
J'avais posté un message pour construire un range a partir d'une condition, on m'avait donné un code maisle copier ne marche pas.
l'objectif est de parcourrir une colonne d'un range, dans cette colonne si la valeur est egale a une certaine valeur alors je veux rajouter la ligne dans un range , je souhaite donc construire un range de cette maniere.
Puis ensuite coller le range dans une feuille.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
Dim Rg As Range, Rw As Range
With xlsheet.Cells(20, 2).CurrentRegion
Set Rg = xlsheet.Range(xlsheet.Range("B8"), xlsheet.Range("AG8"))
For Each Rw In .Rows
If Rw.Cells(2).Value = "EU LQB" Or Rw.Cells(2).Value = "LDN CF 70805" Then
set Rg = Application.Union(Rg, Rw)
End If
Next Rw
End With
Rg.Copy ThisWorkbook.Worksheets("Feuil10").Range("A1") |
