Validation suivant conditions

Z

Zon

Guest

• 11 Mai 2004

• #2

Salut,

Où est le fichier ?

A+++

 

Vote positif 0 Vote négatif

G

GClaire

Guest

• 11 Mai 2004

• #3

Zon , le forum

Oups, le voici.

Merci, G'Claire

 

Pièces jointes

• PayesNourrisse_XLD.zip

  28.3 KB · Affichages: 19

Vote positif 0 Vote négatif

Z

Zon

Guest

• 12 Mai 2004

• #4

Salut,

Regardes un 1 er jet de ce que tu veux à partir de tes 2 listbox. Mais ta nourrice fait elle le même nombre d'heures tous les jours, parti comme cela on dirait ?

Quand tu utilises with sheets("Lenomdelafeuille") n'oublies pas le point devant cells ou range pour faire référence à la bonne feuille. Cela ne fonctionnait pas car tu utilises un format conditionnel, donc .interior.colorindex n'a aucune utilité. Il faut passer par la propriété Text de la colonne A.


Beaucoup de choses à faire encore mais comme tu n'es pas trés explicte dans ce que tu veux faire, j'attends de voir ce que tu me diras.

A+++

 

Pièces jointes

• PayesNourrisse_XLDZOn.zip

  25.5 KB · Affichages: 22

Vote positif 0 Vote négatif

G

GClaire

Guest

• 12 Mai 2004

• #5

Zon, le forum

Merci, de ton aide

ton principe est trés bien, je n'y avais pas pensé de reprendre le choix de départ a partire de la saisie de l'arrivée, car j'allais procéder par

cbxHeuresArrivee.AddItem "7:00"
cbxHeuresArrivee.AddItem "7:30"

cbxHeuresDépart.AddItem "12:30"
cbxHeuresDépart.AddItem "12:30"

etc....

Es-ce que je peu le faire par demie heures?

Pour la MFC :
Dan m'en avait parlé sur le chat, mais je pensais que l'on pouvait contourner le problème, mais tu as trouvé une trés bonne solution avec les jours.

Ensuite non la nourisse peu avoir des jours avec d'autres heures, mais le minimum est de 5,50 heures.

Par contre si pour des jours ou je ne le fait pas garder (Alors que cela été prévue) je dois lui payer un minimum de 2,75 heures, donc je vais prévoir une case a cocher, pour sélectionner un jours sans garde, pour envoyer dans le textbox ces 2,75 heures.

A priori vue le résultat je pense que mon code éte simple par rapports a ce que j'avais besoin, la saisie des heures est faite par jours ou je peux faire plusieurs saisie dans une journée si j'ai oublier de faire celles de la veille. Et moi j'ai fait des tire groupés jusqu'aux conditions, il me manque encore beaucoup de pratique.



Je te remerci, G'Claire

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 14 Mai 2004

• #6

Salut,

J'ai rajouté un controle Calendar dans lequel on sélectionne une date, pour la démo on met en janvier car tu n'as qu'une feuille, les dates se rajoutent dans une listbox, un double click sur celle ci supprime l'élément=> RempF est modifiée aussi ainsi que DiffH c'est une vrai différence d'heures (sans tenir compte de jour à cheval) au lieu de mon bidouillage. Voilà à toi de continuer...

A+++

 

Pièces jointes

• PayesNourrisse_XLDZOnV1.zip

  30.7 KB · Affichages: 19

Vote positif 0 Vote négatif

G

GClaire

Guest

• 15 Mai 2004

• #7

Zon, le forum

Merci, pour le temps que tu passe pour m'aider.

J'ai essayer ton fichier.

Voici se qui se passe, car j'ai une erreur (Projet ou bibliothèque introuvable)dans ce code :

Private Function DiffH(H1, H2) As Date
Dim NbHeures&, NbMinutes&
On Error Resume Next
NbHeures = DateDiff("h", H1, H2)
NbMinutes = DateDiff("n", H1, H2) Mod 60
DiffH = Format(NbHeures, "00") & ":" & Format(NbMinutes, "00")
End Function

A ce niveau :

DiffH = Format(NbHeures, "00") & ":" & Format(NbMinutes, "00")

Cela arrive quand :

Je clique sur la calendrier et que je vais dans la ListBox
Je rentre aprés l'heure d'arrivée l'heure de départ.

J'ai regardé l'aide et a priori il me manquerai un objet

