Discussion :

[halaster08]

Bonjour,

Suite à l'automatisation de certains fichiers j'ai rajouté des controles sur les dates pour être sur de ne pas avoir importé les mauvaises données. Dans mon fichier de donnée il y a deux colonnes "reporting year" et "reporting month" dont la valeur est normalement unique sur tous le fichier et égale au mois précédent (2016 et 9 ce mois-ci) pour controler qu'il ne reste pas de données du mois précédent qui n'aurait pas été supprimée dans le fichier je teste donc via une boucle que toutes les cellules de "reporting year" soit bien à 2016 et "reporting month" à 9. Mais voilà pour des gros fichiers ça pourrait prendre du temps de comparer cellule par cellule.
Ma question est donc y a t il un moyen plus rapide de comparer toutes les données à une seule valeur? si oui lequel?
Mon code actuel:

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
'verif des colonnes reporting year / month
If Month(Date) = 1 Then
    ydate = Year(Date) - 1
    mdate = 12
Else
    ydate = Year(Date)
    mdate = Month(Date) - 1
End If
With ThisWorkbook.Sheets("data")
Dim coly As Integer
    coly = .Rows("1:1").Find(What:="reporting_year", LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Column
Dim colm As Integer
    colm = .Rows("1:1").Find(What:="reporting_month", LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Column
Dim dl As Long
dl = .Range("A" & Rows.Count).End(xlUp).Row
Dim boo As Boolean
boo = False
For i = 2 To dl
   If Not (.Cells(i, coly) = ydate And .Cells(i, colm) = mdate) Then boo = True
Next i
If boo Then MsgBox "Erreur de reporting_year/month sur la sheet data"
End With

Merci d'avance

[unparia]

Bonjour
Ne serait-il pas plus simple et rapide de faire un tri hiérarchisé (colonne années - colonne mois) puis de supprimer toutes les lignes au-dessus de année 2016 - mois 9 ?
La 1ère occurrence de 2016 est alors la 1ère ligne de l'année 2016 dans la colonne des années on supprime au-dessus - puis la 1ère occurrence de 9 dans la colonne des mois est la 1ère ligne du mois 9 (on supprime au-dessus)

[halaster08]

N'étant pas informaticien de formation, je sais pas ce qui est le plus rapide.
J'aurais même tendance à penser que le tri est plus lent, puisque en plus de regarder la valeur de cellule il la compare aux autres.
Je vais tester ta proposition.
Merci.

[Jean-Philippe André]

Salut,

et avec une simple formule NB.SI() ?

[halaster08]

Salut,

et avec une simple formule NB.SI() ?

Exact, merci je savais qu'il y avait plus simple.

le nouveau code:

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
28
29
30
Sub aaa()
 
 
'verif des colonnes reporting year / month
If Month(Date) = 1 Then
    ydate = Year(Date) - 1
    mdate = 12
Else
    ydate = Year(Date)
    mdate = Month(Date) - 1
End If
With ThisWorkbook.Sheets("data")
Dim coly As Integer
    coly = .Rows("1:1").Find(What:="reporting_year", LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Column
Dim colm As Integer
    colm = .Rows("1:1").Find(What:="reporting_month", LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Column
Dim dl As Long
dl = .Range("A" & Rows.Count).End(xlUp).Row
 
If Not (WorksheetFunction.CountIf(Range(.Cells(2, coly), Cells(dl, coly)), "<>" & ydate) + WorksheetFunction.CountIf(Range(.Cells(2, colm), Cells(dl, colm)), "<>" & mdate) = 0) Then
MsgBox "Erreur de reporting_year/month sur la sheet data"
Else
If Not (.Cells(2, coly) ydate 2016 And .Cells(2, colm) = mdate ) Then MsgBox "Erreur de reporting_year/month sur la sheet data"
End If
End With
End Sub