Discussion :

[cott333]

Bonjour à tous!

Depuis ce matin je galère à trouver mon erreur...et je vois pas. Soyez indulgent alors s'il vous plait

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 fusion(a, b As Variant) As Variant
Dim c As Variant
Dim d, e, f, g As Integer
ReDim c(UBound(a, 1) + UBound(b, 1), UBound(b, 2))
Dim i, j As Integer
 
For i = 1 To UBound(a, 1)
    For j = 1 To UBound(a, 2)
        c(i, j) = a(i, j)
    Next j
Next i
 
 
For i = 1 To UBound(b, 1)
    For j = 1 To UBound(b, 2)
        c(i + UBound(a, 1), j) = b(i, j)
    Next j
Next i
 
 
fusion = c(UBound(a, 1) + UBound(b, 1), UBound(a, 2))
 
 
End Function

Et pour voir si ca marche

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub essai()
 
e = Range("A1", "A8")
d = Range("B1", "B8")
 
 
Range("D1", Cells(UBound(e, 1) + UBound(d, 1), 4)) = fusion(e, d)
 
 
End Sub

En gros ca prend 2 matrices et ca les concatène. J'ai mis un espion sur ma variable c et il choppe les bonnes valeur.

Sauf que quand je fait tourner le programme pour voir si ca marche, ca me met toujours le même nombre et ca ne concatene pas les 2 matrice, l'une en dessous de l'autre.

Si une âme charitable pouvait passer par la ^^

Merci!

[Mr.Mof]

Bonjour,

Ce serait possible d'avoir ton classeur pour y jeter un coup d'oeil?
Et aussi je te conseille d'éviter de donner des nom du style a,b,c,d , toto , tata... Donne plutôt des noms significatif .

Cordialement.

[cott333]

Oui bien sur. C'est un petit code que j'essaie de faire.

Compris pour les variables. Je vais changer ^^

[Mr.Mof]

Ta fonction fusion te renvoie un variant et non un tableau donc c'est normal que tu ais une seul valeur(6841). C'est déjà une première piste à explorer.

[ZebreLoup]

@Mr.Mof : Un Variant peut très bien être un tableau, et d'ailleurs c'est bien le cas ici, je vais regarder plus en détail...

[ZebreLoup]

Alors, il y avait deux petits soucis dans ta fonction :

Tout d'abord, l'indice du premier élément d'un tableau est par défaut 0. C'est 1 quand tu convertis un range en variant, mais c'est un cas particuliers. Donc on a bien 1 pour e et d dans ton exemple, mais pas pour c que tu crées toi-même. Il faut donc mettre au niveau du dimensionnement de c :

Code :

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

ReDim c(1 To UBound(a, 1) + UBound(b, 1), 1 To UBound(b, 2))

Ensuite, quand tu rends le résultat de la fonction, tu ne prenais que le dernier élément de la matrice, il suffisait d'écrire simplement :

Code :

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

fusion = c

J'ai fait un test, ça marche comme ça.

EDIT : Ce n'est pas un bug, mais tu ne penses pas à vérifier que a et b ont le même nombre d'éléments sur leur deuxième dimension (le même nombre de colonnes)

[cott333]

Merci beaucoup!

Je viens d'apprendre un truc

Bonne journée!