Mise en page, mise en forme Excel

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

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

Code:

---

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

Citation:

---

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

---

Ensuite le probléme de mise en page

Code:

---

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

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

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:

---

1 2 3 4

.Columns(1).HorizontalAlignment = Center .Range("B1").HorizontalAlignment = Center ...

---

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

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

Merci encore

Tu as essayés:

Code:

---

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

---

Roster, le guide et l'ami des débutants :king: , 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:

---

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

---

Encore merci

Citation:

---

Envoyé par Rifton007

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

Code:

---

.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.

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:

---

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

---

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