Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour suivi journalier

  • Initiateur de la discussion Initiateur de la discussion Louloute34
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

Louloute34

Guest
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
 

Pièces jointes

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
Code:
=SI(A3=0;"";TEXTE(AUJOURDHUI();"mmmm"))
A+
kjin
 
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 :

Code:
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é
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
790
S
Réponses
8
Affichages
2 K
S
C
Réponses
2
Affichages
2 K
Costa8888
C
N
Réponses
4
Affichages
1 K
capc93
C
C
Réponses
6
Affichages
2 K
Crapulfeust
C
G
  • Question Question
Réponses
1
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…