Microsoft 365 Touche remise à zéro

M12

XLDnaute Accro

• 1 Octobre 2021

• #2

Bonsoir,
Un test

 

Pièces jointes

• Planning Medusa 2021.xlsm

  216.1 KB · Affichages: 8

Vote positif 0 Vote négatif

A

albio

XLDnaute Junior

• 1 Octobre 2021

• #3

super...
Mais comment??

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 1 Octobre 2021

• #4

Bonsoir le forum
Bonsoir albio, bonsoir M12

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

VB:

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

 

Vote positif 0 Vote négatif

A

albio

XLDnaute Junior

• 2 Octobre 2021

• #5

Eric C à dit:

Bonsoir le forum
Bonsoir albio, bonsoir M12

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

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 2 Octobre 2021

• #6

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 2 Octobre 2021

• #7

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

 

Pièces jointes

• Planning Medusa 2021 revu Eric c .xlsm

  245 KB · Affichages: 7

Vote positif 0 Vote négatif

A

albio

XLDnaute Junior

• 2 Octobre 2021

• #8

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 2 Octobre 2021

• #9

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

 

Vote positif 0 Vote négatif

A

albio

XLDnaute Junior

• 2 Octobre 2021

• #10

Felicitations Eric
Navré mais Je ne vois pas comment

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 2 Octobre 2021

• #11

Bonsoir le forum
Bonsoir le fil

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

 

Vote positif 0 Vote négatif

A

albio

XLDnaute Junior

• 2 Octobre 2021

• #12

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?

 

Vote positif 0 Vote négatif

A

albio

XLDnaute Junior

• 2 Octobre 2021

• #13

Comme Promo, standard, coupure...

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 2 Octobre 2021

• #14

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.

 

Vote positif 0 Vote négatif

A

albio

XLDnaute Junior

• 3 Octobre 2021

• #15

Eric C à dit:

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.

Cliquez pour agrandir...

Merci pour tout Eric

 

Vote positif 0 Vote négatif