Bonjour,
j ai un bout de code que j ai déjà utilisé et qui jusqu' à présent marcher très bien, qui me pose quelques soucis
j essaye tout betement de colorier et graisser toute une ligne, mais rien ne se passe! qql verrrait il dans mon code ce qu'il ne va pas???
moi je ne trouve pas!!
merci!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49 'paramètres' Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False 'conversion fichier excel Set Workbook = objExcel.Workbooks.Open("H:\FichierCorrige.txt") Workbook.SaveAs("H:\FichierCorrige.xls") Workbook.close("H:\FichierCorrige.txt") 'traitement fichier Set objWorkbook = objExcel.Workbooks.Open("H:\FichierCorrige.xls") Set objWorksheet = objWorkbook.Worksheets(1) 'suppression 1er colonne' set colonne = objWorksheet.Columns(1) colonne.EntireColumn.Delete 'ajout d un titre' set selection = objWorksheet.rows(1) Selection.EntireRow.Insert set titre = objWorksheet.cells(1,1) titre.value = "Temps" nbcolonne = objWorksheet.Range("A3").End(xltoright).Column for c=2 to nbcolonne objWorksheet.cells(1,c).value = "Patient_"&c-1 next set selection2 = objWorksheet.columns(2) selection2.EntireColumn.Insert set titre2 = objWorksheet.cells(1,2) titre2.value="Moyenne" set selection3 = objWorksheet.columns(3) selection3.EntireColumn.Insert set titre3 = objWorksheet.cells(1,3) titre3.value="Mediane" set selection4 = objWorksheet.columns(4) selection4.EntireColumn.Insert set titre4 = objWorksheet.cells(1,4) titre4.value="Ecart-type" set header = objWorksheet.rows(1) header.EntireRow.font.bold = True header.EntireRow.font.ColorIndex = 3
Partager