Transformer un format de cellule "date" en format "standard" sous condition

[JOCIL]

Bonjour,

Dans une colonne, je souhaite transformer automatiquement une cellule qui est en format "date" (jj/mm/aaaa) en format "standard" sous condition (la condition étant définie dans une autre cellule et correspond à une date).


Ex: je souhaite changer dans une colonne toutes les lignes sur lesquelles figure la date du 2/05/2011 en valeur standard (= 40665) de façon automatique. Je joins un fichier qui sera sans doute plus explicite (enfin je l'espère).

 

[mth]

Re : Transformer un format de cellule "date" en format "standard" sous condition

Bonjour Jocil,

Une tentative avec ce code (si j'ai bien compris)

Sub macro1()
Dim c As Range
Application.ScreenUpdating = False
With Sheets("Feuil1")
    For Each c In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
        If c.Value = .[D1] Then c.NumberFormat = "General"
    Next c
End With
Application.ScreenUpdating = True
End Sub

Bonne journée,

mth

Edit: Hello Softmama 🙂

 

[Softmama]

Re : Transformer un format de cellule "date" en format "standard" sous condition

Bonjour, bonjour mth 🙂

Une autre façon de faire :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address(0, 0) = "D1" Then
  Set c = Target
    Set c = Cells.Find(what:=Target, After:=Target, LookIn:=xlValues, lookat:=xlWhole)
    Do While c.Address <> Target.Address
      c.NumberFormat = "General"
      Set c = Cells.FindNext(c)
    Loop
End If
End Sub

 

[TempusFugit]

Re : Transformer un format de cellule "date" en format "standard" sous condition

Bonjour


Une autre solution utilisant le filtre automatique

Sub Macro3()
MonCritere = Range("D1").Value
Selection.AutoFilter 1, MonCritere, xlAnd
Selection.SpecialCells(xlCellTypeVisible).NumberFormat = "General"
Selection.AutoFilter
End Sub

 

[JOCIL]

Re : Transformer un format de cellule "date" en format "standard" sous condition

Merci à tous les deux pour vos réponses.

Yes, ça marche !!!

😀

 

[TempusFugit]

Re : Transformer un format de cellule "date" en format "standard" sous condition

Merci à tous les deux pour vos réponses.

Nous étions trois (lol)