Microsoft 365 Roulement travail

Dranreb

XLDnaute Barbatruc

• 28 Août 2019

• #2

Bonsoir.
Dans le module de l'objet Worksheet de la feuille :

VB:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim TNom(), TDon(), TLCol(1 To 4) As Long, TRés(1 To 100, 1 To 10), L As Long, C As Long, LR As Long
   If Target.Address <> "$AJ$2" Then Exit Sub
   TNom = Me.[B5:B121].Value
   TDon = Me.[C5:C121].Offset(, Target.Value).Value
   For L = 1 To UBound(TDon, 1)
      If IsNumeric(TDon(L, 1)) Then
         C = TDon(L, 1)
         If C >= 1 And C <= 4 Then
            LR = TLCol(C) + 1: TLCol(C) = LR
            TRés(LR, Choose(C, 1, 7, 10, 4)) = TNom(L, 1)
            End If: End If: Next L
   Me.[AL2:AU25].Value = TRés
   End Sub

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 28 Août 2019

• #3

Bonsoir à tous,
Peut-être ceci en cliquant sur le bouton GO !
Bonne nuit !

 

Pièces jointes

• Roulement travail.xlsm

  46.5 KB · Affichages: 10

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 28 Août 2019

• #4

Un tout grand merci Dranreb & JBARBE

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 29 Août 2019

• #5

Re,
Avec une macro plus simple et donc plus rapide !
Bonne nuit à tous !

 

Pièces jointes

• Roulement travail.xlsm

  46.2 KB · Affichages: 11

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 30 Août 2019

• #6

Bonjour,
je sollicite de nouveau vôtres aide, j'aimerai quand fonction de la catégorie (brig roues, brig jour, lavage ect…) et du nom de la personne une couleur qui lui est attribuer soit appliquer sur la cellule qui comporte leurs noms.
Exemple: tout les noms de B 7 à B 12 leurs soit attribuer une couleur sur les cellule AM à AS ainsi de suite pour les autres catégories

Ps: je l'avais fais manuellement avec la mise en forme conditionnelle => règle de mise en surbrillance des cellules => égale à
mais le soucis je devais le faire nom par nom et pour toutes les catégorie.

Merci d'avance.

 

Dernière édition: 30 Août 2019

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 30 Août 2019

• #7

bonjour à tous,
Je peux mettre une autre couleur !
Bonne journée !

 

Pièces jointes

• Roulement travail.xlsm

  46.7 KB · Affichages: 6

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 30 Août 2019

• #8

Re,
A moins que tu veux comme ceci !
@+

 

Pièces jointes

• Roulement travail.xlsm

  46.7 KB · Affichages: 7

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 30 Août 2019

• #9

Merci pour votre aide mais je voulais plutôt une couleur différentes en fonction des brigades
exemple: les noms qui ce trouve en dessous de la Brig roues est une couleur et en dessous de la Brig Jour est une autre couleur ainsi de suite pour les autres brigades.
Merci d'avance

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Août 2019

• #10

Bonjour.
Avec des mises en forme conditionnelles s'appliquant sur AL2:AU24
Pour le paquet BRIG. ROUES la formule est :

Code:

=ESTNUM(EQUIV(AL2;$B$7:$B$12;0))

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 30 Août 2019

• #11

Merci Dranreb ça fonctionne

Merci à vous.

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 31 Août 2019

• #12

Bonsoir à tous,
La mise en couleur des noms demandée en cliquant sur GO !
Bonne nuit !

 

Pièces jointes

• Roulement travailB.xls

  134 KB · Affichages: 9

Dernière édition: 31 Août 2019

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 1 Septembre 2019

• #13

Un tout grand merci Jbarbe c'est parfait 😉

 

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 2 Septembre 2019

• #14

Bonsoir,
J'ai rajouté 2 colonnes dans mon fichier roulement et j'aimerai que les noms qui comporte les lettres M et AT soit inscrit dans les cellules AW 18 à AW 25
Les noms qui comporte la lettre form soit inscrit dans les cellules AY 18 à AY 25
Les noms qui comporte la lettre C soit inscrit dans les cellules AW 2 à AW 16
Les noms qui comporte la lettre R soit inscrit dans les cellules AY 2 à AY 16

merci d'avance.

 

Pièces jointes

• Roulement travailB.xls

  94.5 KB · Affichages: 6

Vote positif 0 Vote négatif

O

odohe

XLDnaute Occasionnel

• 22 Septembre 2019

• #15

Bonjour,
Je reviens vers vous concernant ma demande du commentaire n°14

Merci d'avance pour toutes aides

 

Vote positif 0 Vote négatif