Bonjour !
Voila j'ai un code VBA et il faut que je le reformule pour un autre Excel avec un tableau plus grand qui ne commence pas au meme endroit
Le soucis c'est que je ne comprend pas ce dernier
Merci pour votre aide
l'excel et code ci-dessous
Option Explicit
Dim fh As Worksheet, fs As Worksheet, tablo, tabloR()
Dim i&, j&, k&, flag&
tablo = Range("B2").CurrentRegion
k = 0
For i = 3 To UBound(tablo, 1)
ReDim Preserve tabloR(1 To 3, 1 To k + 1)
tabloR(1, k + 1) = tablo(i, 2)
k = k + 1
flag = 0
For j = 3 To UBound(tablo, 2)
If tablo(i, j) <> "" Then
If flag = 0 Then
k = k - 1
flag = 1
End If
ReDim Preserve tabloR(1 To 3, 1 To k + 1)
tabloR(2, k + 1) = tablo(2, j)
tabloR(3, k + 1) = tablo(i, j)
k = k + 1
End If
Next j
Next i
fs.Range("A6").CurrentRegion.Offset(1, 0).ClearContents
fs.Range("A7").Resize(UBound(tabloR, 2), 3) = Application.Transpose(tabloR)
fs.Activate
Unload Me
End Sub