trier, rechercher, filter, doublons, temps... je suis perdu

  • Initiateur de la discussion Initiateur de la discussion ldc76
  • Date de début Date de début

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 !

L

ldc76

Guest
Bonjour à tous,
Je vous expose ma problématique.
J'ai exporté un journal de bord à la minute, j'ai besoin de rechercher les lignes des changements d'état, et j'aimerai configurer ma feuille ou mon classeur pour avoir directement le temps pendant lequelle le changement d'état à été actif.
exemple.
10:12 0
10:13 0
10:14 1
10:15 1
10:16 1
10:17 0
10:18 0
10:19 1
10:20 0

J'aimerai voir juste
10:12 0
10:14 1 pendant 3mn
10:17 0
10:19 1 pendant 1mn
10:20 0

j'ai une vidéo de mon probléme pour ceux qui le désirent.

Merci à tous
 

Pièces jointes

Re : trier, rechercher, filter, doublons, temps... je suis perdu

Bonjour ,

un petit essai


Code:
Sub Déchiffre()
Dim LigneFin As Long
Dim LigneCible As Long
Dim Tourne As Long
Dim Début As String, Fin As String, Durée As String

LigneFin = Range("B" & Rows.Count).End(xlUp).Row
For Tourne = 3 To LigneFin
 LigneCible = Range("D" & Rows.Count).End(xlUp).Row + 1
 If Range("B" & Tourne) = "1" And Début = "" Then
   Range("D" & LigneCible) = Range("A" & Tourne - 1)
   Range("E" & LigneCible) = 0
   Début = Range("A" & Tourne)
   Fin = ""
 End If
 If Range("B" & Tourne) = "0" Or Range("B" & Tourne) = "" Then Fin = Range("A" & Tourne)
 If Début <> "" And Fin <> "" Then
   Durée = DateDiff("n", Début, Fin)
   Range("E" & LigneCible - 1) = Durée
   Début = ""
   Fin = ""
 End If
Next Tourne
End Sub
 

Pièces jointes

- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
1 K
M
Réponses
20
Affichages
3 K
massol
M
Réponses
0
Affichages
2 K
Réponses
19
Affichages
4 K
G
T
Réponses
22
Affichages
6 K
Thibault LB
T
W
Réponses
3
Affichages
13 K
W
C
  • Question Question
2
Réponses
24
Affichages
3 K
charlottedumortier
C
T
Réponses
12
Affichages
1 K
jehafa
J
T
Réponses
21
Affichages
6 K
F
M
Réponses
4
Affichages
2 K
M
M
Réponses
3
Affichages
4 K
_matt_44
M
D
Réponses
15
Affichages
2 K
G
Retour