1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Option Explicit
Sub tableau()
Dim Plage As Range, nblignes As Integer, Cel As Range, Tablo(), nb As Integer, i As Integer
' on masque la colonne "C"
Columns("C:C").EntireColumn.Hidden = True
With Worksheets("Feuil1") ' modifier le nom de la feuille
Set Plage = .Range("B1", .Range("F65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
End With
nblignes = Plage.Cells.Count ' on compte le nb de lignes de la plage
ReDim Tablo(nblignes, 3) ' on redim le tableau
For Each Cel In Plage
If i = 4 Then i = 0: nb = nb + 1
Tablo(nb, i) = Cel
i = i + 1
Next Cel
' on affiche la colonne "C"
Columns("C:C").EntireColumn.Hidden = False
' pour vérification,
' attention il faut que la dernière ligne de la feuille ne soit pas cachée,
' si non à la place de "+3" mettre par exemple "+10", "+20", ou encore +
Range("A" & Range("a65536").End(xlUp).Row + 3 & ":D" & nblignes) = Tablo
End Sub |
Partager