Comment remplacer "xlLow" par un chiffre du genre "-4152" Résolu/Fermé

Question

Bonjour les amis, 

ma fonction "xlLow" ne fonctionne pas dans ma macro, et je me souvient que l'on peut remplacer "xlLow" par un chiffre du genre "-4152" (pour exemple).
voici mon code:
Sheets("Facture").Cells(i_max, 3).VerticalAlignment = xlLow

Merci pour votre aide les amis.

Bonne journée.

Configuration: Windows / Chrome 40.0.2214.115

ccm81 · Answer

Bonjour

Es tu sûr de la syntaxe?
As tu essayé xlBottom

Cdlmnt

eriiic · Answer

Bonjour,

xlLow = -4134 (&HFFFFEFDA)
Mais toi c'est xlBottom = -4107 que tu as besoin j'ai l'impression...

eric

yao.chris · Answer

Merci pour votre réactivité.

Rien a faire quand je met le Bottom, au lancement de la macro je reçois le message d'erreur suivant : 
"Impossible de définir la propriété HorizontalAlignment de la classe Range

voici le code que j'ai mis:
Sheets("Facture").Cells(i_max, 3).HorizontalAlignment = xlBottom

Merci pour votre Aide

ccm81 · Answer

Tu avais parlé d'alignement vertical
Sheets("Facture").Cells(i_max, 3).VerticalAlignment = xlBottom

yao.chris · Answer

oui mes excuses, je parle bien d'alignement vertical mais ça ne fonctionne pas.
que ce passe t'il ??

Sheets("Facture").Cells(i_max, 3).VerticalAlignment = xlBottom

Merci à vous.

ccm81 · Answer

1. Est ce que la feuille "Facture" existe
2. Que vaut la variable i_max lors du plantage ?

yao.chris · Answer

oui la feuille "Facture" existe bien et le i_max est correcte.
Après avoir enregistré, fermé et ré-ouvert le classeur, cela fonctionne bizarrement. Lol
c'est cette ligne qui fait planter la macro.
Sheets("Facture").Cells(i_max, 3).HorizontalAlignment = xlLow

ccm81 · Answer

Pour la propriété
 HorizontalAlignment
 je ne pense pas que xlLow soit une valeur correcte
tu as par contre à disposition
xlGeneral, xlLeft, xlCenter, xlRight, xlFill, xlJustify

Une question : que veux tu y faire à cette cellule ?

yao.chris · Answer

la macro envoi les consommations d'un client dans les cellules pour l'impression du ticket de caisse et je voulait mettre en forme la cellule de destination comme suite :
en gras, alignée en bas et aligné à droite.

Tous marche impeccable maintenant.

Merci beaucoup pour votre aide.
Bonne journée.

ccm81 · Answer

Sheets("Facture").Cells(i_max, 3).HorizontalAlignment = xlRight
Sheets("Facture").Cells(i_max, 3).VerticalAlignment = xlBottom
Sheets("Facture").Cells(i_max, 3).FontStyle = "Gras"

RQ. Tu peux récupérer ce code avec l'éditeur/enregistreur de macro
Outils/macro/Nouvelle macro
tu fais ta mise en forme
puis Outils/Macro/arrêter l'enregistrement
et ton code est dans un Module
Cdlmnt

yao.chris · Answer

c'est noté.

Merci beaucoup pour votre aide. 
Bonne journée.