Alignement de cellules sous conditions

Pierrot93

XLDnaute Barbatruc

• 17 Octobre 2012

• #2

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 17 Octobre 2012

• #3

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.

 

Pièces jointes

• Daffy02.xlsm

  14.6 KB · Affichages: 42

Vote positif 0 Vote négatif

D

Daffy02

XLDnaute Nouveau

• 17 Octobre 2012

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Octobre 2012

• #5

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
@+

 

Vote positif 0 Vote négatif