Comment colorer les cellules quand je saisis dans différentes colonnes ?

[anthoYS]

Bonjour,


Par exemple, en B, D, F et G uniquement.
Si je saisi des données, eh bien colorer en fond vert.


.Interior.ColorIndex = 4
(mais après, mystères, "ActiveCells.Row(2)" ?)


Merci !
à+

 

[TooFatBoy]

Bonjour,

Ne serait-ce pas plus simple d'utiliser une MFC ?

 

[DoubleZero]

Bonjour à toutes et à tous,

Peut-être ainsi :

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    Dim plage As Range
    Set plage = Range("B:B,D:D,F:F,G:G")
    If c.Count > 1 Then Exit Sub
    If Not Intersect(c, plage) Is Nothing Then
        Select Case c
        Case Is <> "": c.Interior.ColorIndex = 4: Case Else: c.Interior.ColorIndex = xlNone
        End Select
    End If
End Sub

A bientôt

 

[anthoYS]

Re,


Merci @DoubleZero

j'ai déjà ce code dans la page, je veux l'agréger, et fatalement il y a une erreur, je continue de chercher...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
    If .Column = 2 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
     If .Column = 3 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
     If .Column = 4 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
     If .Column = 5 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
     If .Column = 6 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
     If .Column = 7 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
     If .Column = 8 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
     If .Column = 9 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
End With
With Target
    If .Column = 4 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 279.5
            .Comment.Shape.Height = 130.75
        End If
        SendKeys "%im"
    End If
End With
End Sub

Si je n'y parviens pas, je reviens avec ce que j'ai fait de ton code et de ce dernier.

@Marcel32 , pour ce qui est de la MFC je ne vois pas ?

 

[DoubleZero]

Bonjour à toutes et à tous,

... j'ai déjà ce code dans la page, je veux l'agréger, et fatalement il y a une erreur...

Private Sub Worksheet_Change(ByVal c As Range)

et

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

sont deux macros événementielles qui peuvent rester l'une à la suite de l'autre.

A bientôt

 

[DoubleZero]

Re-bonjour,

... j'ai déjà ce code...

Que donnerait celui-ci ?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    With Target
        If .Column > 1 And .Column < 10 Then
            If .Comment Is Nothing Then
                .AddComment
                .Comment.Shape.Width = 241.5
                .Comment.Shape.Height = 99.75
            SendKeys "%im"
        End If
    End If
End With
Application.SendKeys "{NUMLOCK}", True ' clavier numérique activer
End Sub

A bientôt

 

[anthoYS]

Bonjour,

C'est ok @DoubleZero ! Merci beaucoup !

 

[TooFatBoy]

@Marcel32 , pour ce qui est de la MFC je ne vois pas ?

Simplement : si la cellule est "non vide", alors mettre le fond en vert.