Discussion :

[zebi51]

Bonjour,


Je souhaite mettre le contenu d'un tableau de 9 positions dans une plage d cellule (A1:C3)

le tableau contient des chiffres de 1 à 9 par exemple (1,0,3,4,0,0,7,0,9)

je souhaite avoir le résultat suivant: a1=1, a3=3, b1=4, c1=7 et c3=9

Avez-vous une idée du code à écrire ?

Merci d'avance

[gFZT82]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test()
    Tablo = Array(1, 0, 3, 4, 0, 0, 7, 0, 9)
    With Worksheets("Feuil1")
        For i = 0 To UBound(Tablo)
            If Tablo(i) > 0 Then .Cells(i Mod 3 + 1, Int(i / 3) + 1) = Tablo(i)
        Next i
    End With
End Sub

Cordialement.