Macro condition mais avec des heures

K

kjin

XLDnaute Barbatruc

• 29 Janvier 2013

• #2

Re : Macro condition mais avec des heures

Bonsoir,

Code:

If [B7] >= 8 / 24 And [B8] <= 12 / 24 Then [B3] = "MATIN"

A+
kjin

 

Vote positif 0 Vote négatif

M

Meloman

XLDnaute Occasionnel

• 29 Janvier 2013

• #3

Re : Macro condition mais avec des heures

Bonjour kjin
merci pour ton aide
j'ai tester ta solution malheureusement rien ne se passe j'en es fais un fichier joint pourais tu me dire ou je me suis tromper merci d'avance

 

Vote positif 0 Vote négatif

M

Meloman

XLDnaute Occasionnel

• 29 Janvier 2013

• #4

Re : Macro condition mais avec des heures

le fichier joint

 

Pièces jointes

• p1d7(1).xls

  33.5 KB · Affichages: 43

Vote positif 0 Vote négatif

M

Meloman

XLDnaute Occasionnel

• 30 Janvier 2013

• #5

Re : Macro condition mais avec des heures

Bonjour je relance ma question car la solution proposer aimablement semble ne pas fonctionner ou c'est moi qui le sais pas pouvez vous m'aider SVP merci

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 30 Janvier 2013

• #6

Re : Macro condition mais avec des heures

Bonjour,
Je ne pouvais pas deviner qu'il s'agissait de contrôles d'un usf !
Note qu'il faut multiplier par 24 plutôt que diviser, c'est mieux !

Code:

Private Sub B7_Change()
alim_B3
End Sub

Private Sub B8_Change()
alim_B3
End Sub

Sub alim_B3()
If B7 = "" Or B8 = "" Then Exit Sub
B3 = ""
deb = CDate(B7) * 24
fin = CDate(B8) * 24
If deb >= 8 And deb < 12 And fin <= 12 And fin > deb Then B3 = "MATIN"
If deb >= 13 And deb < 19 And fin <= 19 And fin > deb Then B3 = "APRES-MIDI"
If deb >= 19 And deb <= 23 Then
    If fin >= 0 And fin <= 8 Then B3 = "SOIR"
    If fin > 19 And fin <= 23 And fin > deb Then B3 = "SOIR"
End If
If deb >= 0 And deb <= 8 Then
    If fin > 0 And fin <= 8 And fin > deb Then B3 = "SOIR"
End If
End Sub

Si tu nous expliquais le but de la manoeuvre on pourrait sans doute simplifier
A+
kjin

 

Vote positif 0 Vote négatif

M

Meloman

XLDnaute Occasionnel

• 30 Janvier 2013

• #7

Re : Macro condition mais avec des heures

Bonjour kjin j'aurais dût mieux m'expliquer donc tous fonctionne parfaitement bon but finale seras incrementation dans un groupe de collone Matin Apres-midi et soir en tous cas tous fonctionne parfaitement encore un grand merci

 

Vote positif 0 Vote négatif