Discussion :

[69Pierre]

Bonjour.

Je cherche à construire une fonction qui prend un tableau et 2 entier en paramètre et qui retourne des message.

Dans l'idéal, je souhaite mettre les 3 objets ci-dessous dans 3 modules différents :

Code :

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

1
2
3
4
5
Public tabReq1 As String
tabReq1 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L")
 
Public tabReq2 As String
tabReq2 = Array("A1", "B1", "C1", "D1", "E1", "F1", "G1", "H1", "I1", "J1", "K1", "L1", "M1", "N1")

Code :

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

1
2
3
4
5
6
7
 
Function AffLignesTab(tbl As Variant, deb As Integer, fin As Integer) As String
 
For i = deb To fin
    MsgBox (tbl(i))
Next
End Function

Code :

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

1
2
3
4
5
Sub premiereMacro()
 
AffLignesTab "tabReq1", 2, 4
 
End Sub

Pour l'instant, rien ne fonctionne.

[Philippe Tulliez]

Bonjour,

Pour l'instant, rien ne fonctionne.

Le problème c'est que vous ne dites pas ce qui ne fonctionne pas or si vous avez essayé de lancer votre procédure vous avez certainement reçu un message d'alerte qui aurait pu déjà vous éclairer.

Il y a plusieurs erreurs

1. On n'affecte pas de valeur à une variable en dehors d'une procédure
2. Vous déclarez deux variables tabReq1 et tabReq2 comme type String alors que vous les utilisez comme tableau (Array)
3. Lorsque l'on passe une variable comme argument à une procédure, on donne son nom directement sans les guillemets
   
   et enfin, je vous conseille de déclarer toutes vos variables (cf Option Explicit)

Ceci fonctionnera mieux

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
Option Explicit
Public tabReq1 As Variant
Public tabReq2 As Variant
 
Function AffLignesTab(tbl As Variant, deb As Integer, fin As Integer) As String
 Dim i As Integer
 For i = deb To fin
     MsgBox (tbl(i))
 Next
End Function
 
Sub premiereMacro()
 tabReq1 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L")
 tabReq2 = Array("A1", "B1", "C1", "D1", "E1", "F1", "G1", "H1", "I1", "J1", "K1", "L1", "M1", "N1")
 AffLignesTab tabReq1, 2, 4
End Sub

Quelques tutoriels à lire éventuellement

• Utiliser les variables en VBA Excel
• Utiliser les variables tableaux en VBA Excel
• Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

[69Pierre]

Merci Philippe.

Oui, comme cela, ça fonctionne mais comment faire pour que les 3 objets (array, fonction et lancement de la fonction) soient dans 3 modules différents.

En séparant ces 3 objets, j'ai une erreur d’exécution 13 (incompatibilité de type) dans la fonction AffLignesTab (ligne MsgBox (tbl(i)))

[Philippe Tulliez]

Bonjour,

comment faire pour que les 3 objets (array, fonction et lancement de la fonction) soient dans 3 modules différents.

Pour moi, ce ne sont pas des objets. Un classeur, une feuille, une cellule, un tableau croisé dynamique, etc. sont des objets mais une Sub ou une Function sont des procédures et une variable reste une variable même si c'est une variable tableau.
Une variable publique peut être déclarée dans n'importe quel module, si vous aviez lu le premier tutoriel que je vous ai suggéré de lire vous l'auriez vu, et les procédures peuvent également être placées dans des modules différents, à condition bien entendu d'être publique.