Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA : Date Automatique

  • Initiateur de la discussion Initiateur de la discussion villette54
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

V

villette54

Guest
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
 
Re : VBA : Date Automatique

Bonjour,

regarde ceci, à placer dans le module de la feuille concernée => click droit sur l'onglet => visualiser le code et tu colles :
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column <> 9 Or .Count > 1 Then Exit Sub
    Application.EnableEvents = False
    .Offset(0, 6) = IIf(.Value = "", "", Date)
End With
Application.EnableEvents = True
End Sub
bon après midi
@+

Edition : bonjour Gardien de phare
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
6
Affichages
636
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…