Macro sélection de ligne + ligne précédente

**mosquito09-77** · 27/12/2013, 10h22

Bonjour à tous,
Je suis manager d'équipe et tous les mois je dois faire des tri sur tableaux excel afin de ne sélectionner que certaines données. J'ai 22 listings par mois à traiter... Action super répétitive et rébarbative. Je suis certain qu'il y a moyen d'automatiser la procédure via une macro mais j'ai essayé des dizaines de fois et passer des heures à chercher... sans résulat.
C'est la raison pour laquelle je me tourne vers vous... experts

Je travaille donc sur des fichiers qui reprenne en gros des dates, des heures, des intervalles de temps et des adresses. J'ai besoin d'une macro qui
1. m'affiche par jour la première adresse en me mettant en vert l'heure si celle-ci est inférieure à 0:08:08, en orange si elle est supérieure
2. m'affiche par jour la dernière adresse en me mettant en vert l'heure si celle-ci est supérieure à 0:15:52, en orange si elle est inférieure
3. les laps de temps supérieurs à 0:45:00 (lignes en jaune) et la ligne les précédents de manière à pourvoir juger des temps de déplacement entre les adresses...
Les lignes non utilisées doivent être masquées et non supprimées car j'ai parfois besoin de les consulter...
Je fais fais cela manuellement tous les mois sur 22 fichiers depuis des années et si qq pouvais m'automatiser cela, je serais plus que ravi!
PS: je vous joins le fichier brut et le fichier mis en forme manuellement pour exemple...
D'avance, merci.
Mosquito09-77

**Daniel.C** · 27/12/2013, 10h43

Bonjour,

Afin de ne pas partir de rien, peux-tu poster la macro que tu as écrite ?

**mosquito09-77** · 27/12/2013, 11h03

Bonjour,
Ben justement, je n'ai pas de macro... Je fais tout manuellement en filtrant...

**Daniel.C** · 27/12/2013, 11h18

Parce que, apparemment, ta feuille résultat ne correspond pas à ce que tu demandes, ou j'ai mal compris. Par exemple, pourquoi les cellules A6 ou A9 sont elles jaunes alors qu'il n'y a pas de temps à l'intérieur ?

**mosquito09-77** · 27/12/2013, 11h34

Je les ai supprimé pour plus de clarté car ne m'intéresse que ceux de plus de 45'...
Le temps en F7 par ex. correspond au déplacement entre E7 et E6... En F10, la différence entre E10 et E9...etc...
Merci

**mosquito09-77** · 27/12/2013, 11h54

La ligne 6 et 9 doivent cependant rester visibles car j'ai besoin de l'adresse en H6 et H9 pour déterminer si le tps de plus de 45' correspond au déplacement entre ces 2 adresses...

**Daniel.C** · 27/12/2013, 16h17

Teste cette macro :

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
Sub Traitement()
    Dim C As Range, Plage As Range
    For Each C In Range([E2], Cells(Rows.Count, 1).End(xlUp).Offset(, 4))
        Var = C.Address
        If C.Offset(, -1) <> C.Offset(-1, -1) Then
            If C < #8:08:00 AM# Then
                C.Interior.ColorIndex = 43
            Else
                C.Interior.ColorIndex = 44
            End If
        ElseIf C.Offset(, -1) <> C.Offset(1, -1) Then
            If C < #12:15:52 AM# Then
                C.Interior.ColorIndex = 43
            Else
                C.Interior.ColorIndex = 44
            End If
        End If
        'If C.Row = 4 Then Stop
        If C.Offset(, 1) > #12:45:00 AM# Then
            C.Offset(-1).Resize(2).EntireRow.Interior.ColorIndex = 36
        End If
        If C.Interior.ColorIndex = xlNone Then C.EntireRow.Hidden = True
    Next C
End Sub

**mosquito09-77** · 30/12/2013, 09h52

Bonjour Daniel...
Merci bcp d'avoir planché sur mon cas... et désolé de ne répondre qu'aujourd'hui... Le we a été très chargé.
J'ai essayé la macro que vous m'avez envoyé mais le seul effet qu'elle a est de colorer toutes les cellules en jaune...
Mais peut-être est-ce moi qui ne m'y prend pas bien! Je ne suis pas du tout un expert en VBA.
J'ai juste inséré un module un collé le code dans la fenêtre...
Pouvez-vous me dire ce qui ne va pas?!?

**Daniel.C** · 30/12/2013, 10h56

Regarde le classeur contenant la macro après exécution de celle-ci.

**mosquito09-77** · 30/12/2013, 12h02

REBonjour Daniel,
Un tout grand merci encore pour ce travail... Déjà exceptionnel!
J'ai enfin réussi à faire fonctionner la macro... Toutefois, 2 trucs ne fonctionnent pas chez moi et ils ont une importance capitale...
Quand j'exécute la macro sur un de mes fichiers... Tout se fait correctement, sauf
1. le traitement sur les lignes précédents les LAPS > 00:45:00.
Ex. J'ai obtenu...
lg 701 > 09/12/2013* 8:00:00 Auf Dem Kamp 9500 Ambleve*
lg 708 > 09/12/2013* 11:51:00 1:09:00 Herresbach 9500 Meyrode*
lg 711 > 09/12/2013* 13:31:00 0:58:00 Zur Domane 9500 Butgenbach*
lg 720 > 09/12/2013* 15:59:00 0:10:00 Sourbrodter Str 9500 Butg.