Microsoft Windows Common Controls-2 6.0 (SP4)

Ou puis-je rétrouver cette Bibliothèque?

Merci, G'Claire

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 18 Mai 2004

• #8

Salut,

excuses moi Gclaire, c'est une controle que j'ai avec VB et qui n'a rien à faire dans le fichier, décoches la référence manquante, fermes le fichier en l'enregistrant, cela devrait rentrer dans l'ordre.

A+++

 

Vote positif 0 Vote négatif

G

GClaire

Guest

• 18 Mai 2004

• #9

Zon, le forum

Merci, je vais essayer de comprendre tout cela

Salut, G'Claire

 

Vote positif 0 Vote négatif

G

GClaire

Guest

• 21 Mai 2004

• #10

Zon, le forum

Dans la gestion d'erreur :

ErrR:
If Err <> 0 Then RempF = "Erreur à la mise en place"

Je voulais mettre comme dans les MsgBox

,VbInformation, "INFORMATION"

Ce qui aurais donné :

ErrR:
If Err <> 0 Then RempF = "Erreur à la mise en place", VbInformation, "INFORMATION"


Idem pour

Msg = IIf(Len(Msg) > 0, Msg, "données ajoutées")

Donc :

Msg = IIf(Len(Msg) > 0, Msg, "données ajoutées")", VbInformation, "INFORMATION"


Mais cela ne fonctionne pas.

Es-ce possible ou non ?

Merci, G'Claire

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 21 Mai 2004

• #11

Salut,

C'est dans l'évènement Click du bouton Valider que tu peux mettre en forme la msgbox:

Msg = RempF(ListeDate.List, Month(Calendar1))
Msg = IIf(Len(Msg) > 0, Msg, "données ajoutées")
MsgBox Msg, VbInformation, "INFORMATION"
ListeDate.Clear


A+++

 

Vote positif 0 Vote négatif

G

GClaire

Guest

• 21 Mai 2004

• #12

Zon, le forum

Merci de ta réponse.

Pour le cas du Mardi, si je fais Oui cela me met, "Erreur à la mise en place"

Et si je met Non, cela me dit "Données ajoutées", mais cela ecrit 0,00 dans la celulle.

J'ai tenté de voir d'ou cela pouvait provenir, mais ton code m'est bien complique, je ne saisie pas grand chose.

Peux tu m'éclairer s'il te plait, Merci,G'Claire

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 21 Mai 2004

• #13

Salut,

Une inversion dans le passage des paramètres pour le mardi:

.Cells(L, 3) = CDec(DiffH(Tablo(I, 2), Tablo(I, 1))) * 24

à remplacer par .Cells(L, 3) = CDec(DiffH(Tablo(I, 1), Tablo(I, 2))) * 24

A+++

 

Vote positif 0 Vote négatif

G

GClaire

Guest

• 22 Mai 2004

• #14

Zon, le forum

Merci pour cette modification, mais il est vrai que je ne comprends pas tout sur ce mode de programmation.

J'ai remarqué que si je double click sur la ListBox sans avoir entrée d'heure cela me donne une erreur "Dépassement de capacité".

J'ai voulu la contournée en mettant ce code, et comme de bien entendu cela ne fonctionne pas

Private Sub ListeDate_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListeDate
If .ListIndex = -1 Then Exit Sub
.RemoveItem (.ListIndex)
End With

If J = 0 Then
cbxHeureArrivee.Clear
cbxHeureArrivee.Enabled = False
cbxHeureDepart.Clear
cbxHeureDepart.Enabled = False
txtHeuresEffectuees = ""
Exit Sub
End If

J = J - 1
End Sub


Par quel moyen je pourrais éviter cette erreur ?

Merci de ton aide et de ta patience, bon Week-end? G'Claire

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 23 Mai 2004

• #15

Salut,

Effectivement j'ai oublié un test dans le double click à savoir si la colonne 2 ou 3 contient une valeur ou pas.

Private Sub ListeDate_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListeDate
If .ListIndex = -1 Then Exit Sub
If IsNull(.List(.ListIndex, 1)) Or IsNull(.List(.ListIndex, 2)) Then Exit Sub
.RemoveItem (.ListIndex)
End With
J = J - 1
LblTotal.Caption = "0" 'il manquait aussi la remise à zéro du label
End Sub


A+++

 

Vote positif 0 Vote négatif