Planning sur semaine glissante, ouverture USF trop longue

piga25

XLDnaute Barbatruc

• 7 Mars 2015

• #16

Re : Planning sur semaine glissante, ouverture USF trop longue

Bonjour,

Trop fort SI.
Cela me plait bien.
Je regarde les codes pour comprendre, mais déjà c'est beaucoup plus fonctionnel et simple a utiliser.
Merci.

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 7 Mars 2015

• #17

Re : Planning sur semaine glissante, ouverture USF trop longue

re

piga25 à dit:

Je regarde les codes pour comprendre

Cliquez pour agrandir...

Si... tu veux des commentaires détaillés, pas de problème : il suffira de demander😀.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Mars 2015

• #18

Re : Planning sur semaine glissante, ouverture USF trop longue

Bonjour à tous,

Fonctionnera nettement mieux avec :

If Cells(1, i).Value <> Cells(1, 2).Value Then Cells(1, i).EntireColumn.Hidden = True

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 7 Mars 2015

• #19

Re : Planning sur semaine glissante, ouverture USF trop longue

Bonjour, Slt JCGL Normal que tu est vu cela, cette macro viens d'un de tes fichiers (par contre l'année ????). SI, Je n'arrive pas à comprendre l'opération qui consiste à griser (pattern) les cellules avant de leur mettre la couleur. J'ai essayé d'appliquer cela également sur la colonne C (liste des heures) pour mieux voir le créneau horaire sélectionné, mais que neni.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Mars 2015

• #20

Re : Planning sur semaine glissante, ouverture USF trop longue

Bonjour à tous,
Salut Patrick,

Peux-tu essayer:

VB:

Private Sub ComboBox1_Change()
  Frame1.Visible = 1
  x = R(1, 1).Row
  TextBox1 = Cells(x, 3): TextBox2 = Cells(x + R.Rows.Count - 1, 3)
  R.Interior.Pattern = 18
  Union(Cells(x, 3), Cells(x + R.Rows.Count - 1, 3)).Interior.Pattern = 18
  coul = [Tc].Find(ComboBox1, , , 1).Interior.Color
  Label4.BackColor = coul
End Sub
Private Sub Label4_Click()
  R.Interior.Pattern = 0
  [C4:C58].Interior.Pattern = 0
  R = ComboBox1
  R.Interior.Color = coul
  Unload Me
End Sub

A++ l'ami
A+ à tous

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 7 Mars 2015

• #21

Re : Planning sur semaine glissante, ouverture USF trop longue

Bonjour à tous,

Jean Claude, c'est cela mais pour que cela soit utile il faut que cela soit dès la sélection des cellules.
Je pense que la commande devrait être dans : worksheet_selectionChange()

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 7 Mars 2015

• #22

Re : Planning sur semaine glissante, ouverture USF trop longue

re

j'avais commencé réduire le nombre de colonnes mais sans agir sur les macros correspondantes.
Pour la mise en évidence des lignes sélectionnées, je passe plutôt par le formulaire (parce que son ouverture supprimait la vision de la sélection).

nota : pas eu le temps de faire beaucoup de contrôles.

 

Pièces jointes

• Planning sur semaine glissante (3).xlsm

  168.5 KB · Affichages: 43

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 7 Mars 2015

• #23

Re : Planning sur semaine glissante, ouverture USF trop longue

Re

Si: Pas mal. Comme dirait Dupond (celui avec le D), c'est mieux (lui répondit Dupont avec un T).

Je regarde tout cela et te tiens informé.
Merci

 

Vote positif 0 Vote négatif