[RESOLU] MODIFICATION AUTOMATIQUE DE DATE (ANNEE)

Dranreb

XLDnaute Barbatruc

• 13 Décembre 2016

• #2

Bonjour.
Target.Offset(, -1).Value = Date
Dans une Worksheet_Change qui vérifie que Target appartient à la colonne B.

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 13 Décembre 2016

• #3

hdparcs à dit:

quand je modifie un montant en B1 je souhaite que en A1 l'actualisation se fasse automatiquement et affiche, pour aujourd'hui (13 décembre 2016), l'année du moment soit 2016.

Cliquez pour agrandir...

Bonjour,
En VBA ?
Ceci dans le module de la feuille concernée devrait faire

Code:

Option Explicit
Dim tmp As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then
If Target.Value <> tmp Then
With Target.Offset(, -1)
.Value = Date
.NumberFormat = "yyyy"
End With
End If
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then tmp = Target.Value
End Sub

 

Dernière édition: 13 Décembre 2016

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 13 Décembre 2016

• #4

bonjour la foule

si tu veux changer la date quelle que soit la colonne mais dans la même ligne
Target.Offset(, target.column*-1 +1) = year(now)

 

Vote positif 0 Vote négatif

H

hdparcs

XLDnaute Junior

• 18 Décembre 2016

• #5

Bonjour à vous 3,
Merci d'avoir pris le temps de me répondre. Cependant, à part utiliser les formules dans les cellules, je n'ai pas une connaissance autre. J'avoue ne pas comprendre les langages type TargetOffset, VBA... Serait-il possible d'avoir la formule à inscrire dans la case du type : "=si modification en B1 alors date du jour sous forme aaaa".
Merci d'avance.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Décembre 2016

• #6

Bonjour.
Non, pas possible sans VBA.

 

Vote positif 0 Vote négatif

H

hdparcs

XLDnaute Junior

• 18 Décembre 2016

• #7

Dranreb à dit:

Bonjour.
Non, pas possible sans VBA.

Cliquez pour agrandir...

Bonjour Danred,
Merci pour la réponse. Donc, pour moi qui n'aie aucune notion de macro, est-ce compliqué d'intégrer cette formule ?
Je suppose que je vais dans Développeur/Macros+
Je dois donner un nom à ma Macro : lequel ?
Je sélectionne le classeur concerné
Mais si mon classeur a plusieurs feuilles et que je souhaite que la modification ne concerne qu'une seule feuille, y-a-t-il une annotation particulière du genre ? :
Feuil1
Concrètement, je fais quoi avec ça ? :
Target.Offset(, -1).Value = Date
Dans une Worksheet_Change qui vérifie que Target appartient à la colonne B.
Je ne vois, dans cette formule, aucune référence aux colonnes A et B, comme dans ma demande.
Si ce n'est pas trop demander, est-ce possible de me guider en quelques mots ?
Ce serait sympa.
Merci d'avance...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Décembre 2016

• #8

Non, ça se met dans le module de la feuille (rubrique Microsoft Excel Objets de l'explorateur de projets).
Vous pouvez aussi faire un clic droit sur l'onglet, Visualiser le code.
Vous sélectionnez Worksheet dans la liste de gauche qui surmonte la fenêtre de code, puis Change dans celle de droite.
Ça vous fait venir un modèle de procédure Worksheet_Change avec un paramètre Target représentant la plage modifiée.
Pour ne rien exécuter si la cellule changée ne concerne pas le dispositif, le plus simple c'est de commencer par :

VB:

If Target.Columns.Count > 1 Or Target.Column <> 2 Then Exit Sub

 

Dernière édition: 18 Décembre 2016

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Décembre 2016

• #9

Bonjour à tous

Il existe une solution par formule.
Voir fichier

 

Pièces jointes

• hdparcs.xls

  60.5 KB · Affichages: 74

Vote positif 0 Vote négatif

H

hdparcs

XLDnaute Junior

• 18 Décembre 2016

• #10

Merci à Dranred, Jacky67 et Mutzik pour leurs réponses mais surtout à Chris401 qui m'a apporté la solution.
Ça fonctionne comme je veux. C'est parfait.

 

Vote positif 0 Vote négatif