1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Private Sub CommandButton1_Click()
Dim Tablo(), F As Worksheet, i&, J&, K&
K = 0
For Each F In Worksheets
If F.Name <> "Synthèse" And F.Name <> "Paramètres feuilles" Then
For i = 4 To F.Cells(Rows.Count, 2).End(xlUp).Row
If F.Cells(i, 2).Value <> 0 And F.Cells(i, 2).Value <> "" And F.Cells(i, 10).Value = "Faux" Then
K = K + 1
ReDim Preserve Tablo(1 To 10, 1 To K)
Tablo(1, K) = F.Name
For J = 2 To 10
Tablo(J, K) = F.Cells(i, J)
Next J
End If
Next i
End If
Next F
With Sheets("Synthèse")
.Range(Cells(4, 2), .Cells(Rows.Count, 2).End(xlUp).Offset(3, 9)).ClearContents
.Cells(4, 2).Resize(UBound(Tablo, 2), 10) = Application.Transpose(Tablo)
End With
End Sub |
Partager