Question sur double click colonne et rangée

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:

---

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

Bonjour,

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

Code:

---

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

---

Trop génial:ccool:

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:

---

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