Tranformation d'une matrice en tableau à 3 col.

[Baga]

Bonjour,
Je suis novice en VBA et je demande votre aide pour transformer une matrice (de 0h à 24h) en tableau à 3 colonnes en vue de l'intégrer dans une base Access.
Merci d'avance. [file name=Test1_20050808152822.zip size=9209]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test1_20050808152822.zip[/file]

 

[Ambroys9211]

Bonjour

Tu peux essayé ca :

Public Sub test()

Dim g_feuilleLecture As String
Dim g_feuilleInsert As String

g_feuilleLecture = 'Feuil1'
g_feuilleInsert = 'Feuil2'

Dim l_compteurLigne As Integer
Dim l_compteurColonne As Integer

l_compteurLigne = 2

Dim l_insertLigne As Integer

l_insertLigne = 1

While Not ThisWorkbook.Sheets(g_feuilleLecture).Range('A' & l_compteurLigne) = ''
For l_compteurColonne = 2 To 25
ThisWorkbook.Sheets(g_feuilleInsert).Range('A' & l_insertLigne) = ThisWorkbook.Sheets(g_feuilleLecture).Range('A' & l_compteurLigne)
ThisWorkbook.Sheets(g_feuilleInsert).Range('B' & l_insertLigne) = ThisWorkbook.Sheets(g_feuilleLecture).Range(Chr(l_compteurColonne + 64) & '1')
ThisWorkbook.Sheets(g_feuilleInsert).Range('C' & l_insertLigne) = ThisWorkbook.Sheets(g_feuilleLecture).Range(Chr(l_compteurColonne + 64) & l_compteurLigne)
ThisWorkbook.Sheets(g_feuilleInsert).Range('C' & l_insertLigne).NumberFormat = 'h:mm;@'
l_insertLigne = l_insertLigne + 1
Next l_compteurColonne
l_compteurLigne = l_compteurLigne + 1
Wend

End Sub


les variables g_feuilleLecture et g_feuilleInsert désignent les feuilles dans lesquelles on lit et on écrit

les variables l_compteurLigne et l_compteurColonne désignent les lignes et colonnes où se passent la lecture

la variable l_insertLigne désignent dans quelle ligne vont s'insérer les données

chr(l_compteurColonne + 64) m'indique la colonne dans laquelle j'insère. Chr(integer) est une fonction retournant le charactère ASCII d'un entier passé en parametre. A => 65 et Z => 90
donc le pb de cette fonction est que ca se limite au 26 premières colonnes.

J'espère que cela te convient

bon courage pour la suite
@+

 

[Baga]

Merci encore au Forum et plus particulièrement à Ambroys9211.