Discussion :

[nouveau17]

Bonjour,
L'erreur 9 que vous avez sur cette ligne Set rngLeft = .Worksheets("Data").Range("A2").CurrentRegion est due tout simplement au fait que dans mon exemple la feuille où se trouve les deux tableaux se nomme "Data" et que évidemment il y a lieu soit de modifié le nom de votre feuille ou bien les deux lignes de code qui font référence à cette feuille.

bonjour,

si je veux changer la disposition des tableaux comme dans cet exemple :
le code doit changer

Code :

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

1
2
 Set rngLeft = .Worksheets("Data").Range("A2").CurrentRegion
    Set rngRight = .Worksheets("Data").Range("A27").CurrentRegion

merci

[Philippe Tulliez]

Bonjour,

si je veux changer la disposition des tableaux comme dans cet exemple :
le code doit changer

Effectivement et il est possible de placer les tableaux dans des feuilles différentes en modifiant le nom des feuilles dans le code.
Il serait plus intéressant de travailler avec des tableaux structurés

A lire éventuellement

• Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
• Excel: Les tables de données en VBA