Discussion :

[Wikefire]

Bonjour à vous,

Alors voila j'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function StatutOFLikeMes(OF As String, ETAPE_PROCESS As String, TabloSN As Variant)
'TabloSn doit comporter 3 champs SN,STATUT et DEFAUT
 
 
    If UBound(TabloSN, 1) <> 3 Then
        Stop
    End If
 
    Dim TabloStatut()
    ReDim TabloStatut(1, 6)
 
    Dim tabloKey()
    ReDim tabloKey(1, 3)

Le tableau que je rentre en appelant la fonction est une plage que je sélectionne, cela donne ça : =StatutOFLikeMes("Test";"Test";B6:D17).

Mais en procédant à l'appel cela me dit que le type de donnée dans le UBound est pas compatible avec la fonction pourtant il s'agit bien d'un tableau 2D.

Je vois pas où est le problème, quelqu'un peut-il me dire ce qu'il va pas ?

Merci d'avance.

Take care of me, i'm a beginner

[Menhir]

Code :

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

Function StatutOFLikeMes(OF As String, ETAPE_PROCESS As String, TabloSN As Variant)

Tu mets la charrue avant les boeufs.

Remplace Variant par Range.
Et dans le reste de ton code, transfert le contenu des cellules de cette zone dans une variable tableau.

Mais il n'est pas obligatoire d'utiliser une variable tableau.
Par exemple If UBound(TabloSN, 1) <> 3 Then peut s'écrire If TabloSN.Rows.Count <> 3 Then si TabloSN est un Range.

Code :

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

1
2
3
4
5
    Dim TabloStatut()
    ReDim TabloStatut(1, 6)
 
    Dim tabloKey()
    ReDim tabloKey(1, 3)

Pourquoi faire des ReDim systématique au lieu de dimensionner le tableau dans le Dim.
Il serait plus simple d'écrire :

Code :

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

1
2
    Dim TabloStatut(1, 6)
    Dim tabloKey(1, 3)

Et il serait préférable, également, de définir le type de ces variables.

[jeanmidudu]

Comme tu l'as si bien dit, tu passes une plage en paramètre. Or, une plage N'EST PAS un tableau.
2 solutions possibles :
- Tu convertis ta plage en tableau
- Tu travailles avec la plage et pas avec un tableau

[Phil'oche]

Salut,

Je ne comprends ni la déclaration de ta fonction, ni son appel...

Dans un 1er temps, je ne pense pas que =StatutOFLikeMes("Test";"Test";B6:d17) puisse fonctionner sans erreur, car le 3ème argument ne peut pas être accepté tel qu'il est passé...
B6:d17 n'est ni un String, ni un Range, ni un Variant...
Tu peux éventuellement faire fonctionner ton code en écrivant

Code :

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

1
2
3
4
5
6
7
8
9
Function StatutOFLikeMes(OF As String, ETAPE_PROCESS As String, sTabloSN As String)
'TabloSn doit comporter 3 champs SN,STATUT et DEFAUT
    Dim TabloSN() as Variant
    TabloSN = MaFeuille.Range(sTabloSN)
 
    If UBound(TabloSN, 1) <> 3 Then
        Stop
    End If
    ........

et en l'appelant par =StatutOFLikeMes("Test";"Test";"B6:d17")

[patricktoulon]

re
j'en rajoute une couche
attention avec le ubound d'un range.value c'est +1 car le premier index commence par 1 et non 0 comme un tableau dimer du genre dim tableau(10,2)

et pour ce qui ne le savent pas redim tableau(x,y) est valable en tant que declaration directe (meme sans dim)

vous avez cas essayez option explicit et faire que des redim sans dim

[Menhir]

faire que des redim sans dim

Ou l'inverse.

[unparia]

Bonjour
Puisque l'on ajoute des "couches", je vais ajouter la mienne.
Utiliser directement Redim n'est pas forcément la meilleure habitude à prendre.
Cela ira bien pour une variable locale, mais une discipline systématiquement observée avec rigueur permettra d'éviter les pièges de cette méthode directe lorsqu'il s'agit d'une variable à portée générale.
Je choisis personnellement de systématiquement utiliser Dim, puis Redim. Et cela est devenu un réflexe qui ne coûte pas cher et me protège de certaines mésaventures de développement (je traite toujours ainsi, sans distinguer une méthode de l'autre en fonction de la portée de la variable et n'ai donc du fait de ce réflexe systématique jamais la possibilité de me planter)

[unparia]

Pour conforter ce que j'ai dit dans mon message précédent et surtout pour que nul ne s'y trompe et prenne de mauvaises habitudes (surtout des débutants passant par là)
L'aide interne VBA contient une rubrique ReDim, instruction concernant l'instruction Redim. Elle est à lire entièrement et calmement.
Voici, entre autres, l'un de ses passages :

Attention L'instruction ReDim a un effet déclaratif si la variable déclarée n'existe pas au niveau module ou au niveau procédure. Si une autre variable portant le même nom est créée ultérieurement, même avec une portée plus importante, l'instruction ReDim fait référence à cette dernière et n'engendre pas systématiquement d'erreur de compilation, même si Option Explicit est activé. Pour éviter tout conflit de ce type, l'instruction ReDim ne doit pas être utilisée dans un but déclaratif, mais uniquement pour redimensionner des tableaux.

Note Pour redimensionner un tableau contenu dans une variable de type Variant, il vous faut au préalable déclarer explicitement cette variable.

Il fallait que ce fût dit. J'ai choisi de laisser la parole à qui de droit : l'aide interne VBA.