bjr
j'ai une macro dont le but est de masquer les lignes qui contient les doubles:
est ce que vous pouvez m'aider d'obtenir une macro dont le but et d'afficher les lignes qui contient les doubles et de masquer les autre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 sub doublet() with sheets("swing") for i=5 to .range("b65535").end(xlup).row for j=i+1 to .range("b65535").end(xlup).row if .cells(i,2)=.cells(j,2) and .cells(i,2)<>"" and .cells(j,2)<>"" then dim r1,r2,mymultiplerange as range set r1=.cells(i,2) set r2=.cells(j,2) set mymultiplerange=union(r1,r2) mymultiplerange.entirerow.hidden=false else mymultiplerange.entirerow.hidden=true end if next j next i end with end sub.
Partager