Discussion :

[traddybear]

Bonjour les programmeurs Excel,
Je travaille sur Access principalement, mais là j'aide ma fille sur Excel (il lui manque du temps) )

Voici:
1- Je veux double cliquer sur n'importe quelle cellule de la colonne ("D") et si la cellule est vide y inscrire la date du jour. Sinon on sort de la Sub.
2- Je veux que la rangée au complet sur laquelle je viens de cliquer (si elle était vide) prenne la couleur verte (no4).


Voici le bout de code qui marche pour l'instant, mais je n'arrive pas à trouver le moyen de répondre à mes deux points ci-dessus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If IsEmpty(ActiveCell.Value) Then
    ActiveCell.Value = Day(Now()) & "/" & Month(Now) & "/" & Year(Now())
End If
End Sub

Merci à l'avance de votre aide... si le coeur vous en dit )

[aalex_38]

Bonjour,

Pour ce que tu demandes il faut utiliser le range target :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count <> 1 Then Exit Sub ' on sort si plusieurs cellules cloquées
If Target.Column <> 4 Then Exit Sub ' On sort si différent de colonne 4
If IsEmpty(Target) Then
    Target = Day(Now()) & "/" & Month(Now) & "/" & Year(Now())
    Columns(Target.Column).Interior.ColorIndex = 50
End If
End Sub

[traddybear]

Trop génial

Je cherche depuis hier... c'est pas que je n'ai pas essayé, mais je suis limité dans mon expérience Excel.

Merci pour cette rapide réponse.

J'ai toutefois changé le code pour avoir la rangée colorée plutôt que la colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count <> 1 Then Exit Sub ' on sort si plusieurs cellules cloquées
If Target.Column <> 4 Then Exit Sub ' On sort si différent de colonne 4
If IsEmpty(Target) Then
    Target = Day(Now()) & "/" & Month(Now) & "/" & Year(Now())
    Rows(Target.Row).Interior.ColorIndex = 4
End If
End Sub

P.S. Je ne sais pas comment mettre le code en boite, mais je vais y regarder de plus près pour les prochaines fois ... promis