Date dans plusieurs celulles

[abc]

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 +

 

[pedrag31]

Re : Date dans plusieurs celulles

Bonjour Abc, bonjour le forum,

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

En attendant de te lire...

Bonne journee,🙂

 

[TooFatBoy]

Re : Date dans plusieurs celulles

Bonjour à tous,

Avec une macro ça pourrait donner un truc dans ce genre :

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

 

[abc]

Re : Date dans plusieurs celulles

Bonsoir,
Aprés des recherches voila ou j'en suis.
Pourrais-t-on me traduire le code car je ne saisis pas tout.
Merci à marcel pour la proposition.
A+

 

[TooFatBoy]

Re : Date dans plusieurs celulles

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.

 

[abc]

Re : Date dans plusieurs celulles

Bonjour,
Tout simple merci,marcel, pour les explications.
A +