pb pour remplir tableau

Version imprimable

Bonjour à tous et a toutes,

j'aurais svp besoin d'aide pour ma macro:
enfaite je lui demande d'ouvrir un fichier puis de le trier et ordonner et enfin je remplis mon tableau, jusqu'ici tout va bien!! pour le remplissage de mon tableau je veux qu'elle s'arrete de s'executer si elle rencontre la date du 02/01/2015.
seulement ca marche pas :/ et continue à remplir jusqu'au bout.

code:

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Option Base 1
 
Sub test()
Application.DisplayAlerts = False
Dim DerLig As Long
Dim Wbk1 As Workbook
Dim tab2() As Variant
Set Wbk1 = ThisWorkbook
Dim a As Date
a = Format(Date, "d m yyyy")
a = 2 / 1 / 2015
 
Workbooks.Open Filename:="\\ISSOU-BI01\Export\ACH\ACH_Archives\ACH-DSI-004-04_Lignes OA en cours et recues depuis 2ans.csv", Local:=True
 
With Workbooks(Workbooks.Count) ' sélectionner toutes les feuilles qu'ilya dans le classeur ouvert juste avant
    With .Sheets("ACH-DSI-004-04_Lignes OA en cou")
 
 
        DerLig = .Range("j" & Rows.Count).End(xlUp).Row
 
        .Columns("A:AX").AutoFilter Field:=50, Criteria1:=Array("36E"), Operator:=xlFilterValues
        .Columns("A:AX").AutoFilter Field:=4, Criteria1:=Array("Livré"), Operator:=xlFilterValues
        .Columns("A:AX").Sort key1:=Range("W2"), order1:=xlAscending, Header:=xlYes
 
        ReDim tab2(1 To DerLig, 1 To 3) ' ca permet d'avoir un tableau à derlig2 ligne et à 4 colonnes
 
            'alimentation du tableau de la feuille 1
        Set plageVisible = .UsedRange.SpecialCells(xlCellTypeVisible)
        'Set plageVisible = .Range("A1:AX" & Lig).SpecialCells(xlCellTypeVisible)
 
        K = 1
        For Each Ligne In plageVisible.Rows
 
            tab2(K, 1) = .Range("j" & Ligne.Row)
            tab2(K, 2) = .Range("I" & Ligne.Row)
            tab2(K, 3) = .Range("W" & Ligne.Row)
 
            K = K + 1
            If Cells(K, 23).Value = a Then
                Exit For
            End If
        Next Ligne
 
 
    End With
    .Close Savechanges:=False ' fermeture du classeur sans rien modifier
 
End With
With Wbk1
 
For K = 1 To DerLig
    .Sheets("Feuil4").Range("A" & K) = tab2(K, 1)
    .Sheets("Feuil4").Range("B" & K) = tab2(K, 2)
    .Sheets("Feuil4").Range("C" & K) = tab2(K, 3)
 
Next
 
.Sheets("Feuil4").Columns("A:C").AutoFit
 
End With
End Sub

13/07/2016, 10h35
Slooby

Bonjour,

Je le répète encore une fois: si tu veux qu'on fasse l'effort de t'aider, fait l'effort de poster un sujet aux "normes".
C'est à dire:

