Discussion :

[rafalemirage]

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 :

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
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

[rafalemirage]

Bonjour

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

Code :

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

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 :

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
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

[casefayere]

Bonjour,
sans avoi regardé plus loin :

Code :

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

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

[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 :

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

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 :

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

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

[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".

[rafalemirage]

Re bonjour,

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

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
 
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.

[Krovax]

là j'ai un doute

Code :

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

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

tu veux tester quoi?

[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

[rafalemirage]

Bonjour à tous,

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

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
 
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

[Krovax]

plus précisément

Code :

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

Range("sablesargileuxval")

c'est censé être quoi?
Quest ce qui s'apelle sablesargileuxval chez toi?

[rafalemirage]

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

[rafalemirage]

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 :

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

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 :

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

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 :

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
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).