Discussion :

[typhoon751]

Bonjour à tous,

Voilà, j'ai une colonne avec des durées de connexions.
Je voudrais une macro qui parcours ma colonne et qui m'extrait les durées > 1h dans une colonne et les durées < 1h dans une autre.
J'ai beau cherché mais je n'ai rien trouvé, si quelqu'un pouvait m'aider svp.

Merci

[JPierreM]

Bonsoir,

en supposant que les durée sont dans une plage nommée "duree", que les heures sont exprimées en minutes

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub sc()
Dim cellule As Range
    For Each cellule In [duree]
        If cellule > 60 Then
            cellule.Offset(0, 1) = cellule
        Else
            cellule.Offset(0, 2) = cellule
        End If
    Next cellule
End Sub

JP

[typhoon751]

Bonjour JP et merci pour ta réponse,

Je te joins mon classeur pour t'expliquer mon problème.
Je dois pour toutes les feuilles, excepté la feuil1, extraire le résultat des "durée de logon" (colonne F), si durée de logon > 1 heure les mettre dans la colonne N et si durée de logon < 1 heure les mettre dans la colonne M.
Sachant que le format de la date est [h]:mm:ss

Merci de ton aide,
cdt

[PPz78]

Bonsoir,

C'est gentil de nous demander de l'aide, mais dans l'exemple envoyé en PJ il n'y a aucun temps supérieur à 1 heure.

J'attends un nouveau fichier.

PJ merci de supprimer tous les noms.

PPz

[Godzestla]

Bonsoir,

C'est gentil de nous demander de l'aide, mais dans l'exemple envoyé en PJ il n'y a aucun temps supérieur à 1 heure.
PPz

Si si PPz58, il y en a , mais pas dans la première feuille.

[typhoon751]

Oui, il y a bien des durées supérieur à 1h, je n'ai pas fais attention si dans la 1ere feuille, il y en avait ou pas

[JPierreM]

Bonjour,

Il y a déjà des valeurs dans la colonne M, je remplis donc les colonnes N et P

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
27
Sub sc()
Dim derLigne As Long
Dim duree As Range
Dim cellule As Range
Dim i
 
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Feuil1" Then i = i + 1
 
    With Worksheets(i)
        derLigne = .Cells(Rows.Count, "D").End(xlUp).Row
        Set duree = Range(.Cells(derLigne, 6), .Cells(4, 6))
    End With
 
    For Each cellule In duree
        If cellule > 4.16666666666667E-02 Then
            cellule.Offset(0, 8).NumberFormat = "h:mm:ss;@"
            cellule.Offset(0, 8) = cellule
        Else
            cellule.Offset(0, 9).NumberFormat = "h:mm:ss;@"
            cellule.Offset(0, 9) = cellule
 
        End If
    Next cellule
Set duree = Nothing
Next i
End Sub

[typhoon751]

Merci JPierre,

c'est exactement ce que je voulais!!
Je passe le post en résolu