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?