Macro pour suivi journalier

[Louloute34]

Bonjour à tous,

Je découvre avec un pur bonheur ce forum, et je ne vous cache pas que je me réjouis fortement de pouvoir partager et d'échanger avec des passionnés de ce logiciel.

Cela fait quelques mois que je buche sur un petit programme permettant de faire un suivi de productivité journalier de mes préparateurs de commande.

Je vous explique : en rentrant l'identifiant du préparateur, son nom, son type de contrat s'affiche. Comme c'est un suivi journalier, j'aurais souhaité que le jour, la mois et l'année, s'affichent automatiquement.

Si vous pouvais m'éclairer un peu, je vous serais très reconnaissant.

Cordialement

 

[kjin]

Re : Macro pour suivi journalier

Bonsoir et bienvenu,
Je ne comprends ni le pb ni la question
En outre, pour renvoyer le mois en E3

=SI(A3=0;"";TEXTE(AUJOURDHUI();"mmmm"))

A+
kjin

 

[Pierrot93]

Re : Macro pour suivi journalier

Bonjour Louloute, Kjin

si j'ai bien compris, en lieu et place de tes formules dans les colonnes D,E et F, une macro événementielle, se déclenche lors de la modification d'une cellule dans la colonne A, à placer dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Application.EnableEvents = False
    With Target
        .Offset(0, 3).Value = Day(Date)
        .Offset(0, 4).Value = MonthName(Month(Date))
        .Offset(0, 5).Value = Year(Date)
    End With
    Application.EnableEvents = True
End If
End Sub

bonne journé
@+

 

[Louloute34]

Re : Macro pour suivi journalier

Cela marche parfaitement ! Enfin !

Merci beaucoup !