UNIVERSITE TOULOUSE III - PAUL SABATIER Ecole ... - LEGOS

‹ s‹ ¨¡ ¨ % +¥©/ ¨-$&% !-§¢ ¥§£¢ $³¢
choix = InputBox("votre choix: 1, 2 ou 3")
Select Case choix
Case 1
collageicp traitement, nomechantillon, icpasuivant, 1
MsgBox ("1) resultats avec ICPA precedent:")
Case 2
collageicp traitement, nomechantillon, icpasuivant, 2
MsgBox ("2) resultats avec moyenne ICPA :")
Case 3
MsgBox ("3) resultats avec ICPA suivant:")
End Select
'incremente les indices pour avancer dans les fichiers pesee et listing et sauve la nouvelle feuille
j = j + 1
i = i + nbrligneparech
Else
i = i + nbrligneparech
End If
ActiveWorkbook.Save
Loop
MsgBox ("merci d'avoir joué avec nous")
End Sub
Private Sub collageicp(traitement, nomechantillon, icpasuivant, position)
Dim lignedebut, colonnedebut, lignefin, colonnefin As Integer
Select Case position
Case 1
lignedebut = 4
colonnedebut = icpasuivant - 2
lignefin = 34
colonnefin = icpasuivant - 1
Case 2
lignedebut = 129
colonnedebut = icpasuivant - 3
lignefin = 159
colonnefin = icpasuivant - 3
Case 3
lignedebut = 4
colonnedebut = icpasuivant
lignefin = 34
colonnefin = icpasuivant + 1
End Select
Workbooks(traitement).Sheets("ICP").Activate
ActiveSheet.Range(Cells(lignedebut, colonnedebut), Cells(lignefin, colonnefin)).Copy
Sheets(nomechantillon).Range("g43").PasteSpecial Paste:=xlPasteValues
Sheets(nomechantillon).Activate
End Sub