Alignement automatique d'un nombre selon sa parité

sellig 29

XLDnaute Occasionnel
Bonjour à tous,
Je n'ai pas trouvé sur le forum la solution à mon problème :confused:
J'aimerais que les nombres saisis s'alignent automatiquement à gauche lorsqu'ils sont impairs!
Merci d'avance pour votre aide!
 

Pièces jointes

  • Alignement nombre selon parité.xlsx
    9.7 KB · Affichages: 30

Fred0o

XLDnaute Barbatruc
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

  • Alignement nombre selon parité.xlsm
    16.5 KB · Affichages: 31
  • Alignement nombre selon parité.xlsm
    16.5 KB · Affichages: 39
  • Alignement nombre selon parité.xlsm
    16.5 KB · Affichages: 37

ROGER2327

XLDnaute Barbatruc
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

  • Alignement nombre selon parité.xlsm
    18.5 KB · Affichages: 24
  • Alignement nombre selon parité.xlsm
    18.5 KB · Affichages: 25
  • Alignement nombre selon parité.xlsm
    18.5 KB · Affichages: 23

sellig 29

XLDnaute Occasionnel
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! :D
Gilles
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 520
Messages
2 089 298
Membres
104 092
dernier inscrit
karbone57