[VBA][EXCEL] Modifier l'orientation du texte ?

Modifier l'orientation du texte ? [VBA][EXCEL] - VB/VBA/VBS - Programmation

Marsh Posté le 03-01-2006 à 17:32:37    

Bonjour,
 
je souhaite modifier l'orientation du texte d'une cellule via VBA (de façon à le mettre en diagonale à 45 degrés).
 
En enregistrant une macro j'ai ce code qui m'oblige à faire une sélection sur une page active :
 

Code :
  1. Range("C1:D1" ).Select
  2.     With Selection
  3.         .HorizontalAlignment = xlGeneral
  4.         .VerticalAlignment = xlBottom
  5.         .WrapText = False
  6.         .Orientation = 45
  7.         .AddIndent = False
  8.         .ShrinkToFit = False
  9.         .MergeCells = False
  10.     End With


 
Or je souhaite le faire de façon invisible sur une page non active. Comment faire ?
 
Merci  :hello:

Reply

Marsh Posté le 03-01-2006 à 17:32:37   

Reply

Marsh Posté le 03-01-2006 à 19:15:21    

Je connais une solution qui n'est certainement pas la meilleure...
 
Afin que l'utilisateur ne voit pas ce que tu fais, tu mets le code suivant:
 

Code :
  1. Application.ScreenUpdating = False


 
Ce code enlève le rafraichissement auto des actions exécutées dans Excel, il ne rafraîchit plus.
 
Ensuite, tu sélectionnes ta feuille et tu fais ton traitement :
 

Code :
  1. Worksheets(ma_feuille_a_traiter).Select
  2. traitement....
  3. Worksheet(ma_feuille_de_depart).Select


 
et enfin tu remets le rafraîchissement en place par :
 

Code :
  1. Application.ScreenUpdating = True


 
N'oublies pas de le remettre...
 
C'est une solution pas forcément élégante mais qui doit marcher...


---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...
Reply

Marsh Posté le 09-01-2006 à 19:19:15    

merci beaucoup, ca m'a été tres utile

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed