Microsoft 365 Touche remise à zéro

[albio]

Bonjour,
Sur un planning du personnel, j'aimerais créer une touche pour remettre à zéro toutes les lignes et les remettre en "ON"
Comment puis-je faire??
J'imagine que cela se fait que par une Macros ?
Merci de votre aide

 

[M12]

Bonsoir,
Un test

 

[albio]

super...
Mais comment??

 

[Eric C]

Bonsoir le forum
Bonsoir albio, bonsoir M12

Je me permets M12. Et pour que tout cela soit uniformisé :

Sub Test()
  Dim i%, j%, Dl%, Dc%
  Dim Ws As Worksheet
  Set Ws = Sheets("05,07,21")
  Dl = Ws.Range("A" & Rows.Count).End(xlUp).Row
  Dc = Ws.Cells(4, Columns.Count).End(xlToLeft).Column
    For i = 7 To Dl
      For j = 3 To Dc
        If Ws.Cells(i, j) <> "" Then
          Ws.Cells(i, j).Interior.Color = xlNone
         With Ws.Cells(i, j)
              .Value = "ON"
               .Font.Name = "Arial"               '> Pour uniformiser la police de caractères
               .Font.Color = RGB(0, 0, 0)         '> Pour une couleur de police uniforme
                End With
        End If
      Next j
    Next i
End Sub

Bonne nuit à toutes à & tous
@+ Eric c

 

[albio]

Bonsoir le forum
Bonsoir albio, bonsoir M12

Je me permets M12. Et pour que tout cela soit uniformisé :

Sub Test()
  Dim i%, j%, Dl%, Dc%
  Dim Ws As Worksheet
  Set Ws = Sheets("05,07,21")
  Dl = Ws.Range("A" & Rows.Count).End(xlUp).Row
  Dc = Ws.Cells(4, Columns.Count).End(xlToLeft).Column
    For i = 7 To Dl
      For j = 3 To Dc
        If Ws.Cells(i, j) <> "" Then
          Ws.Cells(i, j).Interior.Color = xlNone
         With Ws.Cells(i, j)
              .Value = "ON"
               .Font.Name = "Arial"               '> Pour uniformiser la police de caractères
               .Font.Color = RGB(0, 0, 0)         '> Pour une couleur de police uniforme
                End With
        End If
      Next j
    Next i
End Sub

Bonne nuit à toutes à & tous
@+ Eric c

Bonsoir Eric C merci
Malheureusement je ne comprends pas et tu n'as bien évidemment pas le temps de me donner un cours pour les macro...mais alors ou rentrer ces données

 

[Eric C]

Re le fil

Tu peux remarquer que M12 a ajouter un bouton en haut à gauche de ta feuille "05,07,21" nommé "RAZ". A ce bouton, il a appliqué une macro (suite d'instructions) que tu tu peux découvrir en faisant Alt +F11. Là, tu arrives dans le cœur du programme. Tu as les différentes feuilles de ton fichier (les Worksheets), ton classeur (Workbook) et un module (Module1). C'est ce module qui renferme le code (la macro) qui se nomme "Sub Test ( )" et qui détermine l'action du bouton "RAZ" et qui ne s'applique qu'à la feuille précitée. Tu découvriras le code en cliquant sur le module1.
Ensuite, il te faudra décortiquer le code pour tenter de comprendre le déroulement.
En espérant avoir un peu aidé.
Bon ouikand à toutes & à tous

 

[Eric C]

Re le fil

J'avais un peu de temps. J'ai revu ton tableau - Le bouton agit sur toutes les feuilles. De plus, tu fais un click droit sur une cellule (toutes les feuilles sont concernées (toutes les cellules également)) et tu as un listing des tâches qui apparaît. Tu cliques et la cellule se rempli.
Petit bémol qui va être corrigé par un membre, la couleur violette pour "OC" est dès fois verte ????
Bonne journé à toutes & à tous
@+ Eric c

 

[albio]

Salut Eric, merci d'avoir pris un peu de ton temps pour mon fichier.
Comment puis-je modifier la liste des tâches?
En fait je l'avait c'est derniers jours par une liste déroulante, mais ce que tu as fait est mieux

 

[Eric C]

Re le fil

Il te suffit d'aller modifier l'UserForm (Alt F11), module "Feuilles" puis tu cliques sur USF1.
Maintenant, je pars pour assister à un "baby shower" car je vais être papy pour la troisième fois.
Bonne fin de journée à toutes & à tous.
@+ Eric c

 

[albio]

Felicitations Eric
Navré mais Je ne vois pas comment

 

[Eric C]

Bonsoir le forum
Bonsoir le fil

Quel doivent être les # tâches à exécuter ?

 

[albio]

RH pour repos hebdomadaire
AT pour Arrivée tardive
OC pour On Call
Il se peut que j'en rajoute par la suite...
d'ou ma question comment je fait si je veux en rajouter plus tard?

 

[albio]

Comme Promo, standard, coupure...

 

[Eric C]

Il faut établir une liste définitive car on ne peut faire évoluer un UserForm .... Avec les éléments que je t'ai donné (il faut décortiquer), tu devrais pouvoir faire évoluer ton fichier car ce sont de petites adaptations par rapport à ce que font nos grands de ce forum.

 

[albio]

Il faut établir une liste définitive car on ne peut faire évoluer un UserForm .... Avec les éléments que je t'ai donné (il faut décortiquer), tu devrais pouvoir faire évoluer ton fichier car ce sont de petites adaptations par rapport à ce que font nos grands de ce forum.

Merci pour tout Eric