Bonjour
Oui désolé avec un exemple ce sera plus simple
Malheureusement je ne peux pas vous envoyer un fichier directement... (pas l'autorisation)
Voici alors une capture :
Et voici le code (juste crée pour un exemple)
Sub filtre_tablo()
Dim tablo1 As Variant
Dim tablo2 As Variant
Dim Tablo_Global As Variant
tablo1 = Range("B2").CurrentRegion
tablo2 = Range("H2").CurrentRegion
If tablo2(1, 2) <> "" Then
Range("H14").Resize(UBound(tablo2, 1), UBound(tablo2, 2)) = tablo2
Else
Range("A14").Resize(UBound(tablo2, 1)) = tablo2
End If
If tablo1(1, 2) <> "" Then
Range("H22").Resize(UBound(tablo2, 1), UBound(tablo2, 2)) = tablo2
Else
Range("A22").Resize(UBound(tablo2, 1)) = tablo2
End If
End Sub
Pour résumer : je récupère en fait les deux tableaux dans des variants.
Ensuite en fonction de leur dimension, soit je les affiche à gauche soit à droite.
Malheureusement cela va planter au niveau du tableau à 1 dim car j'essaye de faire une condition sur la 2eme dim qui n'existe pas.