Bonjour,
Je voudrais savoir s'il existe une fonction pour couper une variable tableau en deux?

Exemple :

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
 
Dim sVariableOriginale( 1 to 4 , 1 to 3 ) As String
 
Sub Test01
    sVariableOriginale( 1 , 1 ) = "Pare-choc"
    sVariableOriginale( 1 , 2 ) = "Noir"
    sVariableOriginale( 1 , 3 ) = "Plastique"
 
    sVariableOriginale( 2 , 1 ) = "Mur"
    sVariableOriginale( 2 , 2 ) = "Rouge"
    sVariableOriginale( 2 , 3 ) = "Brique"
 
    sVariableOriginale( 3 , 1 ) = "Guitare"
    sVariableOriginale( 3 , 2 ) = "Marron"
    sVariableOriginale( 3 , 3 ) = "Bois"
 
    sVariableOriginale( 4 , 1 ) = "Balle"
    sVariableOriginale( 4 , 2 ) = "Blanche"
    sVariableOriginale( 4 , 3 ) = "Cuir"
 
'    Application de la fonction recherchée et on obtient :
 
End Sub
sVariable1( 1 , 1 ) = "Pare-choc"
sVariable1( 1 , 2 ) = "Noir"
sVariable1( 1 , 3 ) = "Plastique"

sVariable1( 2 , 1 ) = "Mur"
sVariable1( 2 , 2 ) = "Rouge"
sVariable1( 2 , 3 ) = "Brique"

et

sVariable2( 1 , 1 ) = "Guitare"
sVariable2( 1 , 2 ) = "Marron"
sVariable2( 1 , 3 ) = "Bois"

sVariable2( 2 , 1 ) = "Balle"
sVariable2( 2 , 2 ) = "Blanche"
sVariable2( 2 , 3 ) = "Cuir"


Merci d'avance,
Christophe.