Alignement suivant le signe

Bonjour

J'ai cherché sans grand succès si la MFC pouvait répondre à mon problème mais je n'ai rien trouvé

J'ai des cellules qui contiennent des formules et pour des raisons de commodités de lecture je voudrais que l'alignement se fasse suivant le signe de la valeur résultante. Je suis nul en VBA c'est pourquoi j'ai recours à la communauté.

Si la valeur de la cellule est = 0 l'alignement se fait au centre

Si la valeur de la cellule est > 0 l'alignement se fait à droite

Si la valeur de la cellule est < 0 l'alignement se fait à gauche

Merci beaucoup d'avance pour votre aide

Daffy

Bonjour Daffy,

En MFC, ce n'est pas possible car ce n'est pas prévu dans les options, il suffit de regarder

Pour une commodité de lecture, mieux vaut utiliser des couleurs pour moi

A+

Merci Bruno

Oui cela fait un moment que je cherche pour améliorer ceci et je sais que la MFC ne le fait pas.

Actuellement le seul code que j'utilise mais qui ne me satisfait pas pleinement est le suivant:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case Is = 0
Target.HorizontalAlignment = xlCenter
Case Is > 0
Target.HorizontalAlignment = xlLeft
Case Is < 0
Target.HorizontalAlignment = xlRight
End Sub

Ceci fonctionne mais cela m'oblige à lancer la macro manuellement et je voudrais que cela se fasse automatiquement dès lors que la valeur de la cellule concernée est modifiée et non toutes les cellules de la feuille

Cordialement

Daffy

Bonjour Daffy,

Il faut indiquer la colonne qui doit être modifiée

Private Sub Worksheet_Change(ByVal Target As Range)
  ' Si la modification est faite dans la colonne souhaitée
  ' Exemple ICI dans la colonne A
  If Not Intersect(Range("A:A"), Target) Is Nothing Then
    Select Case Target.Value
    Case Is = 0
      Target.HorizontalAlignment = xlCenter
    Case Is > 0
      Target.HorizontalAlignment = xlLeft
    Case Is < 0
      Target.HorizontalAlignment = xlRight
    End Select
  End If
End Sub

A+

Bonjour à tous

Si, si c'est possible

Aligner par défaut au centre et

on peut utiliser des décimales dans le format si besoin

Mais je partage l'avis de Bruno concernant la lisibilité...

Bruno merci pour cette amélioration mais je suis toutefois obligé de lancer la macro manuellement alors que ce que je souhaiterai c'est que l'alignement se fasse dès lors que la valeur de la cellule est changée

78 Chris merci pour cette piste que je n'arrive pas à reproduire

En fait mes cellules contiennent des pourcentages et non des chiffres comme je ne l'avais pas précisé.

De plus, je n'arrive pas à avoir "Valeur" mais uniquement formule

J'ai essayé de sélectionner mes cellules et de leur attribuer un nom afin de voir si je le retrouverai dans la "sélection actuelle " mais rien de tout cela !!

RE

Adapter les 2 formats au %

Au passage : tes MFC me semblent erronées avec des formules MOD sur les lignes 65194... appliquées à une plage allant de 3 à 24

Les tableaux structurés ont de plus rendu cela obsolète dans la plupart des cas

Bonjour à tous !

78chris a écrit :

Si, si c'est possible

@78chris : Merci pour ce partage !

Merci Chris c'est exactement ce que je cherchais. Je l'ai adapté aux formats personnalisés de pourcentage et cela fonctionne

Désolé de ne pas avoir trouvé ceci dans la MFC

Merci à vous pour votre aide et je peux clôturer le fil

Bonne journée Daffy