Discussion :

[newsinfos]

Bonjour à tous de ce forum,

j'essaie d'établir un plan de travail qui indique s'il y a trop de personnes en congé. Si on prend congé on met une couleur de fond.

Dès que plus que 4 personnes en congé, est affiché un Msgbox et Userform,
et la il y a des bug, je n'avance pas,

comment y mettre que MSgbox et USF sont affichés
si la ligne 28 > 4 et si la ligne 28 <> ligne 30

et que toutes les dates figurant dans ligne 29 sont repris dans textbox 3 (date, jours)

p.ex. y mettez une couleur de fond dans Range("G8:V8"),
afin que les dates seront indiqués dans la ligne 29

[jpenja]

Peut tu faire passer ton code pour plus de clareté.Plus facile pour tout le monde de t'aider.

[newsinfos]

Bonjour à tous de ce forum,

re: Peut tu faire passer ton code pour plus de clareté
le code à appliquer je ne sais pas,

dates, textbox3:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if row29 > 0, then 
toutes les dates figurant dans ligne 29 sont repris dans textbox 3

Private Sub UserForm_Initialize()
TextBox3.Value = Row("29" & ActiveCell.Row)  ' à reprendre les dates dans ligne 29 de l'ActiveCell.Row
End Sub

afficher Msgbox et USF:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B5:V20]) Is Nothing Then
  If Not IsEmpty(celluleAvant) Then
    If Not Intersect(Range(celluleAvant), [A1:V27]) Is Nothing Then Calculate
  End If
  celluleAvant = Target.Address
  If Not Intersect(Target, [B5:V20]) Is Nothing Then
    If Application.WorksheetFunction.Max([B29:V29]) <> 0 And Application.WorksheetFunction.Max([B30:V30]) <> [B28:V28] Then
        Message1 = _
        MsgBox("Nb de couleurs > 4 !", vbExclamation, "Limite dépassée en ligne 29")
    End If
  End If
  UserForm1.Show
End If
End Sub

voir fichier ci-joint plus explicite

[NEC14]

Bonjour,

Pour moi il manque un "S" à Row("29")

[newsinfos]

Bonjour à tous du forum,

merci pour réponse NEC14,
j'ai fait des essais avec les changements comme rows("29"....) et IF row29 > 0,
mais cela ne fonctionne pas, j'ai des bug dans le Userform1,

de même ne fonctionne pas avec la procédure suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B5:V20]) Is Nothing Then
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [A1:V27]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
If Not Intersect(Target, [B5:V20]) Is Nothing Then
If Application.WorksheetFunction.Max([B29:V29]) <> 0 And Application.WorksheetFunction.Max([B30:V30]) <> [B28:V28] Then

peut-être il y a d'autres astuces des procédures à modifer pour que cela fonctionne,

[newsinfos]

Bonjour à tous du forum,

le code suivant résoud le problème d'afficher les dates dans ligne 29,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(OU(D28>$A$29;E28>$A$29);OU(D28>D30;E28>E30) );F2;"")