Comparer un tableau

Version imprimable

Comparer un tableau

Bonjour à tous,

Je débute tout juste sur Visual Basic, je m'en sers pour faire des macros pour Excel. J'aurai besoin d'un peu d'aide, je vous explique mon problème :

Je souhaite faire une macro qui copie des cases d'une feuille de saisie vers une feuille de données à la première ligne vide. Mais je souhaite intégrer des contrôles dont un qui vérifie que les informations que l'on va entrer dans la feuille de données n'existe pas déjà (date et valeurs), en l’occurrence ici c'est A et B que je souhaite comparer. Pour ce faire, j'utilise une boucle for avec le test logique suivant :

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
 
Dim A("date", "limonsrougesval", "limonsrougester", "sablesargileuxval", "sablesargileuxter", "argilesbleuesval", "argilesbleuester", "002-Découverture", "gresbleusval", "gresbleuster", "sterilesgisementval", "sterilesgisementter", "terrilprovisoireval", "terrilprovisoireter")
Dim B(Sheets("002").Range("A26:M26"))
Dim i As Integer
i = 0
    For Counter = 26 To 10000 ' Cette boucle cherche la première ligne vide dans la première
        i = i + 1            ' colonne.
            If premièrecasedutableau = "" And A <> B And  date <> "" Then
               CopieDonnees W,X,Y,Z
               Exit For
            ElseIf A = B Then
                                                        ' Si les deux tableaux sont identiques
                    Dim Reponse
                    Response = MsgBox("Ces valeurs existent déjà. Souhaitez-vous écraser les donnés?", vbYesNo + vbCritical + vbDefaultButton2, "Attention")
 
                        If Response = vbYes Then    ' L'utilisateur a choisi Oui.
 
                            CopieDonnees W,X,Y,Z
 
                            Exit For
 
                        Else    ' L'utilisateur a choisi Non.
                            Exit For        ' Quite la boucle
                        End If
            ElseIf date = "" Then
                Dim Reponse
                Response = MsgBox("Il manque la date !", vbInformation + vbOK + vbDefaultButton1, "Attention")
            Else
            End If
    Next Counter
 
End Sub

La question est la suivante :
je souhaite comparer A et B qui serait des tableau comportant une date ainsi que des valeurs. Comment puis-je faire pour comparer ces deux tableaux ?

Merci d'avance

Bonjour

J'ai fait autrement pour finir. J'ai utilisé la procédure Test() suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
Dim j As Boolean
    If A = B _
    And C = D _
    And E = F Then
        j = True
    Else
        j = False
    End If
    j
End Sub

J'utilise ensuite ma fonction Test() dans ma procédure "maître".

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
 
Private Sub CommandButton2_Click()
 
Dim i As Integer
Dim Counter As Integer
i = 0
    For Counter = 26 To 10000 ' Cette boucle cherche la première ligne vide dans la première
        i = i + 1            ' colonne.
            If premièrecasedutableau = "" And Test() = False And  date <> "" Then
               CopieDonnees W,X,Y,Z
               Exit For
            ElseIf Test() = True Then
                                                        ' Si les deux tableaux sont identiques
                    Dim Reponse
                    Response = MsgBox("Ces valeurs existent déjà. Souhaitez-vous écraser les donnés?", vbYesNo + vbCritical + vbDefaultButton2, "Attention")
 
                        If Response = vbYes Then    ' L'utilisateur a choisi Oui.
 
                            CopieDonnees W,X,Y,Z
 
                            Exit For
 
                        Else    ' L'utilisateur a choisi Non.
                            Exit For        ' Quite la boucle
                        End If
            ElseIf date = "" Then
                Dim Reponse
                Response = MsgBox("Il manque la date !", vbInformation + vbOK + vbDefaultButton1, "Attention")
            Else
            End If
    Next Counter
 
End Sub

J'ai toujour un problème, lorsque j'exécute la macro, il me dit la chose suivante :

Erreur de compilation
Sub, Fonction ou Property attendu

en me soulignant j. Je ne comprends pas très bien pourquoi. Auriez-vous une idée d'ou cela pourrai venir ?

Cordialement

Rafalemirage

Bonjour,
sans avoi regardé plus loin :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Test() Dim j As Boolean If A = B _ And C = D _ And E = F Then j = True Else j = False End If j End Sub
ce n'est pas une fonction et le J qui est tout seul comme un grand m'étonne

