problème sur des heures

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

goldfinger13

XLDnaute Occasionnel
bonsoir à toutes et à tous,
je rencontre une difficulté en travaillant sur des heures et très franchement je ne suis pas du tout sur de la formule ce qui est sûr c'est qu'elle buggue et je ne m'en sors pas
en fait j'ai 4 conditions
le résultat étant attendu en cellule Q2

si la valeur de la cellule J2 est = 0 sanction "pas flashé"
si valeur J2 est supérieur ou égal à N2 et inférieur ou égal à P2 sanction "RAS"
si J2 est inférieur à N2 sanction "trop tôt"
si J2 est supérieur à P2 sanction "trop tard"

j'ai bien traduit cela par une "simple formule" qui fonctionne:

Code: 
=SI(J2=0;"PAS FLASHE";SI(ET(HEURE(J2)*60+MINUTE(J2)>=HEURE(N2)*60+MINUTE(N2);HEURE(J2)*60+MINUTE(J2)<=HEURE(P2)*60+MINUTE(P2));"RAS";SI(HEURE(J2)*60+MINUTE(J2)<HEURE(N2)*60+MINUTE(N2);"TROP TOT";SI(HEURE(J2)*60+MINUTE(J2)>HEURE(P2)*60+MINUTE(P2);"TROP TARD"))))

Mais compte tenu que j'ai plus de 10000 lignes a traiter et très régulièrement je souhaitais automatiser la tache en VBA

l'enregistreur de macro ne veut pas m'aider il refuse carrément d'enregistrer la chose
j'ai tenté de traduire de cette manière mais ;(

Code: 
Sub sanction_bis()

Dim derLig As Long
derLig = [A65000].End(xlUp).Row
With Range("Q2:Q" & derLig)
    .FormulaR1C1 = _
        "=IF(RC[-5]=0,""Pas flashé"",IF(AND(HOUR(RC[-5])*60+MINUTE(RC[-5])>=(HOUR(RC[-3])*60+MINUTE(RC[-3]),(HOUR(RC[-5])*60+MINUTE(RC[-5])<=(HOUR(RC[-1])*60+MINUTE(RC[-1],""RAS"",(HOUR(RC[-7])*60+MINUTE(RC[-7])<(HOUR(RC[-7])*60+MINUTE(RC[-7]),""TROP TOT"",SI(HOUR(RC[-7])*60+MINUTE(RC[-7])>(HOUR(RC[-1])*60+MINUTE(RC[-1],""TROP TARD"")))"
End With
End Sub

si vous pouviez m'aider j'en serais ravi
 
Trier par date Trier par votes
Re : problème sur des heures

Bonsoir

Essaye :
Code: 
Sub sanction_bis()

Dim derLig As Long
derLig = [A65000].End(xlUp).Row
    With Range("Q2")
    .FormulaR1C1 = _
        "=IF(RC[-5]=0,""Pas flashé"",IF(AND(HOUR(RC[-5])*60+MINUTE(RC[-5])>=(HOUR(RC[-3])*60+MINUTE(RC[-3]),(HOUR(RC[-5])*60+MINUTE(RC[-5])<=(HOUR(RC[-1])*60+MINUTE(RC[-1],""RAS"",(HOUR(RC[-7])*60+MINUTE(RC[-7])<(HOUR(RC[-7])*60+MINUTE(RC[-7]),""TROP TOT"",SI(HOUR(RC[-7])*60+MINUTE(RC[-7])>(HOUR(RC[-1])*60+MINUTE(RC[-1],""TROP TARD"")))"
     .AutoFill Destination:=Range("Q2:Q" & derLig), Type:=xlFillDefault
End With
End Sub
Cordialement
Chris
 
Vote positif 0 Vote négatif
Re : problème sur des heures

Bonsoir à tous,
Pourquoi pas un bon petit Select Case
VB: 
Sub sanction_bis()
	Dim derLig As Long
	derLig = [A65000].End(xlUp).Row
	For i = 2 to derlig
		Select Case Range("J" & i)
			Case Is = 0
				Range("Q" & i) = "pas flashé"
			Case Is > 0 And Is < Range("N" & i)
				Range("Q" & i) = "trop tôt"
			Case Is  >= Range("N" & i) And Is <= Range("P" & i)
				Range("Q" & i) = "RAS"
			Case Is > Range("P" & i)
				Range("Q" & i) = "trop tard"
		End Select
	Next i
End Sub
Non testé, je n'ai pas Excel sous la main.
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : problème sur des heures

Hippolite à dit:
Bonsoir à tous,
Pourquoi pas un bon petit Select Case
VB: 
Sub sanction_bis()
	Dim derLig As Long
	derLig = [A65000].End(xlUp).Row
	For i = 2 to derlig
    Select Case Range("J" & i)
        Case Is = 0
			Range("Q" & i) = "pas flashé"
        Case Is > 0 And Is < Range("N" & i)
            Range("Q" & i) = "trop tôt"
        Case Is  >= Range("N" & i) And Is <= Range("P" & i)
            Range("Q" & i) = "RAS"
		Case Is > Range("P" & i)
			Range("Q" & i) = "trop tard"
    End Select
