Bonjour,
J'écris en A1 et la date se met en C1.
Je clic sur A1 et la date s'efface.
Je voudrais la même chose sur la même feuille mais en A10 et la date en c10.
Je voudrais la même chose sur la même feuille mais en A15 t la date en c15.
Jusqu'a présent en copiant la procédure et en changeant le numérosdes celulles ,la date se met automatiquement en C10 et C15.
Merci d'avance
A +
Je vois plusieurs cas ou plusieurs possibilites a ta demande:
1. Tu souhaites afficher la date en C1 si A1 n'est pas vide (<>"") et idem pour C10/A10 et C15/A15. Une simple formule SI peut resoudre le probleme...
2. Tu souhaites creer une macro qui fait apparaitre et disparaitre la date en C1, C10 et C15 en fonction des clics de l'utilisateur... La il faudrait preciser ta demande car ce n'est pas clair (pour ma part).
Avec une macro ça pourrait donner un truc dans ce genre :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Select Case Target.Row
Case 1, 10, 15
If Target.Value = "" Then
Cells(Target.Row, 3) = ""
Else
Cells(Target.Row, 3) = Date
End If
End Select
End If
End Sub
Tout d'abord, le Target est ici la liste des cellules qui viennent d'être modifiées.
Intersect([A2], Target) te donne les cellules communes à A2 et Target.
Donc si la cellule A2 fait partie du Target, alors le résultat est A2, sinon il est vide.
Not Intersect([A2], Target) est en quelque sorte l'inverse de l'Instersect en question.
Not Intersect([A2], Target) Is Nothing autrement dit si la cellule A2 fait partie du Target.
Target.Count = 1 le nombre de cellules du Target est égal à 1.