16/04/2009, 11h24
Krovax
Dans ta subroutine test les variable A et B ne sont pas déclaré, a moins que A et B soit déclaré comme publique de plus ton apelle de ta subroutine n'est pas corecte (comme tu le dit tu l'utilise comme une fonction ce qui est différent des subroutine en vba)

essaye d'en faire une fonction
exemple simple
Code:

1 2 3 4 5 6 7 function test(A() as variant, B() as variant) as boolean if A=B then test=true else test= false end if end sub
Et lors de l'appelle

Code:

IF test(A,B)=true then

ps pour tes déclaration de variable je te conseillerais de regarde c'est deux tuto
http://mhubiche.developpez.com/Access/variables/
http://silkyroad.developpez.com/VBA/LesVariables/

J'espère que cela t'aidera

Edit Bonjour casefayere, j'ai eu un peu de mal a retrouver mes liens et je nai pas rafraichi
16/04/2009, 12h01
rafalemirage

Merci pour vos réponses rapides.

En fait, les lettres A, B, C ... de mon exemple correspondent à des cellules d'une feuille Excel. J'ai mis A, B, C pour ne pas surcharger mais, par exemple :

A = Sheets("Saisie").Range("date")

et

B = Sheets("002-Découverture").Range("A26")

Du coup, je vois pas bien comment transformer ma subroutine test en fonction etant donnée que les A, B, C, ... ne varients pas et sont en fait des "constantes".

Re bonjour,

J'ai modifié mon Sub en Function comme cela :

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
 
Function Test() As Boolean
 
 
    If Sheets("Saisie").Range("date") = Sheets("002-Découverture").Range("A26") _
    And Sheets("Saisie").Range("limonsrougesval") = Sheets("002-Découverture").Range("B26") _
    And Sheets("Saisie").Range("limonsrougester") = Sheets("002-Découverture").Range("C26") _
    And Sheets("Saisie").Range("sablesargileuxval") = Sheets("002-Découverture").Range("D26") _
    And Sheets("Saisie").Range("sablesargileuxter") = Sheets("002-Découverture").Range("E26") _
    And Sheets("Saisie").Range("argilesbleuesval") = Sheets("002-Découverture").Range("F26") _
    And Sheets("Saisie").Range("argilesbleuester") = Sheets("002-Découverture").Range("G26") _
    And Sheets("Saisie").Range("gresbleusval") = Sheets("002-Découverture").Range("H26") _
    And Sheets("Saisie").Range("gresbleuster") = Sheets("002-Découverture").Range("I26") _
    And Sheets("Saisie").Range("sterilesgisementval") = Sheets("002-Découverture").Range("J26") _
    And Sheets("Saisie").Range("sterilesgisementter") = Sheets("002-Découverture").Range("K26") _
    And Sheets("Saisie").Range("terrilprovisoireval") = Sheets("002-Découverture").Range("L26") _
    And Sheets("Saisie").Range("terrilprovisoireter") = Sheets("002-Découverture").Range("M26") Then
        Test = True
    Else
        Test = False
 
    End If
 
End Function

Maintenant j'ai une autre erreur qui s'affiche, c'est une erreur d'execution '1004' : Erreur définie par l'application ou par l'objet.

Je vois pas d'ou ca peut venir.

16/04/2009, 14h24
Krovax

là j'ai un doute

Code:

Sheets("Saisie").Range("limonsrougesval") = Sheets("002-Découverture").Range("B26")

tu veux tester quoi?
16/04/2009, 14h40
rafalemirage

En fait, je souhaite faire une macro qui lorsque je rempli des cellules (dans une feuille "saisie") et que j'appuis sur un bouton "enregistrer", enregistre les données des cellules dans une autres feuille, ici "002-Découverture". Seulement, je souhaite vérifer que les informations que je souhaite enregistrer dans "002-Découverture" n'éxiste pas déjà (date et valeurs).

D'ailleur, je viens de remarquer que j'ai fait une erreur, la cellule B26 par exemple n'est pas fixe mais varira avec le Counter

Bonjour à tous,

j'ai modifié ma fonction. Maintenant elle ressemble à ca :

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
 
