I have a huge database with a lot of 0 and 1.

When there is the number 1, I would like to copy in a new sheet th
name of the line (which is a time) and that, for every row.

I attached a part of my database to this message and here is a
example. In the row L, the number 1 appears twice. I'd like to have, i
the sheet "Horaires", 0 and 525, which appear in column C.

I think the best way to do this is using VBA but my knowledge of VBA i
too low. I need some guidelines to get through it

+-------------------------------------------------------------------
|Filename: ex.zip
|Download: http://www.excelforum.com/attachment.php?postid=4475
+-------------------------------------------------------------------

--
bambinos8
-----------------------------------------------------------------------
bambinos83's Profile: http://www.excelforum.com/member.php...fo&userid=3258
View this thread: http://www.excelforum.com/showthread.php?threadid=52387

Could you give an example of what you expect in sheet "Horaires" ?

TIA
--
AP

"bambinos83" a
écrit dans le message de
...

I have a huge database with a lot of 0 and 1.

When there is the number 1, I would like to copy in a new sheet the
name of the line (which is a time) and that, for every row.

I attached a part of my database to this message and here is an
example. In the row L, the number 1 appears twice. I'd like to have, in
the sheet "Horaires", 0 and 525, which appear in column C.

I think the best way to do this is using VBA but my knowledge of VBA is
too low. I need some guidelines to get through it.


+-------------------------------------------------------------------+
|Filename: ex.zip |
|Download: http://www.excelforum.com/attachment.php?postid=4475 |
+-------------------------------------------------------------------+

--
bambinos83
------------------------------------------------------------------------
bambinos83's Profile:
http://www.excelforum.com/member.php...o&userid=32589
View this thread: http://www.excelforum.com/showthread...hreadid=523875

I modified the sheet "Horaires" in the foloowing worksheet with a
example of what I'd like to have

+-------------------------------------------------------------------
|Filename: ex.zip
|Download: http://www.excelforum.com/attachment.php?postid=4476
+-------------------------------------------------------------------

--
bambinos8
-----------------------------------------------------------------------
bambinos83's Profile: http://www.excelforum.com/member.php...fo&userid=3258
View this thread: http://www.excelforum.com/showthread.php?threadid=52387

Voici la macro:

Cordialement,
--
AP

'----------------------------------
Sub transpose()
Dim rHeureVoyage As Range
Dim rTrace As Range
Worksheets("Test").Activate 'Make it active sheet
For Each rHeureVoyage In Range( _
Cells(4, "C"), _
Cells(Rows.Count, "C").End(xlUp))

For Each rTrace In Range( _
rHeureVoyage.Offset(0, 1), _
rHeureVoyage.Offset(0, 1).End(xlToRight))

If rTrace.Value = 1 Then
Set rdest = Worksheets("Horaires").Cells( _
3, _
rTrace.Column - 2)
Do While rdest.Value < ""
Set rdest = rdest.Offset(1, 0)
Loop
rdest.Value = rHeureVoyage.Value
End If
Next rTrace
Next rHeureVoyage
End Sub
'---------------------------------------
"bambinos83" a
écrit dans le message de
...

I modified the sheet "Horaires" in the foloowing worksheet with an
example of what I'd like to have.


+-------------------------------------------------------------------+
|Filename: ex.zip |
|Download: http://www.excelforum.com/attachment.php?postid=4476 |
+-------------------------------------------------------------------+

--
bambinos83
------------------------------------------------------------------------
bambinos83's Profile:
http://www.excelforum.com/member.php...o&userid=32589
View this thread: http://www.excelforum.com/showthread...hreadid=523875

Wow. Merci beaucoup... Thanks a lot!! This is great and it will save m
loads of time!! I have another issue with VBA but I won't abuse fro
you... I'll give it a shot!

Thanks again! :) :) :

--
bambinos8
-----------------------------------------------------------------------
bambinos83's Profile: http://www.excelforum.com/member.php...fo&userid=3258
View this thread: http://www.excelforum.com/showthread.php?threadid=52387

Come on, I've got plenty of time...

Cheers
--
AP

"bambinos83" a
écrit dans le message de
...

Wow. Merci beaucoup... Thanks a lot!! This is great and it will save me
loads of time!! I have another issue with VBA but I won't abuse from
you... I'll give it a shot!

Thanks again! :) :) :)


--
bambinos83
------------------------------------------------------------------------
bambinos83's Profile:
http://www.excelforum.com/member.php...o&userid=32589
View this thread: http://www.excelforum.com/showthread...hreadid=523875