Sub ProcAnnéeTech()
Dim t As Integer
Dim prod As Integer
Dim prow as Integer
Dim i As integer
Dim j As integer
Dim n As Integeer
Dim wsACRSA As Worksheet
Dim année As String
Dim pays As String
pays = InputBox("Quel est le pays étudié?", "Choix du pays", "Portugal" )
Set wsACRSA = ThisWorkbook.Worksheets("Synthèse_année" )
prod = wsACRSA.Cells(Rows.Count, 1).End(xlUp).Row - 2
wsACRSA.Rows(prod + 3).Clear
wsACRSA.Cells(1, 2).Resize(Rows.Count, Columns.Count - 1).Clear
wsACRSA.Cells(1, 1).Value = "Tableau 2. " & pays & " : avantages comparatifs (1) selon l'intensité technologique"
n = InputBox("Quel est le nombre d'année?", "Nombre d'année", 5)
For i = 1 To n
année = InputBox("Quelle est l'année étudiée?", "Choix de l'année", "1969" )
wsACRSA.Cells(2, 1 + i).Value = année
t = 3
Do Until ThisWorkbook.Worksheets(pays).Cells(3, t).Value = année
t = t + 1
Loop
For j = 1 To prod
prow = 4
Do Until ThisWorkbook.Worksheets(pays).Cells(prow, 4).Value = wsACRSA.Cells(2 + j, 1).Value
[#ff3800] prow = prow + 1[/#ff3800][i][b] => Raison du bogue[/b][/i]
Loop
wsACRSA.Cells(2 + j, 1 + i).Value = ThisWorkbook.Worksheets(pays).Cells(prow, t).Value
Next j
Next i
With wsACRSA
.Cells(3, 2).Resize(prod, n).NumberFormat = "0.00"
.Cells(2, 2).Resize(prod + 1, n).HorizontalAlignment = xlCenter
.Rows("2:" & prod + 2).RowHeight = 18
.Cells(2 + prod + 1, 1).Value = "Note (1) mesurés par l'indicateur d'avantages comparatifs révélés symétriques de Balassa"
.Cells(2, 1).Resize(prod + 1, n + 1).Borders.LineStyle = xlContinuous
End With
End Sub |