Changer chiffre en point de couleur

Le 08/05/2016 à 19:39

Bonjour,

Débutant en VBA, je cherche une macro pour convertir automatiquement une valeur en point de couleur. Cette conversion ne s'applique uniquement que sur des colonnes (ex: F et G)

Exemple:

si je saisie 1 dans une cellule des colonnes F ou G, c'est 2 points rouges qui apparaissent

Si je saisie 2 dans une cellule des colonnes F ou G, c'est 1 point rouge qui apparait

Si je saisie 3 dans une cellule des colonnes F ou G, c'est 1 point vert qui apparait

Si je saisie 4 dans une cellule des colonnes F ou G, c'est 2 points verts qui apparaissent.

Merci d'avance de votre aide et de votre temps offert.

Le 08/05/2016 à 19:58

Bonjour,

Essaies ce code :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Intersect(Target, Columns("F:G")) Is Nothing Then Exit Sub
For Each c In Intersect(Target, Columns("F:G")).Cells
  If IsNumeric(c.Value) Then
    Select Case c.Value
      Case 1
        c.Formula = Chr(149) & Chr(149)
        c.Font.Color = RGB(255, 0, 0)
      Case 2
        c.Formula = Chr(149)
        c.Font.Color = RGB(255, 0, 0)
      Case 3
        c.Formula = Chr(149)
        c.Font.Color = RGB(0, 255, 0)
      Case 4
        c.Formula = Chr(149) & Chr(149)
        c.Font.Color = RGB(0, 255, 0)
      Case Else
        c.Font.ColorIndex = xlAutomatic
    End Select
  End If
Next c
End Sub

Patrice

Le 08/05/2016 à 20:28

Bonjour Patrice

Merci de votre réponse aussi réactive. J'ai collé le scripte dans visual basic, fermé et retourné sur Microsoft Excel.

Malheureusement rien ne se passe !!!!

Désolé, peut-être que ce n'est pas la bonne procédure ?

Pouvez-vous alors me joindre un fichier?

Merci de votre compréhension.

Le 08/05/2016 à 20:31

Bonsoir

en regardant :

IsNumeric(c.Value)

quel est le format de la cellule ou l'on saisit le chiffre ?

Cdt,

Le 08/05/2016 à 20:35

Bonsoir et merci de votre réponse.

Le format de la cellule que l'on saisit est "standard".

Le 08/05/2016 à 20:39

bonjour

Pourriez vous essayer ce code ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Intersect(Target, Columns("F:G")) Is Nothing Then Exit Sub
For Each c In Intersect(Target, Columns("F:G")).Cells
  If IsNumeric(c.Value) Then
    Select Case c.Value
      Case Is = "1"
        c.Formula = Chr(149) & Chr(149)
        c.Font.Color = RGB(255, 0, 0)
      Case Is = "2"
        c.Formula = Chr(149)
        c.Font.Color = RGB(255, 0, 0)
      Case Is = "3"
        c.Formula = Chr(149)
        c.Font.Color = RGB(0, 255, 0)
      Case Is = "4"
        c.Formula = Chr(149) & Chr(149)
        c.Font.Color = RGB(0, 255, 0)
      Case Else
        c.Font.ColorIndex = xlAutomatic
    End Select
  End If
Next c
End Sub

Cdt,

Le 08/05/2016 à 20:44

J'ai collé le script et toujours aucunes réactions !!!

Cdt

Le 08/05/2016 à 20:49

bonsoir

vous pourriez envoyer le fichier svp

cdt

Le 08/05/2016 à 20:51

Re,

Il faut mettre le code dans le module de la feuille concerné.

Edit : il faut aussi activer les macros