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 : Sélectionner tout - Visualiser dans une fenêtre à part
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")