XL 2016 Date automatique figée

[Lucio]

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.

 

[Compte Supprimé 979]

Bonsoir Lucio,

Seule possibilité à mes yeux... par VBA 😉

 

[dg62]

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

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

 

[dg62]

Une version mieux adaptée

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

 

[Compte Supprimé 979]

Salut dg62

Tu aimes bien les espaces toi

 

[dg62]

Bonjour BrunoM45,
peut-être à cause du confinement 😉

 

[Lucio]

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

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

merci c est top

 

[Lucio]

merci c est top

 

[Lucio]

Et comment faire pour figer une date auto dans colonne H si colonne C,D,E,F,=FINI?
Peut-on mettre cette condition et la 1ere ensemble?

 

[Lucio]

Et comment faire pour figer une date auto dans colonne H si colonne C,D,E,F,=FINI?
Peut-on mettre cette condition et la 1ere ensemble?

Peut on faire disparaitre la date quand la cellule est vide?

 

[dg62]

Re,
Une proposition

 

[Lucio]

Re,
Une proposition

Merci pour ton retour. Quand j'ecris "FINI" il m'insére pas la date, sais-tu pourquoi?
Est-ce possible que cette macro fonctionne pour les colonnes allant jusqu'à le cellule 50 car j ai un tableau?

 

[dg62]

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.

 

[Lucio]

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.

Ton exemple est sur une ligne. comment faire pour plusieurs ligne? Peux-tu m'aiguiller?

 

[dg62]

Bonjour Lucio
Un exemple pour travailler sur des plages

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