Center un texte dans Excel avec VB.NetRésolu

Question

Bonjour,

Je suis en train de faire un petit programme en VB qui m'envoie les TextBox dans une cellule mais je n'arrive pas à centrer le text.
Voici quelques lignes:
With oSheet.Range("A1", "A13").Font.Bold True.HorizontalAlignment "center"

End
WithoXL.Quit()
oSheet NothingoBook 

NothingoXL = 

Nothing

Catch ex As ExceptionErrStr "Erreur " & vbCrLf & _

ex.ToString

GoTo fout

End
TryMsgBox("Enregistrement des modifications effectué")

Exit
SubSi vous pouviez éclairer ma lanterne ca serait cool
merci d'avance

Aurel

jrivet · Accepted Answer

Salut,
Essaie peu etre

   With oSheet.Range("A1", "A13")
       .Font.Bold = True
       .HorizontalAlignment = xlCenter
   
   End With

   Call oXL.Quit
   Set oSheet = Nothing
   Set oBook = Nothing
   Set oXL = Nothing
   Catch ex As Exception       ErrStr "Erreur " & vbCrLf & _
       ex.ToString
   GoTo fout

   End Try

   MsgBox ("Enregistrement des modifications effectué")
Exit Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

testuaure · Answer

Merci mais j'avais deja essayé avec oXL.Center mais ca ne marche pas.
car dans mon programme c'est oXL = CreateObject("Excel.Application")

Aurel

jrivet · Answer

Salut, Dans ce cas remplace XlCenter par sa valeur With oSheet.Range("A1", "A13") .Font.Bold = True .HorizontalAlignment &HFFFFEFF4 '&HFFFFEFF4 -4108 = XlCenter End With Call oXL.Quit Set oSheet = Nothing Set oBook = Nothing Set oXL = Nothing Catch ex As Exception ErrStr "Erreur " & vbCrLf & _ ex.ToString GoTo fout End Try MsgBox ("Enregistrement des modifications effectué") Exit Sub @+: Ju£i?n Pensez: Réponse acceptée

testuaure · Answer

Merci pour ta rapidité et ton talent.
Tu as resolu mon probleme.
A charge de revenche.

Aurel

jrivet · Answer

Re,
Mais y a pas de quoi.
Une fois que l'ont sais que xlcenter est une constante, ca va mieux 

@+: Ju£i?n
Pensez: Réponse acceptée

Center un texte dans Excel avec VB.Net

5 réponses

Votre réponse

Discussions similaires