Discussion :

[Pourquoi48]

Bonjour à tous,

Je cherche à coder une fonction VBA permettant de concaténer deux vecteurs à une dimension.
J'ai utilisé le code suivant, mais cela ne fonctionne pas. En effet il est indiqué " incompatibilité de type" sur Ubound. J'ai lu sur les autres sujets liés à ce type qu'il fallait bien redimensionner les vecteurs utilisés, ce que j'ai fait. Lorsque je fais un test en faisant Call Concatenation et en prenant deux vecteurs de ma feuille excel pour argument, cela ne fonctionne pas et me mets que les vecteurs sont vides, ce qui n'est pas le cas !

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
Function Concatenation(vec1 As Variant, vec2 As Variant) As Variant
Dim vecteur() As Variant
A = Ubound(vec1,1)
B = Ubound(vec2,1)
Redim vecteur( A+B,1)
For i = 1 To A
    vecteur(x, 1) = vec1(i, 1)
    x = x + 1
Next i
y = A + 1
For j = 1 To B
    vecteur(y, 1) = vec2(j, 1)
    y = y + 1
Next j
Concatenation = vecteur()
End Function

Merci beaucoup d'avance pour votre aide !

[Menhir]

Lorsque je fais un test en faisant Call Concatenation

Les fonctions personnalisée ne se lancent pas avec des Call (même si ça peut se faire).
On les utilise comme des variables ou des valeurs.

en prenant deux vecteurs de ma feuille excel pour argument

Euh... deux "vecteurs" ou deux zones ?

J'ai utilisé le code suivant, mais cela ne fonctionne pas. En effet il est indiqué " incompatibilité de type" sur Ubound.

Sans doute parce que tes vecteurs n'en sont pas.
Si ce sont des zones, il vaudrait mieux définir tes vecteurs comme des variables internes à la fonction et y placer les données de tes zones en début de macro.

A et B aussi devraient être déclarées et typées.

Je ne comprends pas non plus pourquoi tu mets une seconde dimension (en plus égale à 1) dans ta variable vecteur.

Ton x et ton y ne sont pas initialisés, ni déclarés, ni typés.
Je ne vois pas trop leur intérêt alors que tu pourrais utiliser i et j.

Au passage i et j non plus ne sont ni déclarés ni typer.
Là encore, étant donné que i et j sont des variables "kleenex" qui ne sont pas utilisées en même temps, je ne vois pas l'intérêt d'avoir deux variables.

Dernier détail (pinaillage) : ce que tu fais n'est pas de la concaténation mais du raboutage.

[Pourquoi48]

Merci beaucoup pour ta réponse rapide !

Euh... deux "vecteurs" ou deux zones ?

Oui ce sont bien des vecteurs, j'utilise en fait une fonction en amont qui transformes des plages en vecteurs.

Merci pour tes remarques, j'ai bien déclaré et typé toutes les variables, et supprimé les variables inutiles.

Je ne comprends pas non plus pourquoi tu mets une seconde dimension (en plus égale à 1) dans ta variable vecteur.

Lorsque je supprime la deuxième dimension, j'ai un message disant "l'indice n'appartient pas à la sélection", je ne comprends pas pourquoi..

Après ces modifications, la fonction me renvoie bien les valeurs qu'il faut, mais sous forme de range et non de vecteur… et changeant les type je ne parviens pas à la faire fonctionner, à part en gardant Variant..

[Menhir]

Lorsque je supprime la deuxième dimension, j'ai un message disant "l'indice n'appartient pas à la sélection", je ne comprends pas pourquoi..

Essaye Dim vecteur(2) As Variant.

Code :

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

Redim vecteur( A+B,1)

Cette ligne m'étonne beaucoup.
Il est impossible que le VBA l'ai laissée ainsi après validation.
L'as-tu retouchée après copie sur le forum ?

Après ces modifications, la fonction me renvoie bien les valeurs qu'il faut, mais sous forme de range et non de vecteur… et changeant les type je ne parviens pas à la faire fonctionner, à part en gardant Variant..

Comment utilises-tu le résultat de cette fonction ?