Copier les lignes selon le critère d'une colonne

[Dessimoz]

bonjours à tous,

une nouvelle embuche pour moi : je voudrais copier les lignes de la "feuille1" dans la "feuille2". Mais que les lignes qui ont par exemple "1" dans leur colonne A.

Merci d'avance
et à bientôt

Dess

 

[Zon]

Bonjour,

Dessimoz, ce que tu veux faire on peut le faire soit par formule soit en VBA,


je te propose une solution en VBA, ou pour ton exemple j'ai pris que si les cellules de la colonne A étaient = à 1 alors on copiait la ligne entière vers la feuille 2 à partir de A2

sub copieligne()

dim ws1,ws2 as worksheet
dim i,j as integer

set ws1=sheets("Feuil1")
set ws2=sheets("Feuil2")
j=2
for i=1 to ws1.range("A65536").end(xlup).row
if range("A"&i)=1 then
ws1.rows(i).copy destination:=ws2.range("A" & j)
application.cutcopymode=false
j=j+1
end if
next i
end sub



A+++

 

[Dessimoz]

Merci mon pote pour avoir pris un peu de temps.
je pense qu'avec tes formules je vais m'en tirer ... meric bcp

aller à plus