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")
Partager