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

XL 2016 Date automatique figée

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Lucio
  • 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 !

S'inscrire
L

Lucio

XLDnaute Junior
Bonsoir, j'aimerais savoir comment pouvoir avoir une date figée automatique en G1 quand A1 est inscrit de chiffres ?
De plus, j aimerais également pouvoir insérer une date auto figée en H1 quand B1,C1,D1, ou E1 est inscrit d'un texte.
Merci de votre aide.
 
Trier par date Trier par votes
Bonjour le fil,

Un code à adapter à votre besoin
si une saisie à lieu dans la colonne A, la date s'affiche dans la cellule correspondante en G
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

            With Target(1, 7)

                .Value = Date

              
            End With

        End If

End Sub
 
Vote positif 0 Vote négatif
Une version mieux adaptée

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A1")) Is Nothing Then

            With Target(1, 7) 'G1
           
            If IsNumeric(Target) Then .Value = Date
           
            End With

        End If
       
        If Not Intersect(Target, Range("B1:E1")) Is Nothing Then
        

            If Not IsNumeric(Target) Then Range("H1").Value = Date
           
           
        End If

End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif


merci c est top
 
Vote positif 0 Vote négatif
Re,
Si la cellule A1 est vide la procédure n'inscrit pas La date et il faut respecter la casse, "Fini". Ça peut être changé dans le code.
Pour le reste il faut fournir la totalité des contraintes. Le code ne sera pas le même.
un classeur avec le résultat attendu et les contraintes.
 
Dernière édition:
Vote positif 0 Vote négatif
Ton exemple est sur une ligne. comment faire pour plusieurs ligne? Peux-tu m'aiguiller?
 
Vote positif 0 Vote négatif
Bonjour Lucio
Un exemple pour travailler sur des plages

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
            If IsNumeric(Target) Then Target.Offset(1, 7).Value = Date ' Colonne G
        End If
       
        If Not Intersect(Target, Range("B1:E100")) Is Nothing Then
            If Target.Value = "FINI" Then Target.Offset(1, 8).Value = Date 'Colonne H
        End If

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

A
  • Résolu(e)
XL 2021 Création de tableau
2
Réponses
29
Affichages
510
Alamyr
A
W
  • Question Question
XL 2016 La fonction SI avec conditions multiples
Réponses
4
Affichages
165
TooFatBoy
  • Question Question
Microsoft 365 Formule
Réponses
4
Affichages
162
mapomme
D
  • Question Question
XL 2021 figer le contenu d'une cellule en fonction d'une date
Réponses
3
Affichages
539
JHA
J
C
  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
139
Dudu2
T
  • Résolu(e)
XL 2010 Formule - Numéro à 5 chiffres transformé en date
Réponses
2
Affichages
351
Dranreb
S
  • Résolu(e)
Microsoft 365 Copier automatiquement sur une ligne sur une autre feuille si la date est supérieur à une date définie
2
Réponses
17
Affichages
1 K
S.J
S
M
  • Question Question
Microsoft 365 Catégorisation
Réponses
5
Affichages
594
Martindu74400
M
XLS : Fonctionnement des chiffres Unicode
Réponses
0
Affichages
340
Lu76Fer
C
  • Question Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
341
CS49
C
Y
  • Question Question
XL pour MAC FONCTION SI(ET/OU)
Réponses
1
Affichages
663
djidji59430
K
  • Résolu(e)
Microsoft 365 Incrémenter des valeurs présentées à l'horizontale dans une autre feuille en verticale
Réponses
4
Affichages
523
kikilabrax
K
J
  • Résolu(e)
XL 2013 Identification avec si( ou( et( sur 6 critères
Réponses
4
Affichages
631
jmst1
J
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
574
iruri
I
C
  • Question Question
Microsoft 365 ouvrir un fichier a partir d un folder
Réponses
4
Affichages
499
cg1980
C
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
493
Raziel abel
V
  • Question Question
XL pour MAC Changer de cellule automatiquement après avoir entré une valeur dans la cellule.
Réponses
7
Affichages
873
TooFatBoy
  • Résolu(e)
Autres Date si plusieurs conditions
Réponses
6
Affichages
556
sergiofox
C
  • Question Question
Microsoft 365 Synthèse de données
2
Réponses
23
Affichages
1 K
Corinne
C
D
  • Question Question
Microsoft 365 Différence entre deux dates
Réponses
10
Affichages
522
Daniel200666
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…