XL 2019 Colorer de jaune les semis en cours... et vert une fois récoltés

[anthoYS]

Bonjour,

Si date en B3 colorer de jaune A3, si date en G3 même s'il y a des dates avant, colorer A3 de vert fluo.

code à améliorer... :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveWorkbook.ResetColors
If Not Intersect(Target, Range("B:B")) Is Nothing Then
    Cells(Target.Row, 2) = Date
    Cells(Target.Row, 1).Interior.ColorIndex = 6 'jaune
    If Cells(Target.Row, 3) <> "" Then
        Cells(Target.Row, 1).Interior.ColorIndex = 4 'vert
    End If
End If

If Not Intersect(Target, Range("G:G")) Is Nothing Then
    Cells(Target.Row, 7) = Date
    Cells(Target.Row, 1).Interior.ColorIndex = 4 'vert
    End If
End If
End Sub

Merci !

 

[Jacky67]

Bonjour,

Si date en B3 colorer de jaune A3, si date en G3 même s'il y a des dates avant, colorer B3 de vert fluo.

code à améliorer... :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveWorkbook.ResetColors
If Not Intersect(Target, Range("B:B")) Is Nothing Then
    Cells(Target.Row, 2) = Date
    Cells(Target.Row, 1).Interior.ColorIndex = 6 'jaune
    If Cells(Target.Row, 3) <> "" Then
        Cells(Target.Row, 1).Interior.ColorIndex = 4 'vert
    End If
End If

If Not Intersect(Target, Range("G:G")) Is Nothing Then
    Cells(Target.Row, 7) = Date
    Cells(Target.Row, 1).Interior.ColorIndex = 4 'vert
    End If
End If
End Sub

Merci !

Bonjour,
Pourquoi utiliser du code vb, la mise en forme conditionnelle fait cela très bien

 

[TooFatBoy]

Bonjour,

Si date en B3 colorer de jaune A3, si date en G3 même s'il y a des dates avant, colorer B3 de vert fluo.

C'est bien B3 qu'il faut colorer de vert fluo, et non A3 ?


[edit]
Si je me réfère à la question précédente, ça semble plutôt être A3.
[/edit]

 

[Jacky67]

Bonjour,
Pourquoi utiliser du code vb, la mise en forme conditionnelle fait cela très bien

NB.....
*Il serait sage pour ne pas dire urgent de faire le ménage dans le gestionnaire de noms

 

[anthoYS]

Bonjour,
Pourquoi utiliser du code vb, la mise en forme conditionnelle fait cela très bien

Bonne idée, je n'y avais pas pensé, merci beaucoup ! simple et efficace !

 

[anthoYS]

Bonjour,


C'est bien B3 qu'il faut colorer de vert fluo, et non A3 ?


[edit]
Si je me réfère à la question précédente, ça semble plutôt être A3.
[/edit]

A3 oui pardon, c'est une erreur

 

[anthoYS]

NB.....
*Il serait sage pour ne pas dire urgent de faire le ménage dans le gestionnaire de noms

comment faire ? je compte m'y mettre dimanche !

 

[Jacky67]

comment faire ? je compte m'y mettre dimanche !

Re..
2. Dans le Gestionnaire de noms , pour sélectionner toutes les plages nommées, maintenir la touche Ctrl et sélectionner tous les noms ou ceux dont tu n'as pas besoin.

Puis clic sur supprimer
Il faut environ 10 secondes pour faire cela

 

[anthoYS]

Re..
2. Dans le Gestionnaire de noms , pour sélectionner toutes les plages nommées, maintenir la touche Ctrl et sélectionner tous les noms ou ceux dont tu n'as pas besoin.
Regarde la pièce jointe 1138299
Puis clic sur supprimer
Il faut environ 10 secondes pour faire cela

merci beaucoup !
je ferais ça dimanche dans mon fichier source. Je veux pas supprimer n'importe quoi... je veillerais à ce que les liens soient "dead".

 

[anthoYS]

j'ai supprimé beaucoup à la fois et ça répond pas depuis une à deux minutes...

 

[anthoYS]

c'est bon, merci beaucoup, comme ça c'est fait !