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

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

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