P
Phil
Guest
Lulut le Forum
J'ai un ti soucis, j'avais vu la solution pendant que je parcourais le forum mais je me souviens plus ou ni comment faire ou kel command etait utilisé
Sub tabmulti()
Dim Tablo(1 To 500, 1 To 17) As Variant
Dim i As Integer
Dim z As Integer
Dim celTab As Range
Set celTab = ActiveSheet.Range("B35")
Dim celDaReport As Range
Set celDaReport = ActiveSheet.Range("U35")
For z = 1 To 17 ' la je fais ma boucle pour mon tablo (les colones)
For i = 1 To 500 ' les lignes
Tablo(i, z) = celTab.Offset(i, z)
Next i
Next z
For x = 1 To 17 'mais ici je veut pas toutes les colonnes donc c pas For
For DaReport = 1 To 500 ' k'il me faut heuu ? DO 1,3,7,10 ect... ?
celDaReport.Offset(DaReport, x) = Tablo(DaReport, x)
Next DaReport
Next x
End Sub
Je c plus trop du coup
Merci de votre aide quotidienne ^^
Thx le Forum
J'ai un ti soucis, j'avais vu la solution pendant que je parcourais le forum mais je me souviens plus ou ni comment faire ou kel command etait utilisé
Sub tabmulti()
Dim Tablo(1 To 500, 1 To 17) As Variant
Dim i As Integer
Dim z As Integer
Dim celTab As Range
Set celTab = ActiveSheet.Range("B35")
Dim celDaReport As Range
Set celDaReport = ActiveSheet.Range("U35")
For z = 1 To 17 ' la je fais ma boucle pour mon tablo (les colones)
For i = 1 To 500 ' les lignes
Tablo(i, z) = celTab.Offset(i, z)
Next i
Next z
For x = 1 To 17 'mais ici je veut pas toutes les colonnes donc c pas For
For DaReport = 1 To 500 ' k'il me faut heuu ? DO 1,3,7,10 ect... ?
celDaReport.Offset(DaReport, x) = Tablo(DaReport, x)
Next DaReport
Next x
End Sub
Je c plus trop du coup
Merci de votre aide quotidienne ^^
Thx le Forum