XL 2016 Découpage de colonne avec VBA

Ghninou · 22 Février 2020

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.

Merci d'avance pour votre aide.

Dranreb · 22 Février 2020

Bonsoir.

VB:

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

Dranreb · 22 Février 2020

Bonsoir.

VB:

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

Ghninou · 22 Février 2020

Dranreb à dit:

Bonsoir.

VB:

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

Merci beaucoup 😀😀😀

XL 2016 Découpage de colonne avec VBA

Ghninou

XLDnaute Nouveau

Pièces jointes

Dranreb

Dranreb

XLDnaute Barbatruc

Ghninou

XLDnaute Nouveau

Discussions similaires

XL 2016 Découpage de colonne avec VBA

Ghninou

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Ghninou

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency