Sujet Précédent Sujet Suivant

Comment insérer automatiquement une date du jour statique si

Résolu/Fermé
Hunadia2016 Messages postés 4 Date d'inscription vendredi 22 janvier 2016 Statut Membre Dernière intervention 22 janvier 2016 - 22 janv. 2016 à 14:53
Hunadia2016 Messages postés 4 Date d'inscription vendredi 22 janvier 2016 Statut Membre Dernière intervention 22 janvier 2016 - 22 janv. 2016 à 17:06
Bonjour,

J'ai beaucoup lu les réponses apportées au sujet sans trouver exactement la réponse recherchée.
Voici le casse tête (pour moi mais pas pour vous!)
Je souhaite qu'un utilisateur d'une feuille excel puisse, si il remplit (par exemple)
la cellule A1...cela insère automatiquement en C1 la date du jour statique....
(J'entend par statique que cela ne change pas si on ré-ouvre le classeur quelques jours plus tard
Que lorsqu'il remplit A2, cela insère la date en C2..et ainsi de suite jusqu'à une plage limitée (par exemple A100....date en C100...)
J'ai pensé à une macro intégrant le raccourci excel "Ctrl+;" mais je n'y connais pas grand chose en macro
Pouvez vous m'aider sur le sujet?
D'avance merci

A voir également:

1 réponse

Réponse 1 / 1
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
22 janv. 2016 à 15:28
Bonjour,

A mettre dans le module de la feuille : 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pl As Range, c As Range
    Set pl = Intersect([A1:A100], Target)
    If Not pl Is Nothing Then
        For Each c In pl
            If c.Offset(, 2) = "" Then c.Offset(, 2) = Date
        Next c
    End If
End Sub

Une date déjà mise est protégée.
Si tu veux qu'elle soit mise à jour supprimer If c.Offset(, 2) = "" Then
eric
3
Hunadia2016 Messages postés 4 Date d'inscription vendredi 22 janvier 2016 Statut Membre Dernière intervention 22 janvier 2016
22 janv. 2016 à 15:55
Bonjour,
Tout d'abord je tiens à te remercier pour la célérité dans ta réponse. C'est génial car qui plus est, cela fonctionne...
Je vais abuser...comment puis-je ajouter une condition...que l'actualisation de la création de la date ne s'active pas si en A la cellule reste vide (je pense à la suppression de la valeur préexistante en A1, ou le simple clic sur la cellule vide A1)...
(et encore merci pour ta précédente réponse - c'st cool)
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
22 janv. 2016 à 16:06
If c<>"" and c.Offset(, 2) = "" Then
0
Hunadia2016 Messages postés 4 Date d'inscription vendredi 22 janvier 2016 Statut Membre Dernière intervention 22 janvier 2016
22 janv. 2016 à 16:27
Il s'agit d'une ligne à ajouter juste avant la ligne 7 Next C et sous la précédente condition?
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
22 janv. 2016 à 16:37
Non, en remplacement de If c.Offset(, 2) = "" Then
0
Hunadia2016 Messages postés 4 Date d'inscription vendredi 22 janvier 2016 Statut Membre Dernière intervention 22 janvier 2016
22 janv. 2016 à 17:06
je suis un boulet. Merci de ta réponse. çà marche
bon week end
0

Discussions similaires

Prélèvement JM Jacquie et Michel date.
Kekradinho -
Kar -

31 réponses
Si une date est supérieure à une autre
cindy -
cindy -

9 réponses
Problème Whatsapp - "La date est incorrecte"
thvzzz -
Razor -

5 réponses
Pix
Anyssa -
vibe -

4 réponses
Que peut faire 3fois/j un homme, mais qu'1fois/j une femme
Soter -
Raymond PENTIER -

1 réponse