End Sub
Non testé, je n'ai pas Excel sous la main.
A+
Cliquez pour agrandir...

bonsoir Hippolite
erreur de syntaxe sur les lignes avec AND elles sont en rouge
merci pour ton aide
 
Vote positif 0 Vote négatif
Re : problème sur des heures

Bonsoir Hippolite
Bonsoir à tous,

Sans vouloir m'immiscer, peut-être comme ceci :

VB: 
Sub sanction_bis()
    Dim derLig As Long
    derLig = [A65000].End(xlUp).Row
    For i = 2 To derLig
        Select Case Range("J" & i)
            Case Is = 0
                Range("Q" & i) = "pas flashé"
            Case Is > 0, Is < Range("N" & i)
                Range("Q" & i) = "trop tôt"
            Case Is >= Range("N" & i), Is <= Range("P" & i)
                Range("Q" & i) = "RAS"
            Case Is > Range("P" & i)
                Range("Q" & i) = "trop tard"
        End Select
    Next i
End Sub

Klin89
 
Vote positif 0 Vote négatif
Re : problème sur des heures

Re,
Après réflexion :
VB: 
Sub sanction_bis()
	Dim derLig As Long
	derLig = [A65000].End(xlUp).Row
	For i = 2 to derlig
		Select Case Range("J" & i)
			Case Is = 0
				Range("Q" & i) = "pas flashé"
			Case  Is < Range("N" & i)
				Range("Q" & i) = "trop tôt"
			Case Is <= Range("P" & i)
				Range("Q" & i) = "RAS"
			Case Is > Range("P" & i)
				Range("Q" & i) = "trop tard"
		End Select
	Next i
End Sub
A+

Edit : En effet, si les conditions sont réalisées dans plusieurs Case, seules les instructions qui suivent la première correspondance s'exécutent. Il suffit donc de les laisser dans l'ordre croissant et de tester chaque seuil l'un après l'autre.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : problème sur des heures

Re,
La touche finale :
comme tu as beaucoup de lignes à traiter, j'ai ajouté le gel de l'affichage et des recalculs afin de réduire le temps d'exécution de la macro.
VB: 
Sub sanction_bis()
	Dim derLig As Long
	'Désactive la mise à jour de l'affichage
	Application.ScreenUpdating = False
	'Désactive la mise à jour des recalculs
	Application.Calculation = xlCalculationManual
	derLig = [A65000].End(xlUp).Row
	For i = 2 to derlig
		Select Case Range("J" & i)
			Case Is = 0
				Range("Q" & i) = "pas flashé"
			Case  Is < Range("N" & i)
				Range("Q" & i) = "trop tôt"
			Case Is <= Range("P" & i)
				Range("Q" & i) = "RAS"
			Case Is > Range("P" & i)
				Range("Q" & i) = "trop tard"
		End Select
	Next i
	'Ré-activations
	Application.Calculation = xlCalculationAutomatic
	Application.ScreenUpdating = True
End Sub
A+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
H
  • Résolu(e)
XL 2016 Formule pour calculer le nombre de fois 7 heures dans un nombre d'heures
Réponses
6
Affichages
1 K
HaggarduNord
H
GADENSEB
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
GADENSEB
C
  • Résolu(e)
Microsoft 365 Formule qui ralenti ma macro
2
Réponses
15
Affichages
3 K
mapomme
mapomme
J
  • Question Question
Autres Durée calendaire
2
Réponses
18
Affichages
4 K
jmfmarques
J
S
  • Résolu(e)
Microsoft 365 Problème de transfert de données
Réponses
1
Affichages
1 K
SCorbeil
S
M
  • Question Question
comment adapter une macro aux données qui changent
Réponses
4
Affichages
1 K
michel90
M
T
  • Question Question
XL 2016 calcul heures de nuit et de dimanche sur plus d'une journée
Réponses
3
Affichages
2 K
CISCO
CISCO
MERLIN
  • Question Question
Problème d'utilisation d'une fonction
2
Réponses
15
Affichages
2 K
ROGER2327
ROGER2327
G
  • Question Question
Consolider fichiers excel
Réponses
13
Affichages
2 K
gillesbe
G
M
  • Question Question
RESOLU formule palier sur des résultats de calcul en heures ou minutes
Réponses
8
Affichages
2 K
Modeste geedee
Modeste geedee
M
  • Question Question
Macro trop longue
Réponses
6
Affichages
2 K
Tirou
T
F
  • Question Question
problème conversion en décimale.
Réponses
2
Affichages
20 K
famassilia
F
N
  • Question Question
Booster une macro
Réponses
5
Affichages
3 K
Staple1600
Staple1600
D
  • Question Question
Fonction SI et autre problème
Réponses
4
Affichages
943
Damien666
D
L
  • Question Question
Macro fonctionne pas sous Office 2007
Réponses
4
Affichages
1 K
Lorenzogazier
L
F
  • Question Question
insertion dans LISTBOX des valeurs sur plusieurs lignes d'une autre LISTBOX
Réponses
0
Affichages
2 K
fid
F
M
  • Question Question
Problème sur des cellules vides et compression de lignes pleines == URGENT ==
Réponses
10
Affichages
2 K
mamarus
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
51 K
MichelXld
M
Retour