Date de fabrication

Bonjour,

S'il vous plait, Il me faut une commande, a la place d'écrire la date de fabrication des pièces chaque jours , un bouton ou un truc simple, que je fait dans un cellule il me prend la date du jour mais fixe elle change pas le lendemain.

merci a tous.

Bien cordialement,

A.B

https://www.cjoint.com/c/IJcofOvSnoq

Bonjour Daki,

La date c'est dans la colonne "D" Fab ?

Bonjour,

Au double clic dans la colonne D et à partir de la ligne 12 !

A mettre dans le module de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Column <> 4 Then Exit Sub 'seulement la colonne D
    If Target.Row < 12 Then Exit Sub 'à partir de la ligne 12

    Target.Value = Date
    Cancel = True

End Sub

Bonjour Theze

Sinon pour la saisie dans n'importe quelle cellule active après double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

ActiveCell.Value = Now

End Sub

Attention ton fichier est au format Xlsx tu devras le réenregistrer au format qui accepte les macros xlsxm

Merci a vous Messieurs

DAki a écrit :

Merci a vous Messieurs, juste un souci je dois le mettre ou le code pour l'adapter sur d'autres tableaux.

merci encore une fois.

En fonction de ton clavier tu fais soit : ALT et F11 ou ALT FN F11

Ensuite tu doubles clic sur la feuille qui à besoin de ce code et tu recopies le code.

Enfin tu fais enregistrer sous et tu changes le format pour choisir xlsxm classeur avec macro.

Rappel mon code va mettre la date dans n'importe quelle cellule ou l'on fait un double clic …

Ne pas utiliser en cas de tremblement incontrôlés ; de tic ou autres…

Si toutes les feuilles on la même structure (ici c'est la colonne D qui est visée à partir de la ligne 12), tu peux le mettre dans le module du classeur mais dans ce cas, ça devient :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    If Target.Column <> 4 Then Exit Sub 'seulement la colonne D
    If Target.Row < 12 Then Exit Sub 'à partir de la ligne 12

    Select Case Sh.Name
        Case "ENT", "Autre nom de feuille", "Encore autre nom de feuille" ' etc...
            Target.Value = Date
            Cancel = True

    End Select

End Sub

Dans le "Select Case", il te faut adapter les noms des feuilles cible !