Répondre à la discussion

Message

<blockquote data-quote="sylvanu" data-source="post: 20473059" data-attributes="member: 223341">Une V4 en PJ avec :[CODE=vb]&nbsp; &nbsp; 'ICI&nbsp; &nbsp; Range(Cells(5, &quot;J&quot;), Cells([J65500].End(xlUp).Row, &quot;J&quot;)).AutoFilter Field:=1, _&nbsp; &nbsp; Criteria1:=&quot;=RdV Fait&quot;, Operator:=xlOr, Criteria2:=&quot;=RdV Fait annulé&quot;&nbsp; &nbsp;&nbsp; Range(Cells(6, &quot;J&quot;), Cells([J65500].End(xlUp).Row, &quot;J&quot;)).SpecialCells(xlVisible).Select&nbsp; &nbsp; ' Selectionne les cellules filtrées&nbsp; &nbsp; Selection.AutoFilter&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Supprime le filtre[/CODE]Le reste est un test, je prends les valeurs filtrées et les colle en Feuille TEST.</blockquote>

[QUOTE="sylvanu, post: 20473059, member: 223341"] Une V4 en PJ avec : [CODE=vb] 'ICI Range(Cells(5, "J"), Cells([J65500].End(xlUp).Row, "J")).AutoFilter Field:=1, _ Criteria1:="=RdV Fait", Operator:=xlOr, Criteria2:="=RdV Fait annulé" Range(Cells(6, "J"), Cells([J65500].End(xlUp).Row, "J")).SpecialCells(xlVisible).Select ' Selectionne les cellules filtrées Selection.AutoFilter ' Supprime le filtre [/CODE] Le reste est un test, je prends les valeurs filtrées et les colle en Feuille TEST. [/QUOTE]

Vérification