Bonjour, je suis débutant en VBA. J'ai une colonne de 40000 cellules et j’aimerais la découper en 200 autres colonnes, de façon à avoir un tableau 200x200.
PS: Je vous ai joint mon fichier excel.
Option Explicit
Sub Tableau200200()
With Feuil1.[C1].Resize(200, 200)
.FormulaR1C1 = "=OFFSET(R1C1,(COLUMN()-3)*200+ROW()-1,0)"
.Value = .Value: End With
End Sub
Option Explicit
Sub Tableau200200()
With Feuil1.[C1].Resize(200, 200)
.FormulaR1C1 = "=OFFSET(R1C1,(COLUMN()-3)*200+ROW()-1,0)"
.Value = .Value: End With
End Sub
Option Explicit
Sub Tableau200200()
With Feuil1.[C1].Resize(200, 200)
.FormulaR1C1 = "=OFFSET(R1C1,(COLUMN()-3)*200+ROW()-1,0)"
.Value = .Value: End With
End Sub