. Combobox2 and . Additem, 300/500" ComboBox2AddItem "450/750" ComboBox2AddItem "600/1000" OptionButton18.Visible = False OptionButton19.Visible = False OptionButton20.Visible = False ActiveCell.Offset(4, 5)FormulaR1C1 = "Moyenne, Font.Bold = True ActiveCell.Offset(4, 6).FormulaR1C1 = "(" & Round(moy2, 0) & "±5)%" ActiveCell.Offset(4, 6).Font.Bold = True ActiveWorkbook.Names.Add Name:="SmokeResult", RefersToR1C1:=ActiveCell.Offset

. Activecell and . Offset, FormulaR1C1 = "Les valeurs sont dispersées" ActiveCell.Offset(3, 5).Font.Bold = True ActiveCell.Offset(4, 6)FormulaR1C1 = "Moyenne =" & Round(moy2, 0) & "%" ActiveCell.Offset(4, 6).Font.Bold = True ActiveWorkbook.Names.Add Name:="SmokeResult, RefersToR1C1:=ActiveCell.Offset(4, 6) End If La particularité de ce test est la possibilité de récupérer de datas. Les mesures sont enregistrées au format .dat. La forme générale est la suivante

. Sheets, Select 'Sélection de la cellule A1 Cells(1, 1)Select 'Sélection de la cellule avec « 0 » dans la colonne A Do While Not ActiveCell.FormulaR1C1 = "0" ActiveCell.Offset(1, 0)Select Loop 'Sa cellule avec « 0 » est nommé « StartData » ActiveWorkbook.Names.Add Name:="StartData", RefersToR1C1:=ActiveCell 'Sélection de la ligne de la cellule active Rows(ActiveCell.Row).Select 'Ajout d'une ligne Selection, Insert Shift:=xlDown 'Sélection de la cellule « StartData » Range("StartData").Select 'Ecriture en tête de la colonne A « Time (sec)

. Activecell, Offset(-1, 0).FormulaR1C1 = "Time(sec

A. Le-nom-de-la-cellule-en-tête-de-la-colonne, ». Titletime, . Activeworkbook, and . Names, Add Name:="TitleTime, RefersToR1C1:=ActiveCell.Offset(-1, 0) 'Ecriture en tête de la colonne B « Trans % » ActiveCell.Offset(-1, 1).FormulaR1C1 = "Trans(%)

B. Le-nom-de-la-cellule-en-tête-de-la-colonne, «. Titletrans, ». Activeworkbook, and . Names, Add Name:="TitleTrans", RefersToR1C1:=ActiveCell.Offset(-1, 1) 'Ecriture en tête de la colonne C « Ao, ActiveCell.OffsetAo, issue.1 2, pp.1-1

C. Le-nom-de-la-cellule-en-tête-de-la-colonne, «. Titleao, and ». Activeworkbook, Sélection de la première ligne de la colonne C SelectionEnd(xlToRight)Select 'Le nom de cette cellule est « EndDataRight RefersToR1C1:=ActiveCell 'Sélection de la dernière données enregistrées de la colonne C Selection.End(xlDown)Select 'Le nom de cette cellule est « EndDataBottom » ActiveWorkbook.NamesAdd Name:="EndDataBottom", RefersToR1C1:=ActiveCell Chapitre 6 : Programme VBA pour enregistrer, calculer, comparer et présenter les résultats 'Traitement du point minimum RangeSelect 'Les trois valeurs sont copiées et collées en haut de la feuille Selection, Select 'Les coordonnées du point minimum sont toujours placées 3 cases en bas et 2 cases à gauche de la cellule « EndDataBottomSelect ActiveSheet.Paste RangeSelect Selection.Copy Cells(4, 6).Select ActiveSheet.Paste RangeSelect ActiveCell.Offset(3, 0).Select Selection.Copy Cells(4, 7).Select ActiveSheet.Paste 'La légende et le titre du tableau sont écrite Cells(3, 5).FormulaR1C1 =

