Alignement de cellules sous conditions

[Daffy02]

Bonjour je cherche un moyen simple (eventuellement une macro) me permettant d'aligner à gauche, à droite ou au centre le contenu d'une cellule en fonction de son signe : positif, négatif ou nul.

La condition nulle au centre est facultative ; C'est un plus . Le plus important pour moi est l'alignement droite /gauche

Merci d'avance pour votre aide précieuse

Cordialement

 

[Pierrot93]

Re : Alignement de cellules sous conditions

Bonjour,

essaye ceci à placer dans le module de la feuille concernée, click droit sur l'onglet => visualiser le code, procédure événementielle se déclenche lors de la modification des cellules :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target) Or Target.Count > 1 Then Exit Sub
If Target.Value > 0 Then
    Target.HorizontalAlignment = xlLeft
    ElseIf Target.Value < 0 Then Target.HorizontalAlignment = xlRight
Else
    Target.HorizontalAlignment = xlCenter
End If
End Sub

bonne journée
@+

 

[Papou-net]

Re : Alignement de cellules sous conditions

Bonjour Daffy02, et bienvenue à toi,

Ci-joint un exemple avec macro événementielle se déclenchant après modification d'une cellule sur la feuille 1.

Si tu as des questions, n'hésite pas.

Cordialement.

Edit : oups, collision. Bonjour Pierrot.

 

[Daffy02]

Re : Alignement de cellules sous conditions

Merci de vos 2 réponses rapides

Je teste mais pour ce que j'ai pu voir cela na marche pas ............pour le moment

Je procede à de nouveau essai et vous fait un retour . Pourtant l'exemple de Papou net fonctionne ?????

Merci à vous

 

[Pierrot93]

Re : Alignement de cellules sous conditions

Re,

A noter, sous 2010 il faut que le classeur prenne en chage les macros (format xlsm), et il faut également les avoir activées...

bon après midi
@+