Répondre à la discussion

Message

<blockquote data-quote="job75" data-source="post: 20224737" data-attributes="member: 46381">Bon pour mettre les résultats dans une 2ème feuille, clic droit sur l'onglet, Visualisez le code et collez-y cette macro :[CODE=vb]Private Sub Worksheet_Activate()Dim tablo, resu(), i&amp;, j%, n&amp;, k%tablo = Sheets(&quot;Bons&quot;).[A1].CurrentRegion.Resize(, 10) 'à adapterReDim resu(1 To 3 * UBound(tablo), 1 To 8)For i = 2 To UBound(tablo)&nbsp; &nbsp; For j = 8 To 10&nbsp; &nbsp; &nbsp; &nbsp; If Val(Replace(tablo(i, j), &quot;,&quot;, &quot;.&quot;)) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; n = n + 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For k = 1 To 7&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; resu(n, k) = tablo(i, k)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; resu(n, 8) = tablo(i, j)&nbsp; &nbsp; &nbsp; &nbsp; End IfNext j, i'---restitution---If FilterMode Then ShowAllData 'si la feuille est filtréeWith [A2] 'à adapter&nbsp; &nbsp; If n Then .Resize(n, 8) = resu&nbsp; &nbsp; .Offset(n).Resize(Rows.Count - n - .Row + 1, 8).ClearContents 'RAZ en dessousEnd WithWith UsedRange: End With 'actualise la barre de défilement verticaleEnd Sub[/CODE]Elle est très rapide car elle utilise des tableaux VBA.A+</blockquote>

[QUOTE="job75, post: 20224737, member: 46381"] Bon pour mettre les résultats dans une 2ème feuille, clic droit sur l'onglet, Visualisez le code et collez-y cette macro : [CODE=vb]Private Sub Worksheet_Activate() Dim tablo, resu(), i&, j%, n&, k% tablo = Sheets("Bons").[A1].CurrentRegion.Resize(, 10) 'à adapter ReDim resu(1 To 3 * UBound(tablo), 1 To 8) For i = 2 To UBound(tablo) For j = 8 To 10 If Val(Replace(tablo(i, j), ",", ".")) Then n = n + 1 For k = 1 To 7 resu(n, k) = tablo(i, k) Next resu(n, 8) = tablo(i, j) End If Next j, i '---restitution--- If FilterMode Then ShowAllData 'si la feuille est filtrée With [A2] 'à adapter If n Then .Resize(n, 8) = resu .Offset(n).Resize(Rows.Count - n - .Row + 1, 8).ClearContents 'RAZ en dessous End With With UsedRange: End With 'actualise la barre de défilement verticale End Sub[/CODE] Elle est très rapide car elle utilise des [B]tableaux VBA[/B]. A+ [/QUOTE]

Vérification