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

anthoYS · 29 Avril 2022

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... :

VB:

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 · 29 Avril 2022

anthoYS à dit:

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... :

VB:

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...

Jacky67 · 29 Avril 2022

anthoYS à dit:

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... :

VB:

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 · 29 Avril 2022

Bonjour,

anthoYS à dit:
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 · 29 Avril 2022

Jacky67 à dit:
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 · 29 Avril 2022

Jacky67 à dit:
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 · 29 Avril 2022

Marcel32 à dit:
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 · 29 Avril 2022

Jacky67 à dit:
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 · 29 Avril 2022

anthoYS à dit:
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 · 29 Avril 2022

Jacky67 à dit:
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 · 29 Avril 2022

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

anthoYS · 29 Avril 2022

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

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

anthoYS

XLDnaute Barbatruc

Pièces jointes

Jacky67

Jacky67

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Pièces jointes

anthoYS

XLDnaute Barbatruc

Discussions similaires