bonjour je travail avec ce code pour transférer plusieurs rangées de cellules vers d'autres feuilles avec un ordre différend pour chaque feuille sans timelag
mais malheureusement il me copie aussi ce qui est au dessous du tableau (en dehors du tableau)
le tableau commence en cell 10.1 et se termine au maximum en cell 196.6
un conseil ?
mais malheureusement il me copie aussi ce qui est au dessous du tableau (en dehors du tableau)
le tableau commence en cell 10.1 et se termine au maximum en cell 196.6
un conseil ?
VB:
Sub snb()
Dim sn As Variant
sn = Feuil1.Cells(10, 1).CurrentRegion.Offset(1)
Feuil2.Cells(14, 1).Resize(UBound(sn), 4) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 4, 3))
Feuil3.Cells(14, 1).Resize(UBound(sn), 4) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 5, 3))
Feuil4.Cells(14, 1).Resize(UBound(sn), 4) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 6, 3))
Feuil5.Cells(19, 3).Resize(UBound(sn), 3) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 4))
Feuil5.Cells(19, 7).Resize(UBound(sn), 1) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(3))
End Sub