Exemple : Tableau / Macro

bonjour,

regarde sur

www.excelabo.net/

bon week-end

Bourby


"Tony" <Leveaux.T@skynet.be> a écrit dans le message news:
3f91185c$0$302$ba620e4c@reader3.news.skynet.be...

Bonjour à tous,

Ou peut ont trouver des exemples de tableau et (ou) de macro à télécharger
ou à consulté sur le net.

Merci d'avance.

FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm


"Tony" <Leveaux.T@skynet.be> a écrit dans le message de news:
3f91185c$0$302$ba620e4c@reader3.news.skynet.be...
| Bonjour à tous,
|
| Ou peut ont trouver des exemples de tableau et (ou) de macro à télécharger
| ou à consulté sur le net.
|
| Merci d'avance.
|
|
|
|

Salut Tony,
Quelques exemples à tester :

Sub Tbl1()
Dim Tableau(1 To 1200, 1 To 50) As Single
Dim I As Integer
Dim J As Integer
For I = 1 To 1200
For J = 1 To 50
Tableau(I, J) = Rnd(250)
Next
Next
Range(Cells(1, 1), Cells(1200, 50)).Value = Tableau
End Sub

Sub Tbl2()
Dim Tableau() As Single
Dim Boucle1 As Integer
Dim Boucle2 As Integer
Dim I As Integer
Dim J As Integer
Boucle1 = InputBox("Valeur du 1er compteur", "Boucle 1")
Boucle2 = InputBox("Valeur du 2ème compteur", "Boucle 2")

ReDim Tableau(1 To Boucle1, 1 To Boucle2)
For I = 1 To Boucle1
For J = 1 To Boucle2
Tableau(I, J) = Rnd(250)
Next
Next
Range(Cells(1, 1), Cells(Boucle1, Boucle2)).Value = Tableau
End Sub

Sub Tbl3()
Dim Tableau(1 To 50) As Single
Dim I As Integer
For I = 1 To 50
Tableau(I) = Rnd(250)
Next
Range(Cells(1, 1), Cells(1, UBound(Tableau))).Value = Tableau
Range(Cells(1, 1), Cells(UBound(Tableau), 1)).Value = _
Application.WorksheetFunction.Transpose(Tableau)
End Sub

Sub Tbl4()
Dim Tableau() As String
Dim Cellule As Range
'indique les cellules contenant la valeur 100
For Each Cellule In Range("A1:A100")
If Cellule.Value = 100 Then
On Error Resume Next
ReDim Preserve Tableau(1 To UBound(Tableau) + 1)
Tableau(UBound(Tableau)) = Cellule.Address(0, 0)
If Err.Number <> 0 Then
ReDim Tableau(1 To 1)
Tableau(1) = Cellule.Address(0, 0)
On Error GoTo 0
End If
End If
Next Cellule
Range(Cells(1, 3), Cells(UBound(Tableau), 3)).Value = _
WorksheetFunction.Transpose(Tableau)
End Sub

Sub Tbl5()
Dim Tbl() As String
Dim I As Integer, J As Integer
'1 to 2 = lignes, 1 to 10 = colonnes
ReDim Tbl(1 To 2, 1 To 10)
For I = 1 To 2
For J = 1 To 10
Tbl(I, J) = I + J
Next J
Next I
'ne peut que redimensionner la 2ème
ReDim Preserve Tbl(1 To 2, 1 To 15)

For I = 1 To 2
For J = 11 To 15
Tbl(I, J) = I + J
Next J
Next I

For I = 1 To UBound(Tbl, 2)
Debug.Print "colonne " & I
Debug.Print "ligne 1 """ & Tbl(1, I) & _
"""" & " ligne 2 """ & Tbl(2, I) & """"
Next

Erase Tbl
End Sub

Function TblDecompose(ByVal Valeur As String) As String()
Dim Tbl() As String
Dim I As Integer
For I = 1 To Len(Valeur)
ReDim Preserve Tbl(1 To I)
Tbl(I) = Mid(Valeur, I, 1)
Next I
TblDecompose = Tbl()
End Function

Sub Recup()
Dim Tbl() As String
Dim I As Integer
Tbl = TblDecompose("Hervé")
For I = 1 To UBound(Tbl)
Cells(I, 1) = Tbl(I)
Next I
End Sub

Hervé.

"Tony" <Leveaux.T@skynet.be> a écrit dans le message news:
3f91185c$0$302$ba620e4c@reader3.news.skynet.be...

Bonjour à tous,

Ou peut ont trouver des exemples de tableau et (ou) de macro à télécharger
ou à consulté sur le net.

Merci d'avance.