Discussion :

[Gorzyne]

Bonjour à tous et à toutes,

Alors j'ai une première Sub à tester qui prend un seul argument, la sub fonctionne très bien.
Je voulais partir de la même sub et ajouter un deuxième argument, et je me fais jeter par l'interpréteur avec une erreur "Attendu :=" , alors même que le corps de la routine est strictement inchangé, je me suis seulement contenté d'ajouter un deuxième argument à ma sub

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
Public TABSSDB() As Variant
Public Sub atester(col)
  Set mondico = CreateObject("Scripting.Dictionary")
  Set mondico2 = CreateObject("Scripting.Dictionary")
  Set wsess = Sheets("EMPLOIS")
 
  For Each c In wsess.Range(wsess.Cells(2, col), wsess.Cells(200000, col).End(xlUp))
     If Not mondico.Exists(c.Value) Then
        mondico.Add c.Value, c.Value
      End If
  Next c
  ReDim TABSSDB(mondico.Count)
  For Each c In wsess.Range(wsess.Cells(2, col), wsess.Cells(200000, col).End(xlUp))
      If Not mondico2.Exists(c.Value) Then
        mondico2.Add c.Value, c.Value
        TABSSDB(mondico2.Count) = c.Value
      End If
  Next c
End Sub
 Public Sub atester_2(col_1 As Integer, col_2 As Integer)
 
  Set mondico3 = CreateObject("Scripting.Dictionary")
  Set mondico4 = CreateObject("Scripting.Dictionary")
  Set wsess = Sheets("EMPLOIS")
 
  For Each c In wsess.Range(wsess.Cells(2, col_1), wsess.Cells(200000, col_1).End(xlUp))
     If Not mondico3.Exists(c.Value) Then
        mondico3.Add c.Value, c.Value
      End If
  Next c
  ReDim TABSSDB(mondico3.Count)
  For Each c In wsess.Range(wsess.Cells(2, col_1), wsess.Cells(200000, col_1).End(xlUp))
      If Not mondico4.Exists(c.Value) Then
        mondico4.Add c.Value, c.Value
        TABSSDB(mondico4.Count) = c.Value
      End If
  Next c
 
End Sub

du coup bon un petit coup de pouce pour m'aider à comprendre cette erreur déroutante, que je ne m'attendais pas à rencontrer à ce stade


merci bcp
Gorz

[Theze]

Bonjour,

As-tu séparé les arguments par une virgule ?

Code :

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

1
2
 
atester_2 valeur1, valeur2

[Gorzyne]

oui dans ma fenêtre execution j'appelle

Code :

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

atester_2(1,2)

par exemple

c'est vraiment exactement le même bout de code dans la routine, en plus mis à part que dico 1 et 2 deviennent 3 et 4, c'est vraiment juste la première ligne de la sub, où l'on définit les paramètres d'entrée qui change, qui passe de 1 à 2 arguments... bref je suis perplexe

EDIT: je viens de réessayer en écrivant atester_2 1, 2 au lieu de atester_2(1,2) comme tu m'as suggéré effectivement ça marche

si tu as une explication je suis preneur parce que là...

[Philippe Tulliez]

Bonjour,
Il y a deux manières d'appeler une procédure Sub.
Prenons comme exemple l'appel à la procédure ci-dessous

Code :

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

1
2
3
Sub AfficheNomPrenom(Nom As String, Prenom As String)
  MsgBox Nom & " " & Prenom
End Sub

Il y a deux syntaxes possibles
Soit

Code :

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

AfficheNomPrenom "Einstein", "Albert"

Soit

Code :

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

Call AfficheNomPrenom("Einstein", "Albert")

Pour les procédures Function trois syntaxes possibles (les deux premières utilisées comme un sub, la troisième utilisée comme une fonction en récupérant la valeur renvoyée

1. Call MsgBox("Ceci est un test", vbInformation, "Test")
2. MsgBox "Ceci est un test", vbInformation, "Test"
3. response = MsgBox("Ceci est un test", vbInformation + vbYesNo, "Test")

[Gorzyne]

j'entends bien mais du coup dans mon cas de figure c'est étrange que la syntaxe sans parenthèse fonctionne mais pas la synthaxe avec parenthèse...
celà dit tant que ça marche d'une façon ou d'une autre, mais j'aime bien comprendre...

[Patrice740]

Bonjour

j'entends bien mais du coup dans mon cas de figure c'est étrange que la syntaxe sans parenthèse fonctionne mais pas la synthaxe avec parenthèse...
celà dit tant que ça marche d'une façon ou d'une autre, mais j'aime bien comprendre...

Comme t'a dit Philippe () c'est une règle de syntaxe !
Il n'y a rien à comprendre :c'est comme ça.

On peut résumer :
- quand la sub ou la fonction sont appelées directement : pas de parenthèses,
- quand on utilise Call ou quand on affecte la fonction à une variable : parenthèses obligatoires