Alignement automatique d'un nombre selon sa parité

  • Initiateur de la discussion Initiateur de la discussion sellig 29
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : Alignement automatique d'un nombre selon sa parité

Bonjour Sellig 29,

Avec des macros, presque tout est possible.

Voici une propositin dans le fichier ci-joint.

Pour voir le code, tapes ALT + F11.

A+
 

Pièces jointes

Re : Alignement automatique d'un nombre selon sa parité

Bonjour à tous.


Un autre code :​
VB:
Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Cel As Range
  For Each Cel In Cible.Cells
    With Cel
      If (.Column = 1) And (Not IsEmpty(.Value)) And (IsNumeric(.Value)) Then
        Select Case (.Value = Int(.Value)) * (1 - WorksheetFunction.IsOdd(.Value))
        Case 0: .HorizontalAlignment = xlCenter
        Case -1: .HorizontalAlignment = xlRight
        Case -2: .HorizontalAlignment = xlLeft
        Case Else: .HorizontalAlignment = xlGeneral
        End Select
      End If
    End With
  Next
End Sub


Bonne journée.


ℝOGER2327
#7495


Jeudi 26 Tatane 141 (Saint Glé, neurologue-aliéniste - fête Suprême Quarte)
21 Thermidor An CCXXII, 0,1120h - carline
2014-W32-5T00:16:08Z
 

Pièces jointes

Re : Alignement automatique d'un nombre selon sa parité

Bonjour,

Je vous remercie tous les deux pour vos solutions, elles correspondent à ce que je voulais 🙂. Le code de Roger permet en plus d'accepter le texte, pour le cas ou? Les nombres à virgules restent centrés, mais peu importe, puisque dans mon fichier final, n'apparaitront que des nombres entiers!!
J'avais essayé avant mon 1er post, d'appliquer le format conditionnel, mais excel, semble t-il, ne propose pas l'orientation du texte dans sa mise en forme conditionnelle! 🙁

Bonne journée, merci encore! 😀
Gilles
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
429
Réponses
10
Affichages
699
Réponses
5
Affichages
245
Retour