Function Test(Counter) As Boolean
 
 
    If Sheets("Saisie").Range("datedecouverture") = Sheets("002-Découverture").Cells(Counter, 1) _
    And Sheets("Saisie").Range("limonsrougesval") = Sheets("002-Découverture").Cells(Counter, 2) _
    And Sheets("Saisie").Range("limonsrougester") = Sheets("002-Découverture").Cells(Counter, 3) _
    And Sheets("Saisie").Range("sablesargileuxval") = Sheets("002-Découverture").Cells(Counter, 4) _
    And Sheets("Saisie").Range("sablesargileuxter") = Sheets("002-Découverture").Cells(Counter, 5) _
    And Sheets("Saisie").Range("argilesbleuesval") = Sheets("002-Découverture").Cells(Counter, 6) _
    And Sheets("Saisie").Range("argilesbleuester") = Sheets("002-Découverture").Cells(Counter, 7) _
    And Sheets("Saisie").Range("gresbleusval") = Sheets("002-Découverture").Cells(Counter, 8) _
    And Sheets("Saisie").Range("gresbleuster") = Sheets("002-Découverture").Cells(Counter, 9) _
    And Sheets("Saisie").Range("sterilesgisementval") = Sheets("002-Découverture").Cells(Counter, 10) _
    And Sheets("Saisie").Range("sterilesgisementter") = Sheets("002-Découverture").Cells(Counter, 11) _
    And Sheets("Saisie").Range("terrilprovisoireval") = Sheets("002-Découverture").Cells(Counter, 12) _
    And Sheets("Saisie").Range("terrilprovisoireter") = Sheets("002-Découverture").Cells(Counter, 13) Then
        Test = True
    Else
        Test = False
 
    End If
 
End Function

Maintenant c'est une "vrai" fonction puisqu'elle a une variable. Par contre, je reçois le message d’erreur suivant quand je test la fonction pas à pas :

Erreur d’exécution ‘1004’ : erreur définie par l’application ou par l’objet

Lorsque j’atteins la ligne « End Function ». Auriez-vous une idée d’où cela pourrai provenir parce que là je ne vois pas trop.

Cordialement

17/04/2009, 12h06
Krovax

plus précisément

Code:

Range("sablesargileuxval")

c'est censé être quoi?
Quest ce qui s'apelle sablesargileuxval chez toi?
17/04/2009, 12h41
rafalemirage

sablesargileuxval est le nom d'une cellule que j'ai renommé

Bonjour a tous,

J'ai réussi à résoudre mon problème qui, come la plupart du temps est une erreur toute bête. Je n'ai pas utilisé la bonne feuille dans ma boucle If :

J'avais mis :

Code:

1
2
 
If Worksheets("002-Découverture").Cells(Counter, 1) = "" And Test(Counter) = False And Worksheets("002-Découverture").Range("datedecouverture") <> "" Then

au lieu de :

Code:

1
2
 
If Worksheets("002-Découverture").Cells(Counter, 1) = "" And Test(Counter) = False And Worksheets("Saisie").Range("datedecouverture") <> "" Then

Je met mon code pour ceux que ca intéresseraient par la suite.

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
 
 
Private Sub CommandButton2_Click()
 
Dim i As Integer
Dim Counter As Integer
 
