XL 2010 double clic sur la colonne A (ou se trouve des dates), colorer de vert [RESOLU]

[anthoYS]

Bonjour,

Par exemple si en A2, colorer la date qu'il y a en A2 le fond en vert fluo. Etc.

Merci

 

[sylvanu]

Bonjour Antho,
Difficile de faire plus succinct comme requête.
Un essai en PJ, mais surement à coté de la plaque, je ne tiens pas compte du Etc !

 

[Calvus]

Bonjour,

Je ferais comme ça, mais tu ne précises pas s'il n'y a que des dates, ou si on ne doit colorer que des dates parmi d'autres valeurs.

Code dans le code de la feuille, double cliquer sur une cellule de la colonne A.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If Cells(i, 1) <> "" Then
        Cells(i, 1).Interior.Color = 5296274
    End If
Next i
Cancel = True

End Sub

A+

EDIT : bonjour Sylvanu

 

[anthoYS]

En fait il faut colorer la case après double clic si et seulement si la case contient une date, et seulement en A qu'importe la date.

 

[Staple1600]

Bonjour le fil,

Pour infos=> Calvus, sylvanu
De l'importance des mots dans le titre d'une discussion
(voir ma réponse dans l'autre fil d'AnthoYS)

https://www.excel-downloads.com/thr...puis-decolorer-boucle.20042675/#post-20308020

 

[Calvus]

Re,

De l'importance des mots dans le titre d'une discussion
(voir ma réponse dans l'autre fil d'AnthoYS)

Ah oui, je n'avais pas vu.
Mais c'est le même problème du coup ?? suis largué là.

 

[Staple1600]

Re

=>Calvus
Cliques sur le lien dans mon précédent message
et observe attentivement ce qui s'affichera à la droite de ton écran

 

[Calvus]

Re,

Et bien ! anthoYS aime bien colorer en jaune !

 

[sylvanu]

Re,
Vérifiez en PJ.
Pour différentier nombre et date, j'attends deux "/" dans le nombre pour le considérer comme une date.

 

[anthoYS]

Merci beaucoup @sylvanu

 

[job75]

Bonjour anthoYs, sylvanu, Calvus, JM,

Pourquoi utiliser le double-clic ?

Cette macro dans le code de la feuille colore automatiquement les dates en colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo(), i&
Set Target = Intersect(Target, Columns(1), UsedRange)
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each Target In Target.Areas
    Target.Interior.ColorIndex = xlNone 'RAZ
    tablo = Target.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
    For i = 1 To UBound(tablo)
        If IsDate(tablo(i, 1)) Then Target(i).Interior.ColorIndex = 4 'vert
Next i, Target
End Sub

Testé sur 100 000 lignes avec des dates 1 ligne sur 2 => 1,1 seconde chez moi pour tout colorer.

A+

 

[anthoYS]

Bonjour anthoYs, sylvanu, Calvus, JM,

Pourquoi utiliser le double-clic ?

Cette macro dans le code de la feuille colore automatiquement les dates en colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo(), i&
Set Target = Intersect(Target, Columns(1), UsedRange)
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each Target In Target.Areas
    Target.Interior.ColorIndex = xlNone 'RAZ
    tablo = Target.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
    For i = 1 To UBound(tablo)
        If IsDate(tablo(i, 1)) Then Target(i).Interior.ColorIndex = 4 'vert
Next i, Target
End Sub

Testé sur 100 000 lignes avec des dates 1 ligne sur 2 => 1,1 seconde chez moi pour tout colorer.

A+

Bonjour.

C'est vrai c'est inutile. Merci !