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

Bouton OK

L

laurent1954

XLDnaute Nouveau
Bonjour

Je voudrais savoir si c'est posssible d'exécuter une macro de la façon suivante:

Voici plus clairement la situation que je souhaite exécuter dans ce fichier:
Dans la cellule G4, "Feui1" une formule affiche le nombre d'équipements en arrêt pour réparation.
A chaque semaine mes superviseurs doivent faire une mise a jour de la situation.
Cependant il y a fréquemment des manquements a cette règle.
Pour régler ce problème:
A 00:00:00h le lundi, "Mise à Jour" s'affiche dans la cellule G5 "Feuil1" pour rappeler au superviseur le travail à faire. ( Voir feuil1) du classeur joint)
Lorsque sa tâche est accompli, il clique sur un bouton "OK"situé dessous.
En cliquant, sur le Bouton, "Mise à jour" disparaît et OK s'affiche à la place toujours dans la cellule G5. ( Voir exemple feuil2)
Le lundi suivant, "Mise à jour" s'affiche à nouveau dans la cellule G5 et ainsi de suite...
Merci pour votre support
laurent1954
 

Pièces jointes

  • Bouton OK v1.xlsm
    89.8 KB · Affichages: 35
Trier par date Trier par votes

Dranreb

XLDnaute Barbatruc
Re : Bouton OK

Bonjour.

Au cas où le classeur n'était pas ouvert le lundi, ceci devrait détecter un changement de semaine :
VB: 
Option Explicit

Private Sub Workbook_Open()
With Feuil1.[B4]
   If Date - Weekday(Date, vbMonday) <> .Value - Weekday(.Value, vbMonday) Then
      Feuil1.[G5].Value = "Mise à jour"
      End If
   .Value = Date: End With
End Sub
 
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
Re : Bouton OK

Bonjour à tous,

Un essai dans le fichier joint.


  • le bouton a été renommé "BoutonMAJ"
  • la cellule G6 conserve la dernière date où un utilisateur a cliqué sur le bouton et répondu que la mise à jour a été faite.
  • la cellule G7 conserve le username du dernier utilisateur qui a cliqué sur le bouton et répondu que la mise à jour a été faite.
  • le coloriage en vert => mise à jour déclarée comme faite
  • le coloriage en rouge => mise déclarée à faire
 

Pièces jointes

  • laurent1954- Bouton OK- v1.xlsm
    69.8 KB · Affichages: 36
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2016 Créer un Bouton "OK" ou "VALIDER_ENREGISTRER"
Réponses
3
Affichages
264
TATA2000
N
  • Résolu(e)
Microsoft 365 Bouton Insertion
Réponses
4
Affichages
139
Nathan027
N
Q
  • Question
XL 2019 Probleme liste déroulante via vba
Réponses
3
Affichages
456
Quicksland
Q
C
  • Question
XL 2016 Excel 2016 - Création d'un envoi par outlook d'e-mail à partir d'une colonne d'adresse e-mail dans un tableau.
Réponses
2
Affichages
454
kiki29
  • Résolu(e)
XL 2013 (RESOLU)Afficher les Jours de la Semaine en Infobulle
2
Réponses
20
Affichages
1 K
TooFatBoy
  • Résolu(e)
XL 2013 (RESOLU) Affichage du bouton selon l'événement d'une cellule
Réponses
7
Affichages
260
chaelie2015
D
  • Question
Microsoft 365 Listbox multiple colonnes filtrée et modifiable
Réponses
3
Affichages
421
cp4
O
  • Question
Microsoft 365 Retranscrire text dans cellules si les conditions son rempli dans d'autres cellules
Réponses
5
Affichages
378
odohe
O
F
  • Question
Microsoft 365 Aide mise en forme tableau Excel
Réponses
0
Affichages
207
Fanfan1998
F
B
  • Résolu(e)
Microsoft 365 Formule Excel : Colonne selon date du jour
Réponses
4
Affichages
377
djidji59430
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…