- explique bien ton problème (tu l'as bien fais en début de sujet ;) )
- utiliser les balises à bon escient ! ( Si tu as du code à mettre, met seulement le code utile et utilise les balises [ CODE] [ /CODE] que tu as en appuyant sur le bouton représenté par un gros # )

Merci !

Slooby
13/07/2016, 10h41
houssem1807

Bonjour Slooby,
voila c'est fait dsl pour l'erreur.
c'est vrai que c'est plus simple à traiter comme ca :)
13/07/2016, 11h20
Slooby
Bonjour,

C'est très certainement ton
Code:

1 2 3 Dim a As Date a = Format(Date, "d m yyyy") a = 2 / 1 / 2015
Qui pose problème. Si tu regarde dans ta fenêtres Watches, tu verras que a = 00:01:26 donc c'est pas du tout ce que tu veux !

Tes cellules en colonne 23 contiennent des dates au format 13/7/16 (pour aujourd'hui) ?
Ou alors c'est du texte qui vaut "13/7/16" ?

Slooby

EDIT:
La fonction FORMAT renvoie un STRING !!!
Elle ne sert qu'à l'affichage d'une date, elle ne va pas venir modifier la variable de type Date

Bonjour,

aurais-tu un exemple du classeur?

Ensuite, tu utilises des dates, je te conseille d'utiliser DateDiff pour effectuer tes comparaisons. Ainsi, pas besoin de modifier le format des cellules dans ta plage de données, pas de sensibilité à la casse, etc... .

En plus de cela, je simplifierais certaines choses et j'améliorerais la performance en modifiant un peu tes With et en ajoutant quelques variables :
Essaye avec ceci :

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Sub test()
    Dim DerLig As Long, k As Long, i As Long, Ligne As Long
    Dim Wbk1 As Workbook, wbkFin As Workbook
    Dim feui As Worksheet
    Dim tab2() As Variant
    Dim a As Date
 
    Application.DisplayAlerts = False
    Set Wbk1 = ThisWorkbook
 
    a = Format(Date, "d/m/yyyy")
    a = "2/1/2015"
 
    Workbooks.Open Filename:="\\ISSOU-BI01\Export\ACH\ACH_Archives\ACH-DSI-004-04_Lignes OA en cours et recues depuis 2ans.csv", Local:=True
    Set wbkFin = Workbook(Workbooks.Count)
 
    With wbkFin ' sélectionner toutes les feuilles qu'ilya dans le classeur ouvert juste avant
        Set feui = .Sheets("ACH-DSI-004-04_Lignes OA en cou")
        With feui
 
            DerLig = .Cells(Rows.Count, 10).End(xlUp).Row
 
            .Columns("A:AX").AutoFilter Field:=50, Criteria1:=Array("36E"), Operator:=xlFilterValues
            .Columns("A:AX").AutoFilter Field:=4, Criteria1:=Array("Livré"), Operator:=xlFilterValues
            .Columns("A:AX").Sort key1:=Range("W2"), order1:=xlAscending, Header:=xlYes
 
            ReDim tab2(1 To DerLig, 1 To 3) ' ca permet d'avoir un tableau à derlig2 ligne et à 4 colonnes
 
                'alimentation du tableau de la feuille 1
            Set plageVisible = .UsedRange.SpecialCells(xlCellTypeVisible)
            'Set plageVisible = .Range("A1:AX" & Lig).SpecialCells(xlCellTypeVisible)
 
            k = 1
            For Each Ligne In plageVisible.Rows
 
                tab2(k, 1) = .Cells(Ligne.Row, 10).Value 'Colonne j
                tab2(k, 2) = .Cells(Ligne.Row, 9).Value 'Colonne i
                tab2(k, 3) = .Cells(Ligne.Row, 23).Value 'colonne W
 
                k = k + 1
                If DateDiff("d", a, tab2(k, 23)) = 0 Then 'Si la date est la même (différence de jours entre les dates = 0)
                    Exit For
                End If
            Next Ligne
 
        End With
        .Close Savechanges:=False ' fermeture du classeur sans rien modifier
 
    End With
 
    Set feui = Wbk1.Sheets("Feuil4")
    With feui
        For k = 1 To DerLig
            For i = 1 To 3
                .Cells(k, i).Value = tab2(k, i)
            Next i
        Next
        .Columns("A:C").AutoFit
    End With
End Sub

En attendant, deux trucs m'ont paru bizarres dans ton code, ligne 40 (pour la vérification justement) :

Code:

If Cells(K, 23).Value = a Then

Es-tu sûr de bien utiliser la bonne ligne (k)? la bonne colonne (W) ? La bonne feuille (ici ça utilise la feuille active) ? Enfin bref, cela me paraît un peu bizarre. En attendant, tu peux essayer avec ce que je t'ai donné.

Le deuxième :

Code:

1
2
3
 
a = Format(Date, "d m yyyy")
a = 2 / 1 / 2015

Ici, pour moi, il faut écrire ceci (au minimum) :

Code:

1
2
3
 
a = Format(Date, "d m yyyy")
a =  "2 1 2015"

mais je préfère ceci :

Code:

1
2
3
 
a = Format(Date, "d/m/yyyy")
a = "2/1/2015"

13/07/2016, 12h08
houssem1807

Merci à vous deux,

Slooby,
mes cellules en colonne 23 sont bien en format date.

Jeanmidudu,

j'ai appliqué ton code et j'ai un soucis sur le type de variable pour Ligne!!
oui je cherche bien par rapport à la ligne k et la colonne 23 soit W, et c'est bien à partir de la feuille indiqué que j'effectue le remplissage!

je n'ai pas pu ajouter les fichiers car ils sont trop volumineux :/

Ne connaissant pas le type de données de ligne, je le déclare en variant cette fois :

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Sub test()
    Dim DerLig As Long, k As Long, i As Long
    Dim Wbk1 As Workbook, wbkFin As Workbook
    Dim feui As Worksheet
    Dim tab2() As Variant, Ligne As Variant
    Dim a As Date
 
    Application.DisplayAlerts = False
    Set Wbk1 = ThisWorkbook
 
    a = Format(Date, "d/m/yyyy")
    a = "2/1/2015"
 
    Workbooks.Open Filename:="\\ISSOU-BI01\Export\ACH\ACH_Archives\ACH-DSI-004-04_Lignes OA en cours et recues depuis 2ans.csv", Local:=True
    Set wbkFin = Workbook(Workbooks.Count)
 
    With wbkFin ' sélectionner toutes les feuilles qu'ilya dans le classeur ouvert juste avant
        Set feui = .Sheets("ACH-DSI-004-04_Lignes OA en cou")
        With feui
 
            DerLig = .Cells(Rows.Count, 10).End(xlUp).Row
 
            .Columns("A:AX").AutoFilter Field:=50, Criteria1:=Array("36E"), Operator:=xlFilterValues
            .Columns("A:AX").AutoFilter Field:=4, Criteria1:=Array("Livré"), Operator:=xlFilterValues
            .Columns("A:AX").Sort key1:=Range("W2"), order1:=xlAscending, Header:=xlYes
 
            ReDim tab2(1 To DerLig, 1 To 3) ' ca permet d'avoir un tableau à derlig2 ligne et à 4 colonnes
 
                'alimentation du tableau de la feuille 1
            Set plageVisible = .UsedRange.SpecialCells(xlCellTypeVisible)
            'Set plageVisible = .Range("A1:AX" & Lig).SpecialCells(xlCellTypeVisible)
 
            k = 1
            For Each Ligne In plageVisible.Rows
 
                tab2(k, 1) = .Cells(Ligne.Row, 10).Value 'Colonne j
                tab2(k, 2) = .Cells(Ligne.Row, 9).Value 'Colonne i
                tab2(k, 3) = .Cells(Ligne.Row, 23).Value 'colonne W
 
                k = k + 1
                If DateDiff("d", a, tab2(k, 23)) = 0 Then 'Si la date est la même (différence de jours entre les dates = 0)
                    Exit For
                End If
            Next Ligne
 
        End With
        .Close Savechanges:=False ' fermeture du classeur sans rien modifier
 
    End With
 
    Set feui = Wbk1.Sheets("Feuil4")
    With feui
        For k = 1 To DerLig
            For i = 1 To 3
                .Cells(k, i).Value = tab2(k, i)
            Next i
        Next
        .Columns("A:C").AutoFit
    End With
End Sub

13/07/2016, 12h43
casefayere

Bonjour,
à jeanmidudu

Citation:

Ne connaissant pas le type de données de ligne

dans le contexte et telle que la variable est codée c'est un "Range"

Code:

Ligne As Range
13/07/2016, 12h46
jeanmidudu

En effet :roll: J'ai fait ce code un peu à la va-vite
13/07/2016, 14h21
houssem1807

3 pièce(s) jointe(s)

jeanmidudu,

pour datediff j'ai pas pu complier du coup j'ai mis cells(k, 23).value à la place de tab(k,23) mais je reviens au point zéro. voila j'ai ajouté un fait un fichier beaucoup plus petit pour que tu puisse me comprendre

Pièce jointe 215341

Pièce jointe 215345
13/07/2016, 14h47
jeanmidudu

Il y a une référence à activer pour gérer les dates je crois.
14/07/2016, 11h23
houssem1807

Bonjour jeanmidudu,
comme je t'ai dis hier j'ai remplacé juste ton tab2(k,3) par cells(k,3).value et j'ai testé ca sur mon pc perso et ca marche super bien, donc tu as surement raison ca doit être une histoire de référence a activer, j'essayerai de voir lundi sur le pc du boulot.

Merci
14/07/2016, 11h56
Marc-L

Bonjour,

non il n'y a pas de référence pour les dates !

Je pense plutôt à une histoire de contexte : des dates qui n'en sont pas car en texte au lieu d'un nombre !

Astuce pour vérifier si des cellules représentant des dates sont des vraies dates (numériques donc) ou pas :
appuyer sur CTRL + le guillemet (3 au dessus du clavier alphanumérique) : les vraies dates basculent au format numérique,
les "mauvaises", celles en texte, ne changent pas … Même séquence de touches pour revenir à l'affichage normal …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
18/07/2016, 11h42
houssem1807
Bonjour Marc-L,

en effet j'ai rien trouvé sur les références, pas d'erreurs!! pour le format des date j'ai utilisé ce bout de code pour éviter tout bug :
Code:

1 2 .Columns("W:W").NumberFormat = "d/m/yyyy"
mais le problème est toujours là, ma macro ne s'arrete pas lorsqu'elle rencontre la condition :/

Bonjour à tous,
j'ai enfin résolu mon problème, enfaite j'ai utiliser un if au lieu de datediff et pour le numéro de ligne j'ai utiliser Ligne.row

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Set plageVisible = .UsedRange.SpecialCells(xlCellTypeVisible)
 
 
            k = 1
            For Each Ligne In plageVisible.Rows
                'If DateDiff("d", a, tab2(k,3)) = 0 Then 'Si la date est la même (différence de jours entre les dates =
                If .Cells(Ligne.Row, 23).Value = a Then
                    Exit For
                End If
                tab2(k, 1) = .Cells(Ligne.Row, 10).Value 'Colonne j
                tab2(k, 2) = .Cells(Ligne.Row, 9).Value 'Colonne i
                tab2(k, 3) = .Cells(Ligne.Row, 23).Value 'colonne W
                k = k + 1
 
 
            Next Ligne

du coup je comprends pas pourquoi avec (la variable k) tab2(k,3) ca marche pas !!!! si quelqu'un a une explication je suis preneur.

ci dessous code complet:

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Sub test()
    Dim DerLig As Long, k As Long, i As Long
    Dim Wbk1 As Workbook, wbkFin As Workbook
    Dim feui As Worksheet
    Dim tab2() As Variant, Ligne As Range
    Dim a As Date
    Application.DisplayAlerts = False
    Set Wbk1 = ThisWorkbook
 
    a = Format(Date, "d/m/yyyy")
    a = "2/1/2015"
 
    Workbooks.Open Filename:="\\ISSOU-BI01\Export\ACH\ACH_Archives\ACH-DSI-004-04_Lignes OA en cours et recues depuis 2ans.csv", Local:=True
    Set wbkFin = Workbooks(Workbooks.Count)
 
    With wbkFin ' sélectionner toutes les feuilles qu'ilya dans le classeur ouvert juste avant
        Set feui = .Sheets("ACH-DSI-004-04_Lignes OA en cou")
        With feui
 
            DerLig = .Cells(Rows.Count, 10).End(xlUp).Row
 
            .Columns("A:AX").AutoFilter Field:=50, Criteria1:=Array("36E"), Operator:=xlFilterValues
            .Columns("A:AX").AutoFilter Field:=4, Criteria1:=Array("Livré"), Operator:=xlFilterValues
            .Columns("A:AX").Sort key1:=Range("W2"), order1:=xlAscending, Header:=xlYes
            .Columns("W:W").NumberFormat = "d/m/yyyy"
 
            ReDim tab2(1 To DerLig, 1 To 3) ' ca permet d'avoir un tableau à derlig2 ligne et à 4 colonnes
 
                'alimentation du tableau de la feuille 1
            Set plageVisible = .UsedRange.SpecialCells(xlCellTypeVisible)
 
 
            k = 1
            For Each Ligne In plageVisible.Rows
                'If DateDiff("d", a, tab2(k,3)) = 0 Then 'Si la date est la même (différence de jours entre les dates =
                If .Cells(Ligne.Row, 23).Value = a Then
                    Exit For
                End If
                tab2(k, 1) = .Cells(Ligne.Row, 10).Value 'Colonne j
                tab2(k, 2) = .Cells(Ligne.Row, 9).Value 'Colonne i
                tab2(k, 3) = .Cells(Ligne.Row, 23).Value 'colonne W
                k = k + 1
 
 
            Next Ligne
 
        End With
        .Close Savechanges:=False ' fermeture du classeur sans rien modifier
 
    End With
 
    Set feui = Wbk1.Sheets("Feuil4")
    With feui
        For k = 1 To DerLig
            For i = 1 To 3
                .Cells(k, i).Value = tab2(k, i)
            Next i
        Next
        .Columns("A:C").AutoFit
    End With
End Sub

Merci à tous pour votre aide