Discussion :

[Guizmonster]

Bonjour,

J'ai un automate qui me renvoie un 0 quand il est à l'arrêt et un 1 quand il fonctionne.
Je n'arrive pas à faire en macro qui me permettrait de récupérer pour chaque série de 1, l'heure de début et l'heure de fin et l'afficher dans la colonne C ou D.
Si vous avez un début de piste, merci d'avance.

Cdlt

[pijaku]

Bonjour,

Une piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Test()
Dim tb, DL As Long, i As Long
With Sheets("Feuil1")
    DL = derlig_reelle(.Columns(1))
    tb = .Range("A2:D" & DL).Value
    '1ère valeur enregistrée comme début
    tb(1, 3) = tb(1, 1)
    For i = LBound(tb, 1) To UBound(tb, 1) - 1
        If tb(i, 2) <> tb(i + 1, 2) Then
            tb(i, 4) = tb(i, 1)
            tb(i + 1, 3) = tb(i + 1, 1)
        End If
    Next
    'dernière valeur
    If tb(i, 2) = tb(i - 1, 2) Then
        tb(i, 3) = ""
        tb(i, 4) = tb(i - 1, 4)
        tb(i - 1, 4) = ""
    End If
    .Range("A2").Resize(UBound(tb, 1), 4) = tb
End With
End Sub
Private Function derlig_reelle(plage As Range) As Long
   If WorksheetFunction.CountA(plage) = 0 Then derlig_reelle = plage.Cells(1, 1).Row: Exit Function
   derlig_reelle = plage.Find("*", , , , , xlPrevious).Row
End Function

[ARTURO83]

Bonjour,

Autre piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Recup()
    Dim DerLig As Long, i As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Cells(2, "C") = Cells(2, "A")
    For i = 2 To DerLig
        If Cells(i, "B") <> Cells(i - 1, "B") Then
            Cells(i - 1, "D") = Cells(i - 1, "A")
            Cells(i, "C") = Cells(i, "A")
        End If
    Next i
End Sub

Cdlt

[Menhir]

Solution sans VBA.

Si tu as Excel 2019 ou 365 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
=MIN.SI.ENS(A2:A29;B2:B29;1)
=MAX.SI.ENS(A2:A29;B2:B29;1)

Pour les versions précédentes, deux formules matricielles (à valider avec Ctrl+Shift+Entrée) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
=MIN(SI(B2:B29=1;A2:A29;""))
=MAX(SI(B2:B29=1;A2:A29;""))

Ca peut aussi se faire avec une SOMMEPROD().

[Guizmonster]

Bonjour,

Merci pour les réponses rapides. Avec les 2 premiers codes, je vais pouvoir bricoler quelque chose je pense.
Par contre je dois être nul mais impossible de faire fonctionner les formules de menhir.

Cdlt

[Menhir]

J'ai pourtant vérifié qu'elles fonctionnent.

Quel est le symptôme du problème ?
Quelle est ta version d'Excel ?
Est-ce que tu as valider des deux dernières formules en tant que formules matricielles comme il est précisé ?