XL 2021 Formule pour Date

[MuscatMimi]

Bonjour a tout le Forum

Fichier joint
J'aimerais savoir s'il est possible
Quand je saisie les prix Colonne A,il faut que la date de saisie soit affichée automatiquement dans colonne Même ligne, et en dur afin que cette date ne change pas chaque jour automatiquement
Ensuite
Si j'efface le prix colonne A il faut que ça efface automatiquement la Date colonne B
Merci

 

[job75]

Bonjour MuscatMimi,

Activez le calcul itératif (menu Fichier-Options-Formules).

Formule en B2, à tirer vers le bas :

=SI(A2="";"";SI(CELLULE("address")=CELLULE("address";A2);AUJOURDHUI();B2))

A+

 

[MuscatMimi]

Merci ça fonctionne pas dans mon fichier ça affiche NA ou rien si je rentre une valeur colonne A

 

[mapomme]

Bonjour @MuscatMimi😀, @job75😉,

Sans calcul itératif, mais avec du code VBA (un peu commenté) dans le module de la feuille concernée:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcell
   ' si aucune cellule de la colonne A  n'a été modifiée alors on quitte
   If Intersect(Target, Range("a2:a" & Rows.Count)) Is Nothing Then Exit Sub
   Application.ScreenUpdating = False  ' on fige l'écran (plus rapide)
   On Error Resume Next    ' si la valeur modifiée est une erreur, on continue l'exécution
   Application.EnableEvents = False  ' pour se prémunir de la récursivité
   For Each xcell In Intersect(Target, Range("a2:a" & Rows.Count)).Cells
   ' pour chaque cellule modifiée
      If xcell <> "" Then  ' si sa valeur n'est pas vide
         xcell.Offset(, 1).NumberFormat = "dd/mm/yyyy"   ' formater la cellule date
         xcell.Offset(, 1) = Date                        ' y mettre la date du jour
      Else
         xcell.Offset(, 1).ClearContents                 ' effacer la date
      End If
   Next xcell
FIN:
   Application.EnableEvents = True  ' réactiver le traitement des évènements
End Sub

 

[cathodique]

Bonjour @MuscatMimi😀, @job75😉,

Sans calcul itératif, avec un peu de code VBA dans le module de la feuille concernée:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcell
   If Intersect(Target, Range("a2:a" & Rows.Count)) Is Nothing Then Exit Sub
   On Error GoTo FIN:
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   For Each xcell In Intersect(Target, Range("a2:a" & Rows.Count)).Cells
      If xcell <> "" Then
         xcell.Offset(, 1).NumberFormat = "dd/mm/yyyy"
         xcell.Offset(, 1) = Date
      Else
         xcell.Offset(, 1).ClearContents
      End If
   Next xcell
FIN:
   Application.EnableEvents = True
End Sub

Bonjour @MuscatMimi , @mapomme , @job75

Demander à @MuscatMimi , s'il n'est pas plus judicieux de supprimer la ligne si on efface le prix. Cela évite d'avoir des lignes vides dans la plage de données. Que faut-il faire si l'utilisateur efface la date d'une ligne au lieu du prix ?

bon week-end.

 

[MuscatMimi]

Bonjour @MuscatMimi , @mapomme , @job75

Demander à @MuscatMimi , s'il n'est pas plus judicieux de supprimer la ligne si on efface le prix. Cela évite d'avoir des lignes vides dans la plage de données. Que faut-il faire si l'utilisateur efface la date d'une ligne au lieu du prix ?

bon week-end.

non pas la ligne

 

[MuscatMimi]

Bonjour @MuscatMimi😀, @job75😉,

Sans calcul itératif, mais avec du code VBA (un peu commenté) dans le module de la feuille concernée:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcell
   ' si aucune cellule de la colonne A  n'a été modifiée alors on quitte
   If Intersect(Target, Range("a2:a" & Rows.Count)) Is Nothing Then Exit Sub
   Application.ScreenUpdating = False  ' on fige l'écran (plus rapide)
   On Error Resume Next    ' si la valeur modifiée est une erreur, on continue l'exécution
   Application.EnableEvents = False  ' pour se prémunir de la récursivité
   For Each xcell In Intersect(Target, Range("a2:a" & Rows.Count)).Cells
   ' pour chaque cellule modifiée
      If xcell <> "" Then  ' si sa valeur n'est pas vide
         xcell.Offset(, 1).NumberFormat = "dd/mm/yyyy"   ' formater la cellule date
         xcell.Offset(, 1) = Date                        ' y mettre la date du jour
      Else
         xcell.Offset(, 1).ClearContents                 ' effacer la date
      End If
   Next xcell
FIN:
   Application.EnableEvents = True  ' réactiver le traitement des évènements
End Sub

Super, ça fonctionne, et si je rajoute la même procédure en Col E et F, enplus de la première ça fonctionne pas

 

[sylvanu]

Bonjour tout le monde,

Demander à @MuscatMimi , s'il n'est pas plus judicieux de supprimer la ligne si on efface le prix.

Si la réponse est oui, un essai en PJ avec :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then
        If Cells(Target.Row, "A") = "" And Cells(Target.Row, "B") = "" Then Exit Sub
        Application.EnableEvents = False
        If Target = "" Then
            Rows(Target.Row).Delete Shift:=xlUp
        Else
            Cells(Target.Row, "B") = Date
        End If
        Application.EnableEvents = True
   End If
End Sub

 

[MuscatMimi]

Bonjour tout le monde,

Si la réponse est oui, un essai en PJ avec :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then
        If Cells(Target.Row, "A") = "" And Cells(Target.Row, "B") = "" Then Exit Sub
        Application.EnableEvents = False
        If Target = "" Then
            Rows(Target.Row).Delete Shift:=xlUp
        Else
            Cells(Target.Row, "B") = Date
        End If
        Application.EnableEvents = True
   End If
End Sub

non, ça va pas, ça supprime la ligne pas bon

 

[cathodique]

non, ça va pas, ça supprime la ligne pas bon

ça va très bien. Si tu donnes qu'une infime partie de ton problème.
On est pas devin. Pour ma part, je trouve ridicule (sur la base de 2 colonnes), garder des lignes vides.
Je n'aurai pas dû ajouter mon grain de sel.

 

[MuscatMimi]

ça va très bien. Si tu donnes qu'une infime partie de ton problème.
On est pas devin. Pour ma part, je trouve ridicule (sur la base de 2 colonnes), garder des lignes vides.
Je n'aurai pas dû ajouter mon grain de sel.

Ligne vides NON? elles seront modifiées