UNIVERSITE TOULOUSE III - PAUL SABATIER Ecole ... - LEGOS
UNIVERSITE TOULOUSE III - PAUL SABATIER Ecole ... - LEGOS
UNIVERSITE TOULOUSE III - PAUL SABATIER Ecole ... - LEGOS
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
‹ <br />
End If<br />
i = i + 1<br />
Loop<br />
nbricp = j<br />
' copie des conc icp de icp vers model<br />
Workbooks(traitement).Sheets("ICP").Activate<br />
ActiveSheet.Range(Cells(4, 2), Cells(34, 2)).Copy<br />
Sheets("model").Activate<br />
ActiveSheet.Range(Cells(43, 6), Cells(73, 6)).PasteSpecial Paste:=xlPasteValues<br />
' MODULE A REPETER A CHAQUE ECHANTILLON<br />
'<br />
i = premiereligne<br />
j = 0<br />
Do While Workbooks(listingicp).Sheets(1).Cells(i, 1) ("")<br />
If Workbooks(listingicp).Sheets(1).Cells(i + 1, 1) Like ("#*") Then<br />
Workbooks(traitement).Sheets("model").Copy _<br />
before:=Workbooks(traitement).Sheets("model") 'nouvelle feuille<br />
nomechantillon = Workbooks(listingicp).Sheets(1).Cells(i + 1, 1) 'on la renomme<br />
Workbooks(traitement).ActiveSheet.Name = nomechantillon<br />
Cells(1, 2) = nomechantillon<br />
Cells(2, 2) = Workbooks(listingicp).Sheets(1).Cells(i, 5) 'heure<br />
copie les coups echantillon<br />
Workbooks(listingicp).Activate<br />
ActiveWorkbook.Sheets(1).Range(Cells(i + 3, 3), Cells(i + 33, 4)).Copy<br />
Workbooks(traitement).Activate<br />
ActiveWorkbook.Sheets(nomechantillon).Range("C43:D73").PasteSpecial Paste:=xlPasteValues<br />
'copie les pesees<br />
With Workbooks(traitement).Sheets(nomechantillon)<br />
.Cells(6, 3) = Workbooks(nompesee).Sheets(1).Cells(3 + j, 1)<br />
.Cells(7, 3) = Workbooks(nompesee).Sheets(1).Cells(3 + j, 2)<br />
.Cells(8, 3) = Workbooks(nompesee).Sheets(1).Cells(3 + j, 3)<br />
.Cells(9, 3) = Workbooks(nompesee).Sheets(1).Cells(3 + j, 4)<br />
.Cells(10, 3) = Workbooks(nompesee).Sheets(1).Cells(3 + j, 5)<br />
.Cells(11, 3) = Workbooks(nompesee).Sheets(1).Cells(3 + j, 6)<br />
End With<br />
'recherche de ICPA suivant<br />
icpasuivant = 0<br />
For k = 0 To nbricp - 1 Step 1<br />
If Workbooks(traitement).Sheets("ICP").Cells(2, 5 + 2 * k) > i Then<br />
icpasuivant = (5 + 2 * k)<br />
k = nbricp<br />
End If<br />
Next<br />
If icpasuivant = 0 Then<br />
MsgBox ("probleme icpa suivant")<br />
Stop<br />
End If<br />
'collage des icpa<br />
collageicp traitement, nomechantillon, icpasuivant, 1<br />
MsgBox ("1) resultats avec ICPA precedent:")<br />
collageicp traitement, nomechantillon, icpasuivant, 2<br />
MsgBox ("2) resultats avec moyenne ICPA :")<br />
collageicp traitement, nomechantillon, icpasuivant, 3<br />
MsgBox ("3) resultats avec ICPA suivant:")