Il m'affiche bien les laps > 00:45:00 mais pas les lignes précédentes. Dans l'exemple, il me manque les lignes 707 et 710 en jaune...
2. Le deuxième problème est qu'il m'affiche toutes les heures de fin de journée en orange. J'aurais souhaité orange si avant 15:52 et vert si après 15:52.
Merci d'avance,
Mosquito09-77

**mosquito09-77** · 30/12/2013, 12h35

Re bonjour Daniel,
Je suis parvenu à corriger le second problème (heure de fin). J'ai juste corrigé l'heure en VBA...
Par contre le problème des lignes précédent les LAPS > 0:45:00 ?!?
Merci encore pour votre aide.

**Daniel.C** · 30/12/2013, 12h37

J'ai rectifié les couleurs, pour les fins de journée.

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 Traitement()
    Dim C As Range, Plage As Range
    Application.ScreenUpdating = False
    For Each C In Range([E2], Cells(Rows.Count, 1).End(xlUp).Offset(, 4))
        Var = C.Address
        If C.Offset(, -1) <> C.Offset(-1, -1) Then
            If C < #8:08:00 AM# Then
                C.Interior.ColorIndex = 43
            Else
                C.Interior.ColorIndex = 44
            End If
        ElseIf C.Offset(, -1) <> C.Offset(1, -1) Then
            If C < #12:15:52 AM# Then
                C.Interior.ColorIndex = 44
            Else
                C.Interior.ColorIndex = 43
            End If
        End If
        'If C.Row = 4 Then Stop
        If C.Offset(, 1) > #12:45:00 AM# Then
            C.Offset(-1).Resize(2).EntireRow.Interior.ColorIndex = 36
        End If
        If C.Interior.ColorIndex = xlNone Then C.EntireRow.Hidden = True
    Next C
    Application.ScreenUpdating = True
End Sub

1. le traitement sur les lignes précédents les LAPS > 00:45:00.
Ex. J'ai obtenu...
lg 701 > 09/12/2013* 8:00:00 Auf Dem Kamp 9500 Ambleve*
lg 708 > 09/12/2013* 11:51:00 1:09:00 Herresbach 9500 Meyrode*
lg 711 > 09/12/2013* 13:31:00 0:58:00 Zur Domane 9500 Butgenbach*
lg 720 > 09/12/2013* 15:59:00 0:10:00 Sourbrodter Str 9500 Butg.

Ca ne correspond pas à ton fichier de test ? Donne un exemple que je puisse tester.

**mosquito09-77** · 30/12/2013, 12h40

Encore moi...
J'ai compris je pense...
Il me met bien la ligne précédente en jaune OK mais il la "masque" avec les autres!!!
Pouvez-vous modifier le code avec ces données svp??
D'avance un tout grand merci.

**Daniel.C** · 30/12/2013, 12h47

J'ai compris je pense...

Tu as de la chance, pas moi. Donne-moi un exemple, s'il te plait.

**mosquito09-77** · 30/12/2013, 13h00

Voici le fichier après avoir fait tourné la macro...
Il masque les lignes jaunes précédent les LAPS > 00:45:00 (mais pas à tous les coups)... Ici, ex. la 1056 a fonctionné?!?

**Daniel.C** · 30/12/2013, 14h15

Corrigé :

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 Traitement()
    Dim C As Range, Plage As Range
    Application.ScreenUpdating = False
    For Each C In Range([E2], Cells(Rows.Count, 1).End(xlUp).Offset(, 4))
        Var = C.Address
        If C.Offset(, -1) <> C.Offset(-1, -1) Then
            If C < #8:08:00 AM# Then
                C.Interior.ColorIndex = 43
            Else
                C.Interior.ColorIndex = 44
            End If
        ElseIf C.Offset(, -1) <> C.Offset(1, -1) Then
            If C < #12:15:52 AM# Then
                C.Interior.ColorIndex = 44
            Else
                C.Interior.ColorIndex = 43
            End If
        End If
        'If C.Row = 410 Then Stop
        If C.Offset(, 1) > #12:45:00 AM# Then
            C.Offset(-1).Resize(2).EntireRow.Interior.ColorIndex = 36
            C.Offset(-1).EntireRow.Hidden = False
        End If
        If C.Interior.ColorIndex = xlNone Then C.EntireRow.Hidden = True
    Next C
    Application.ScreenUpdating = True
End Sub

**mosquito09-77** · 30/12/2013, 14h29

Ca marche!!!
Super... Merci!
Vous êtes génial!
MERCI, MERCI, MERCI mille fois!

Macro sélection de ligne + ligne précédente

Excel

Discussions similaires

Partager

Partager