Discussion :

[Rifton007]

Bonjour et merci tout d'abord pour votre précieuse aide.

Voici tout d'abord je souhaiterais aligner verticalement toute la colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
  With xlWorkSheet
            .Cells().Font.Size = 10
            .Range("A1:F1").Interior.Color = 0
            .Range("A1:F1").Font.Color = 16777215
            .Range("A1").ColumnWidth = 5
            .Range("B1").ColumnWidth = 49
            .Range("C1").ColumnWidth = 49
            .Range("D1").ColumnWidth = 5
            .Range("E1").ColumnWidth = 10
            .Range("F1").ColumnWidth = 20
            .Range("D1").VerticalAlignment = Right
            .Range("E1").VerticalAlignment = Right
        End With

Tout le code fonctionne, sauf .Range("xx").VerticalAlignment

Impossible de définir la propriété VerticalAlignment de la classe Range.

Ensuite le probléme de mise en page

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
   With xlWorkBook.ActiveSheet.PageSetup
            .LeftMargin = 0.25
            .RightMargin = 0.25
            .TopMargin = 0.75
            .BottomMargin = 0.75
            .HeaderMargin = 0.3
            .FooterMargin = 0.3
        End With

Le code ne génére par d'erreur, mais la mise en page n'est pas prise en considération.

Merci encore

[Sankasssss]

Hello,
a mon avis c'est l'alignement horizontal que tu veux... car dans le verticalAlignment c'est plus :
xlBottom
xlCenter
xlDistributed
xlJustify
xlTop

va voir :
http://msdn.microsoft.com/en-us/library/bb148808.aspx

[Rifton007]

Ben ce que je voudrais c'est un alignement vertical centré.
Et sur toute la colonne.

Tout d'abord xlCenter, xlLeft peut impote. tout ce qui commence par xl. Ne fonctionne pas
Et bien VB ne le reconnais pas.

J'ai tout essayé mais rien ne marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
.Columns(1).HorizontalAlignment = Center
.Range("B1").HorizontalAlignment = Center
...

|-----------------------------|
| Colonne |
|-----------------------------|
|.........Cellule centré |
|-----------------------------|

(Le gars qui n'a rien à faire de sa life) MDR

Merci encore

[roster]

Tu as essayés:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ExcelCla.Range("B1").HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlCenter

[Rifton007]

Roster, le guide et l'ami des débutants , qui se dit débutant. Quel preuve de modestie, un vrai modéle. Comment vas l'ami? Tu es la dans toute les phases de mon programme.

Cela dit, Ok ça fonctionne, mais juste sur la 1er cellule de la colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("D1").HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlRight

Encore merci

[Sankasssss]

Cela dit, Ok ça fonctionne, mais juste sur la 1er cellule de la colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("D1").HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlRight

Encore merci

c'est normal,ici tu sélection la cellule D1, tu dois faire un range qui reprend toutes les cellules que tu as besoin d'aligner.
Je ne sais plus comment ça va mais c'est un truc du genre : Range("D1", "D100")

Bien à toi.

[Rifton007]

Oui effectivement j'avais pensée à cela, mais défois j'ai plus 4000 enregistrements. Et cela varie.

Alors j'ai trouve cela, je sais pas si c'est clean comme code, mais ça marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("D1", "D" & Grid_customers.DataRows.Count).HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlRight

[Sankasssss]

Bien sur que c'est clean comme code, c'est bien comme ca qu'il faut procéder...