_xme_ | Bonjour, j'écris ici car c'est le seul sujet que j'ai trouvé qui ressemble un peu au mien, et donc je me dis qu'il y aura peut être quelqu'un pour m'aider ici
J'essaye de faire une interface pour des bases access. L'ensemble des données de ces bases est traitées puis mis dans des tableaux excel.
Etant données la taille de ces tableaux, j'essaye de faire un minimum de présentation, donc en outre de mettre des bordures aux cellules ^^
J'y ai passé mon après midi hier et donc j'étais tout content de trouver un sujet hier qui avait enfin du vbs et non du vba Mais voila même en reprenant ton code je n'arrive à rien
Code :
- colHeader=array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ" )
- Set objExcel = CreateObject("Excel.Application" )
- 'Ouverture d'un nouveau porte document vierge
- objExcel.Workbooks.Add
- ' On selectionne la deuxieme feuille pour réaliser d'abord les calculs detaillés
- objExcel.Workbooks(1).Worksheets(1).Name="Synth. Bdgt-Conso " & year(date)
- Set onglet = objExcel.Workbooks(1).Worksheets(2)
- onglet.name="Vue detaillee"
- With onglet.Cells(12, 12)
- .Interior.ColorIndex = 15
- .Interior.Pattern = xlSolid
- .Borders(xlEdgeBottom).LineStyle = xlContinuous
- .Borders(xlEdgeBottom).Weight = xlThin
- .Borders(xlEdgeBottom).ColorIndex = xlAutomatic
- .HorizontalAlignment = xlCenter
- End With
|
Quand je tente ça j'ai une erreur d'execution inconnu ligne
Code :
- .Borders(xlEdgeBottom).LineStyle = xlContinuous
|
du coup j'ai tenté ça
Code :
- With onglet.Cells(12, 12)
- .Interior.ColorIndex = 15
- .Interior.Pattern = xlSolid
- End With
|
là rien ne plante mais rien ne se produit.... je précise que hier j'ai aussi passé ma journée àessayer d'aligne le texte dans une cellule et à faire fusionner une cellule. J'ai finalement trouvé avec en prime un superbe mal de crane ca pour fusionner
Code :
- objExcel.Worksheets("Vue detaillee" ).Range("C1:C3" ).Merge(False)
|
et ca pour centrer le texte
Code :
- onglet.Columns.AutoFit
- objExcel.Worksheets("Vue detaillee" ).Range("A1:Z" & j).HorizontalAlignment = 3
- objExcel.Worksheets("Vue detaillee" ).Range("A1:Z" & j).VerticalAlignment = 2
|
si ca peut aider A oui j'ai aussi une question est ce qu'on peut définir les paramètre d'une cellule par morceau c'est à dire à une ligne je lui dit d'avoir une bordure et 10 lignes plus bas d'avoir un fond coloré?
Voila merci d'avance pour toute idée |