VBA Excel 2010 : Date automatique

Résolu/Fermé
Villette54
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
- 26 mars 2013 à 14:12
Villette54
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
- 26 mars 2013 à 16:09
Bonjour à tous,

J'ai un petit soucis, je suis novice en VBA et j'ai pourtant besoin de l'utiliser encore une fois aujourd'hui.

Pour faire simple :

J'ai un tableau Excel avec plusieurs colonnes (N°, Lieux, Description, Date, Personne, ect..)
J'aimerais créer un code en VBA qui lorsque qu'un N° est tapé sur une ligne de la colonne I, la date du jour s'écrive automatiquement dans cette même ligne dans la colonne O, mais qu'elle puisse être modifier en cas d'encodage en retard par exemple.

Je suis obligé d'utiliser VBA je ne peux pas mettre une formule basique car comme je l'ai dis, les personnes chargées de l'encodage peuvent avoir besoin de modifier cette date pour X ou Y raison et si une formule est déjà écrite dans cette cellule, certain ne voudront pas y toucher.

En espérant que quelqu'un puisse m'aider. Merci d'avance

2 réponses

g
Messages postés
1263
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
574
26 mars 2013 à 14:39
Bonjour,

Code à copier dans le module de feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
If Target.Column = 9 Then 'Saisie en colonne 9
Cells(i, 15).Value = Date 'Date fixée en colonne 15
End If
End Sub

Cordialement.
0
Villette54
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
29
26 mars 2013 à 16:09
Ça fonctionne, c'est parfait je te remercie :)

Bonne journée
0