Excel converstion de tableau
cs_badstef
Messages postés
2
Date d'inscription
jeudi 11 décembre 2003
Statut
Membre
Dernière intervention
30 janvier 2008
-
29 janv. 2008 à 02:50
cs_badstef Messages postés 2 Date d'inscription jeudi 11 décembre 2003 Statut Membre Dernière intervention 30 janvier 2008 - 30 janv. 2008 à 06:06
cs_badstef Messages postés 2 Date d'inscription jeudi 11 décembre 2003 Statut Membre Dernière intervention 30 janvier 2008 - 30 janv. 2008 à 06:06
A voir également:
- Excel converstion de tableau
- Tableau php html - Conseils pratiques -PHP
- Tableau de turbo 2 ✓ - Forum C
- Tableau excel gestion parc automobile - Forum Visual Basic 6
- Tableau de loto turbo 2 - Forum ASM
- Tableau decimal ✓ - Forum Java
1 réponse
cs_badstef
Messages postés
2
Date d'inscription
jeudi 11 décembre 2003
Statut
Membre
Dernière intervention
30 janvier 2008
30 janv. 2008 à 06:06
30 janv. 2008 à 06:06
Bonjour, j'ai recu ce code d'un forum ca fonctionne très bien et c est très simple:
Merci a tout ceux qui m on aidé.
Badstef
ex:
Sub ConvertTable()
Dim C As Long
Dim LastCol As Long
Dim LastRow As Long
Dim N As Long
Dim R As Long
Dim Rng As Range
Dim NewWks As Worksheet
N = 2
Set NewWks = Worksheets("result")
' Set NewWks = Worksheets.Add(After:=Worksheets(Worksheets.Count))
Set Rng = NewWks.Range("A1:C1")
With Rng
.Cells(1, 1) = "Work Order"
.Cells(1, 2) = "Date"
.Cells(1, 3) = "Quantity"
.Font.Bold = True
.Columns.AutoFit
End With
With Worksheets("source")
'With ActiveSheet
LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
'LastCol = 10
'LastRow = 10
End With
' MsgBox (LastRow)
For R = 2 To LastRow
For C = 2 To LastCol
If Not IsEmpty(ActiveSheet.Cells(R, C)) Then
NewWks.Cells(N, "A") = Worksheets("source").Cells(R, "A") 'Work Order
'NewWks.Cells(N, "A") = ActiveSheet.Cells(R, "A") 'Work Order
NewWks.Cells(N, "B") = Worksheets("source").Cells(1, C) 'Date
NewWks.Cells(N, "C") = Worksheets("source").Cells(R, C) 'Quantity
N = N + 1
End If
Next C
Next R
End Sub
BadStef
Merci a tout ceux qui m on aidé.
Badstef
ex:
Sub ConvertTable()
Dim C As Long
Dim LastCol As Long
Dim LastRow As Long
Dim N As Long
Dim R As Long
Dim Rng As Range
Dim NewWks As Worksheet
N = 2
Set NewWks = Worksheets("result")
' Set NewWks = Worksheets.Add(After:=Worksheets(Worksheets.Count))
Set Rng = NewWks.Range("A1:C1")
With Rng
.Cells(1, 1) = "Work Order"
.Cells(1, 2) = "Date"
.Cells(1, 3) = "Quantity"
.Font.Bold = True
.Columns.AutoFit
End With
With Worksheets("source")
'With ActiveSheet
LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
'LastCol = 10
'LastRow = 10
End With
' MsgBox (LastRow)
For R = 2 To LastRow
For C = 2 To LastCol
If Not IsEmpty(ActiveSheet.Cells(R, C)) Then
NewWks.Cells(N, "A") = Worksheets("source").Cells(R, "A") 'Work Order
'NewWks.Cells(N, "A") = ActiveSheet.Cells(R, "A") 'Work Order
NewWks.Cells(N, "B") = Worksheets("source").Cells(1, C) 'Date
NewWks.Cells(N, "C") = Worksheets("source").Cells(R, C) 'Quantity
N = N + 1
End If
Next C
Next R
End Sub
BadStef