Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Salut Christophe,
Essaie ceci :
1) Un tableau défini dans VBA et envoyé sur une feuille : Sub Tableau1() Dim table(1 To 10, 1 To 3) For i = 1 To 10 For j = 1 To 3 k = k + 1 table(i, j) = k Next j Next i Range(Cells(1, 1), Cells(10, 3)).Value = table MsgBox "table(5,2) = " & table(5, 2) End Sub 2) Une plage considérée comme un tableau : Sub Tableau2() Set plage = Range("D8:F11") NL = plage.Rows.Count NC = plage.Columns.Count MsgBox plage(1, 1) & vbNewLine & plage(NL, NC) End Sub
Serge
"titof92" a écrit dans le message de news: Bonjour,
Quelqu'un pourrait-il poster un exemple de déclaration (et de manipulation) d'un tableau en VBA sur Excel, car je galère pas mal pour m'en servir.
Merci beaucoup, Bonne journée,
Christophe
Salut Christophe,
Essaie ceci :
1) Un tableau défini dans VBA et envoyé sur une feuille :
Sub Tableau1()
Dim table(1 To 10, 1 To 3)
For i = 1 To 10
For j = 1 To 3
k = k + 1
table(i, j) = k
Next j
Next i
Range(Cells(1, 1), Cells(10, 3)).Value = table
MsgBox "table(5,2) = " & table(5, 2)
End Sub
2) Une plage considérée comme un tableau :
Sub Tableau2()
Set plage = Range("D8:F11")
NL = plage.Rows.Count
NC = plage.Columns.Count
MsgBox plage(1, 1) & vbNewLine & plage(NL, NC)
End Sub
Serge
"titof92" <titof92@libertysurf.fr> a écrit dans le message de news: 1167136585.307491.315050@48g2000cwx.googlegroups.com...
Bonjour,
Quelqu'un pourrait-il poster un exemple de déclaration (et de
manipulation) d'un tableau en VBA sur Excel, car je galère pas mal
pour m'en servir.
1) Un tableau défini dans VBA et envoyé sur une feuille : Sub Tableau1() Dim table(1 To 10, 1 To 3) For i = 1 To 10 For j = 1 To 3 k = k + 1 table(i, j) = k Next j Next i Range(Cells(1, 1), Cells(10, 3)).Value = table MsgBox "table(5,2) = " & table(5, 2) End Sub 2) Une plage considérée comme un tableau : Sub Tableau2() Set plage = Range("D8:F11") NL = plage.Rows.Count NC = plage.Columns.Count MsgBox plage(1, 1) & vbNewLine & plage(NL, NC) End Sub
Serge
"titof92" a écrit dans le message de news: Bonjour,
Quelqu'un pourrait-il poster un exemple de déclaration (et de manipulation) d'un tableau en VBA sur Excel, car je galère pas mal pour m'en servir.