=. Ame and . Âme, Diamètre Âme : 24 AWG" DiamIso =Diamètre Isolant : 1,02 mm" 'Propriétés du DiamGain = "Diamètre Gaine : 6,4 mm" 'Cat6 Bourrage = "Avec Cross Member" Poids = "Poids approximatif : 43 kg

=. Ame, H. Âmepropriétés-du-diamgain-=cat6, and . Bourrage, Diamètre Gaine : 6,1 mmAvec Cross Member" Poids = "Poids approximatif : 43 kgNombre de conducteurs : 4 paires torsadées" End If 'Ecrire les propriétés ActiveCell.FormulaR1C1 = TitreCable ActiveCell.Offset(0, 5)FormulaR1C1 = Couleur ActiveCell.Offset(1, 0)FormulaR1C1 = "Propriétés des conducteurs" ActiveCell.Offset(1, 5)FormulaR1C1 = "Propriétés du câbleFormulaR1C1 = Ame ActiveCell.Offset(3, 0)Offset(3, 5).FormulaR1C1 = Gaine ActiveCell.Offset(4, 5).FormulaR1C1 = DiamGain ActiveCell.Offset(5, 5).FormulaR1C1 = Poids End If 'Mise en forme des sous-titres For Each cell In Range, Diamètre Âme : 23 AWGFormulaR1C1 = Isolant ActiveCell.Offset(6, 0).FormulaR1C1 = DiamIso ActiveCell.Offset(2, 5).FormulaR1C1 = Bourrage ActiveCellA3:A10") If cell.FormulaR1C1 = "Propriétés des conducteurs" Then cell.Select With Selection.Font .Name = "Book antiqua" .Size = 10

. Activecell and . Offset, FormulaR1C1 = "Echantillon OKFont.ColorIndex = 10 l'échantillon Else 'et la durée ActiveCell, FormulaR1C1 = "Echantillon NO OK" 'du test ActiveCell.Offset

. Else-'test-le-activecell, Offset(4, 0)FormulaR1C1 = "Résultat < 50 NO OK, ActiveCell.Offset, issue.4

A. Activecell and . Offset, FormulaR1C1 = "Echantillon OK" _ And ActiveCellOffset(3, 0)FormulaR1C1 = "Flamme OK" _ 'Pour être And ActiveCell.Offset(4, 0)FormulaR1C1 = "Résultat > 50 OK" _ 'conforme, ces Then 'conditions ActiveCell.Offset(5, 0).FormulaR1C1 = "Standard OK" 'doivent êtres ActiveCell.Offset(5, 0).Font.ColorIndex = 10 'remplies Else ActiveCell.Offset(5, 0).FormulaR1C1 = "Standard NO OK, ActiveCell.Offset, vol.5, issue.2 0

P. Stéphane, . Pierre-yves, and . Bonvin, « Lignes d'extrusion en câblerie - Câbles. Contrôle qualité. Rentabilité »

P. Stéphane, . Pierre-yves, and . Bonvin, « Lignes d'extrusion en câblerie - Etapes de fabrication

P. «. Michel, Câbles de transport d'énergie -Applications

C. Rémi and N. Robert, « Mise en forme de l'aluminium ? Tréfilage et étirage »

M. J. Rogerson and . Sc, « What is crosslinked polyethylene and why do we use it ?

P. «. Michel, Câbles de transport d'énergie ? Technologie. Caractéristiques

K. Henri, Câbles d'énergies : recherche et identification de défauts

D. Véronique and V. Jacques, Chimie de la combustion ? Flammes à base d'hydrocarbures »

P. Pauline and R. Stefan, « New Developments in the Application of Nanoclays for HFFR Cable Compounds, com/pdf/IWCS05/IWCS0582_lke.pdf Consulté en mai, 2010.

A. Siobhan and D. Maryline, « Meeting smoke, toxicity and flame retardancy requirements for railway cable applications ». Présentation PolyOne® Novembre, 2009.

C. Jacques and J. Agnès, « Réglementation ATEX ? Evaluation analytique des risques

C. Alain, « Réglementation ATEX ? Appareils et systèmes de protection