Discussion :

[MicroMatz]

Re-Bonjour,

Je fais à nouveau appel à votre aide pour un problème de macro et de table VBA.

Je souhaiterais, dans une macro :
1) Créer une "ligne" (tableau 1D) à partir de valeurs données.
2) Copier/coller cette ligne dans un tableau existant (remplacer la ligne existantes)
3) Faire appel à une fonction "transfert"
-qui prend comme paramètre le tableau d'origine et le numéro de la ligne dont on souhaite récupérer les données
-qui renvoie comme résultat un tableau 1D dont les données auront été renseignées par la fonction.

J'ai écris quelques bouts de code mais je pense que ma syntaxe est fausse. Y-aurait-il une syntaxe appropriée, ou devrais-je ajouter des boucles ?

Exemple :

Tableau1

Nom	Prénom	Age	Ville
Antoine	Dupré	30	Paris
Luc	Leblanc	35	paris
Renaud	Marc	40	nantes

Tableau2

Nom	Ville
0	0
0	0
0	0

La création de la ligne ressemblerait à ceci :

Code :

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

1
2
Dim ligne(4) As Varient
ligne(*)=Tableau1(2,*)

La fonction transfert ressemblerait à ceci :

Code :

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

1
2
3
4
Dim transfert(Tableau, numLigne)
	OutputLigne(1) = tableau(numLigne,1)
	OutputLigne(2) = tableau(numLigne,4)
End function

On l'utiliserait de cette façon :

Code :

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

Tab2(2, *) =transfert(Tableau1, 3)

Le résultat serait le suivant :
Tableau2

Nom	Ville
0	0
Renaud	Nantes
0	0

Je vous remercie d'avance pour vos réponses, n'hésitez pas à me dire si mon message n'est pas clair.

[joe.levrai]

Bonjour,

une piste, j'ai crée deux plages de tableaux assez triviales

je te laisse adapter et tester
ici, j'ai transféré la ligne 1 vers la ligne 1

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
Sub Transfert(PlageSource As Range, LigSource As Long, PlageDest As Range, LigDest As Long)
 
PlageDest.Cells(LigDest, 1) = PlageSource.Cells(LigSource, 1)
PlageDest.Cells(LigDest, 2) = PlageSource.Cells(LigSource, 4)
 
End Sub
 
Sub essai()
 
Dim Plage As Range
Dim Plage2 As Range
Set Plage = Sheets("Feuil3").Range("A2", "D6")
Set Plage2 = Sheets("Feuil3").Range("G2", "H3")
 
Call Transfert(Plage, 1, Plage2, 1)
 
End Sub

[MicroMatz]

Je suis parti de ton code et j'ai adapté, et après débogage... ça fonctionne !
J'ai utilisé un type "Variant" pour les plages.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Transfert(PlageDest As Variant, LigDest As Integer, PlageSource As Variant, LigSource As Integer)
PlageDest(LigDest, 1) = PlageSource(LigSource, 1)
PlageDest(LigDest, 2) = PlageSource(LigSource, 4)
End Sub
 
Sub essai()
Dim Plage As Variant, Plage2 As Variant
Plage = Range("A1:D80").Value
Call Transfert(Plage2, 1, Plage, 3)
Range("A1:B10").Value = Plage2
End Sub

Merci beaucoup pour le coup de main !

[joe.levrai]

Ravi pour toi

deux petites question :
- pourquoi avoir basculé en variant ?
- ton exemple ne contient pas de valeur pour Plage2, c'est un oubli ?

[MicroMatz]

Vu que je travaillais déjà en Variant, j'ai gardé le même type. Mais j'ai pas vraiment de raison d'utiliser Variant plutôt que Range.
J'ai édité mon message en corrigeant quelques erreurs.