Saisi automatique des dates si une case rempli par macro enregistré

Bonjour,

Malheureusement j'ai cherché dans ce furom sans résultat! je vous adresse encore une fois dans l'espoir de trouver une solution à mon problème!

Quand je saisis manuellement dans la colonne K j'obtiens la saisi de la date automatique dans la colonne J à l'aide de la formule { SI(K2="";"";SI(J2<>"";J2;AUJOURDHUI())) } jusque ici tout va bien! mais quand je saisi dans la colonne J à l'aide d'un macro enregistré affecté à un bouton la colonne K donne la date 00/01/1900 au lieu de la date de jours que je cherche.

Je vous remercie d'avance de votre aide!
20test.zip (227.19 Ko)

Bonjour,

La macro pour remplir la colonne J de la feuille 2

Sub Formule()
    Dim Sh As Worksheet
    Application.ScreenUpdating = False
    Set Sh = Sheets("Feuille2")
    DerLig = Sh.Range("K" & Rows.Count).End(xlUp).Row
    For i = 2 To DerLig
        If Sh.Cells(i, "J") = "" And Sh.Cells(i, "K") <> "" Then Sh.Cells(i, "J") = Format(Date, "m/d/yyyy")
    Next i
    Set Sh = Nothing
End Sub

Cdlt

Bonjour à toutes et tous, Kamalo, Arturo83,

@Kamalo, a tester le code est directement mis dans la "Feuille2", il s'applique pour les colonnes "J & M".

16kamalo.zip (227.00 Ko)

Cdlt.

Merci bcp Arturo83 et mdo100!

C'est fonctionne très bien!

Merci bcp encore une fois et chapeau!!

Re Kamalo,

Dans Visual Basic faire un double clic dans la feuille

capture

Cdlt.

PS: N'oublie pas de passé le sujet en résolu. Merci.

Exactement ce que j'ai fait merci mdo100!

Merci bcp!

Bonjour mdo100,

J'aimerais bien de créer sur mon classeur deux boutons ENREGISTRER et IMPRIMER pouvez vous me conseiller par code VBA SVP?

Merci d'avance!

Rechercher des sujets similaires à "saisi automatique dates case rempli macro enregistre"