Programme valeurs VBA

Bonjour , quelqu’un saurait ce que fait ce programme (il y’a peut être une erreur , c’est pour ça que je ne trouve pas peut être) ?

Sub Tableau1 ()

Dim i as Integer

Dim n as Integer

Dim t(1 to 100) as double

Do

n = inputbox (« combien de valeurs voulez vous afficher? »)

Loop until n> 0 and n>=100

For i = 1 to n

t(j) = feuil1.Cells(1,i)

Next

For i=1 to n

Feuil2.Cells (i,1)

Next

End Sub

Bonjour,

Voir fichier pour le résultat attendu?

Cdlt.

7emraude.xlsm (25.62 Ko)
Option Explicit

Sub Tableau1()
Dim N As Variant
Dim t() As Long, i As Long
    Do
        N = Application.InputBox(prompt:="Combien de valeurs voulez vous afficher?", Type:=1)
        If N = False Then Exit Sub
    Loop Until (N > 0 And N <= 100)
    ReDim t(1 To N)
    For i = 1 To N
        t(i) = Feuil1.Cells(1, i)
    Next
    With Feuil2
        .Cells(1).CurrentRegion.ClearContents
        For i = 1 To N
            .Cells(i, 1) = t(i)
        Next
    End With
End Sub
Rechercher des sujets similaires à "programme valeurs vba"