afficher dates dans textbox d'un Userform

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

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

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:

---

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:

---

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

Bonjour,

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

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:

---

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,

Bonjour à tous du forum,

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

Code:

---

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

---