i = 0
 
    For Counter = 26 To 10000 ' Cette boucle cherche la première ligne vide dans la première
        i = i + 1            ' colonne.
            If Worksheets("002-Découverture").Cells(Counter, 1) = "" And Test(Counter) = False And Worksheets("Saisie").Range("datedecouverture") <> "" Then
 
                CopieDonnees "Saisie", "datedecouverture", "002-Découverture", 1, Counter
                CopieDonnees "Saisie", "limonsrougesval", "002-Découverture", 2, Counter
                CopieDonnees "Saisie", "limonsrougester", "002-Découverture", 3, Counter
                CopieDonnees "Saisie", "sablesargileuxval", "002-Découverture", 4, Counter
                CopieDonnees "Saisie", "sablesargileuxter", "002-Découverture", 5, Counter
                CopieDonnees "Saisie", "argilesbleuesval", "002-Découverture", 6, Counter
                CopieDonnees "Saisie", "argilesbleuester", "002-Découverture", 7, Counter
                CopieDonnees "Saisie", "gresbleusval", "002-Découverture", 8, Counter
                CopieDonnees "Saisie", "gresbleuster", "002-Découverture", 9, Counter
                CopieDonnees "Saisie", "sterilesgisementval", "002-Découverture", 10, Counter
                CopieDonnees "Saisie", "sterilesgisementter", "002-Découverture", 11, Counter
                CopieDonnees "Saisie", "terrilprovisoireval", "002-Découverture", 12, Counter
                CopieDonnees "Saisie", "terrilprovisoireter", "002-Découverture", 13, Counter
 
                Exit For
            ElseIf Test(Counter) = True Then
                                                        ' Si le numero du tir existe déjà, on affiche un message
                                                        'd'alerte.
                Dim Msg, Style, Title, Help, Ctxt, Response, MyString
                    Msg = "Une entrée comportant les mêmes informations existe déjà. Souhaitez-vous écraser les donnés?"    ' Définit le message.
                    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
                    Title = "Attention "    ' Définit le titre.
                    Help = "DEMO.HLP"    ' Définit le fichier d'aide.
                    Ctxt = 1000    ' Définit le contexte de
                                   ' la rubrique.
                                   ' Affiche le message.
                    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
 
                        If Response = vbYes Then    ' L'utilisateur a choisi Oui.
 
                            CopieDonnees "Saisie", "datedecouverture", "002-Découverture", 1, Counter
                            CopieDonnees "Saisie", "limonsrougesval", "002-Découverture", 2, Counter
                            CopieDonnees "Saisie", "limonsrougester", "002-Découverture", 3, Counter
                            CopieDonnees "Saisie", "sablesargileuxval", "002-Découverture", 4, Counter
                            CopieDonnees "Saisie", "sablesargileuxter", "002-Découverture", 5, Counter
                            CopieDonnees "Saisie", "argilesbleuesval", "002-Découverture", 6, Counter
                            CopieDonnees "Saisie", "argilesbleuester", "002-Découverture", 7, Counter
                            CopieDonnees "Saisie", "gresbleusval", "002-Découverture", 8, Counter
                            CopieDonnees "Saisie", "gresbleuster", "002-Découverture", 9, Counter
                            CopieDonnees "Saisie", "sterilesgisementval", "002-Découverture", 10, Counter
                            CopieDonnees "Saisie", "sterilesgisementter", "002-Découverture", 11, Counter
                            CopieDonnees "Saisie", "terrilprovisoireval", "002-Découverture", 12, Counter
                            CopieDonnees "Saisie", "terrilprovisoireter", "002-Découverture", 13, Counter
 
                            Exit For
 
                        Else    ' L'utilisateur a choisi Non.
                            Exit For        ' Effectue une action.
                        End If
            ElseIf Worksheets("002-Découverture").Range("datedecouverture") <> "" Then
                Dim Reponse As Integer
                Reponse = MsgBox("Il manque la date !", vbInformation + vbOK + vbDefaultButton1, "Attention")
            Else
            End If
    Next Counter
 
End Sub
Sub CopieDonnees(A, B, C, d, e)
' Cette procédure copie les données de la feuille A vers la feuille C
 
                Sheets(C).Cells(e, d) = Sheets(A).Range(B)
 
End Sub
 
Function Test(Counter As Integer) As Boolean
 
 
    If Sheets("Saisie").Range("datedecouverture") = Sheets("002-Découverture").Cells(Counter, 1) _
    And Sheets("Saisie").Range("limonsrougesval") = Sheets("002-Découverture").Cells(Counter, 2) _
    And Sheets("Saisie").Range("limonsrougester") = Sheets("002-Découverture").Cells(Counter, 3) _
    And Sheets("Saisie").Range("sablesargileuxval") = Sheets("002-Découverture").Cells(Counter, 4) _
    And Sheets("Saisie").Range("sablesargileuxter") = Sheets("002-Découverture").Cells(Counter, 5) _
    And Sheets("Saisie").Range("argilesbleuesval") = Sheets("002-Découverture").Cells(Counter, 6) _
    And Sheets("Saisie").Range("argilesbleuester") = Sheets("002-Découverture").Cells(Counter, 7) _
    And Sheets("Saisie").Range("gresbleusval") = Sheets("002-Découverture").Cells(Counter, 8) _
    And Sheets("Saisie").Range("gresbleuster") = Sheets("002-Découverture").Cells(Counter, 9) _
    And Sheets("Saisie").Range("sterilesgisementval") = Sheets("002-Découverture").Cells(Counter, 10) _
    And Sheets("Saisie").Range("sterilesgisementter") = Sheets("002-Découverture").Cells(Counter, 11) _
    And Sheets("Saisie").Range("terrilprovisoireval") = Sheets("002-Découverture").Cells(Counter, 12) _
    And Sheets("Saisie").Range("terrilprovisoireter") = Sheets("002-Découverture").Cells(Counter, 13) Then
        Test = True
    Else
        Test = False
 
    End If
 
End Function

En tout cas, merci pour votre aide (Krovax).