Discussion :

[snico78]

Bonsoir tout le monde
J'aurais besoin d'un peu d'aide

J'ai besoin dans un fichier Excel

1 " colonne en B ( j'ai besoin de sélectionné toutes les dates qui ont moins de 3 jours ont enlevant les week donc là j'ai besoin de sélectionner les dates du 21 au 25 novembre)
2 " colonnes en A ( j'ai besoin en 1 de supprimer toutes les heures qui sont avant 16h sur la date sur la plus ancienne donc le 21, ensuite supprimée les lignes qui ont une heure après 16 sur la date du 25)

Merci pour votre aide je vous joins le dossier

Bonne soirée

[Nako_lito]

Avec ou sans macro excel ?

[snico78]

Avec macro excel si possible

Merci pour votre aide

[Nako_lito]

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
Option Explicit
Public Sub main()
    Dim range_ As Range
    Dim i, x As Integer
 
    With ThisWorkbook.Sheets("info")
 
        x = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
        For i = 2 To x
            If Day(CDate(Format(.Range("B" & i).Value, "dd/mm/yyyy"))) < Day(Now) - 3 Then
                If Hour(CDate(Format(.Range("A" & i).Value, "hh:MM:ss"))) < Hour("16:00") Then
                    .Range("A" & i).Clear
                End If
                .Range("B" & i).Clear
            Else
                If Hour(CDate(Format(.Range("A" & i).Value, "hh:MM:ss"))) > Hour("15:00") Then
                    .Range("A" & i).Clear
                End If
            End If
        Next i
    End With
End Sub

la boucle passe sur toute les lignes.

Par ligne, test si la date < j-3.
Si elle est inférieur a j-3, test si l'heure indiqué est inférieur a 16h
Si elle est pas inférieur a j-3, test si l'heure est supérieur a 16h

si les conditions sont remplies, efface la cellule.

Par contre, dans ta demande, tu fais mention du jour le plus ancien et du jour le plus récent. Pour quelle raison ?

Du coup, il se peut qu'il y ai un ajustement à faire sur mon code.
Mais je pense que ton interrogation principale était sur "comment tester l'heure et le jour d'une cellule ?"

Dans le code :
Day, retourne le jour passé en paramètre, ici j'ai casté ta cellule au format jj/mm/aaaa, donc il retour le jj, et test si c'est > ou < a Day(j-3)
Pareil pour l'heure avec Hour, sur un format hh:mm, est ce que c'est supérieur ou pas a 16:00.

[snico78]

merci tous a l'air de fonctionné par contre

comment intégrer cette macro a la suite de celle ci pour quel s'exécute a la suite ?

Merci

Code :

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

1
2
3
4
5
6
7
    Sheets("RFID").Select
    Columns("A:L").Select
    Selection.Copy
    Windows("info.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
    application.CutCopyMode = False

[Nako_lito]

oublie tout tes .select, .activate.

Ca ne sert a rien dans le code que je t'ai fournis.

est ce que la feuille a traiter fait parti du classeur d'ou est exécuter la macro ?

[snico78]

oui la feuille fait partie de la macro

avec ton code je voudrait le mettre a la suite d'une macro que j'ai deja creez et qui l'exctute en meme temps

[Nako_lito]

tu peux faire :

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
sub nomDeTaMéthode()
 
    'copier ici les DIM de mon code
 
    'ici tu mets ton code : 
 
    '....
 
    ' jusque là
 
    'ici tu colle mon code du With ThisWorkbook.Sheets("info")
 
 
    'jusqu'au end with
 
end sub

[snico78]

j'ai un message d'erreur

variable de controle For déjà utilisée ensuite probleme avec range

Code :

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

1
2
3
4
Sub Pro()
 
   Dim range_ As Range
   Dim i, x As Integer

après mon code ensuite le tien

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
Sheets("info").Select
 Columns("A:L").Select
 Selection.Copy
 Windows("info.xlsm").Activate
 Range("A1").Select
 ActiveSheet.Paste
 application.CutCopyMode = False 
 
 
 With ThisWorkbook.Sheets("info")
 
        x = .UsedRange.SpecialCells(xlCellTypeLastCell).row
        For i = 2 To x
            If Day(CDate(Format(.Range("B" & i).Value, "dd/mm/yyyy"))) < Day(Now) - 3 Then
                If Hour(CDate(Format(.Range("A" & i).Value, "hh:MM:ss"))) < Hour("16:00") Then
                    .Range("A" & i).Clear
                End If
                .Range("B" & i).Clear
            Else
                If Hour(CDate(Format(.Range("A" & i).Value, "hh:MM:ss"))) > Hour("15:00") Then
                    .Range("A" & i).Clear
                End If
            End If
        Next i
    End With

[Nako_lito]

Tu as des balises pour le code.

Le code que tu as avancé comportait des erreurs, notament, tu ne ferme jamais ta méthode avec un end sub.

De plus, je t'avais conseillé de virer les lignes avec des .select, .activate etc qui ne servent à rien. Il faut passer par des références absolues pour faire des actions de copie, collage, appele de range etc.

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 Pro()
 
   Dim range_ As Range
   Dim i, x As Integer
 
 
    'le code que tu as mis avant le miens, je sais pas ce qu'il est censé faire donc je l'ai viré.
 
 
        x = .UsedRange.SpecialCells(xlCellTypeLastCell).row
        For i = 2 To x
            If Day(CDate(Format(.Range("B" & i).Value, "dd/mm/yyyy"))) < Day(Now) - 3 Then
                If Hour(CDate(Format(.Range("A" & i).Value, "hh:MM:ss"))) < Hour("16:00") Then
                    .Range("A" & i).Clear
                End If
                .Range("B" & i).Clear
            Else
                If Hour(CDate(Format(.Range("A" & i).Value, "hh:MM:ss"))) > Hour("15:00") Then
                    .Range("A" & i).Clear
                End If
            End If
        Next i
    End With
end sub

[snico78]

Bonjour

je vient de mettre dans ton code dans le fichier excel

mais j'ai une erreur au niveaux du / x = .UsedRange.SpecialCells(xlCellTypeLastCell).Row

UsedRange = référence incorrecte / ca peux venir d'ou ?

Je joint le ficher avec la macro


merci

bonne journée

[Nako_lito]

une erreur de ma part dans mon dernier post, j'ai oublié le with thisworkbook.sheets("Info") avant l'affectation du X.