Bonjour
Voici mon code Suivant qui me permettre de remplir un tableau a partir de la plage suivante B2:B14 et le transférer ver une autre plage
Apres j'ai remplacer la plage B2:B14 par une autre plage
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 Option Explicit Sub Rempli_Trans() Dim Lrow As Integer Dim i As Integer Dim Tabl() As Currency Lrow = Range("F100000").End(xlUp).Row + 1 'Remplissage tableau avec la plage de cellules B2:B14 ReDim Tabl(1 To 13) For i = 1 To UBound(Tabl()) Tabl(i) = Cells(i + 1, 2) Next i Range("F" & Lrow & ":R" & Lrow).Value = Tabl Range("B8").Value = Range("R" & Lrow).Value End Sub
et voici mon nouveau code
Si ma plage contient 50 cellules donc je doit écrire 50 ligne pour remplir mon tableau j'ai penser de nommer ma plage et la injecter dans le tableau mais je ne sais pas comment le faire
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
24
25 Sub Rempli_Trans() Dim Lrow As Integer Dim i As Integer Dim Tabl(14) As Currency Lrow = Range("F100000").End(xlUp).Row + 1 'Remplissage tableau avec la plage de cellules B2........................D14 Tabl(0) = Range("B2").Value Tabl(1) = Range("B3").Value Tabl(2) = Range("B8").Value Tabl(3) = Range("B9").Value Tabl(4) = Range("B14").Value Tabl(5) = Range("C3").Value Tabl(6) = Range("C5").Value Tabl(7) = Range("C8").Value Tabl(8) = Range("C11").Value Tabl(9) = Range("C14").Value Tabl(10) = Range("D2").Value Tabl(11) = Range("D6").Value Tabl(12) = Range("D8").Value Tabl(13) = Range("D12").Value Tabl(14) = Range("D14").Value Range("F" & Lrow & ":T" & Lrow).Value = Tabl Range("B8").Value = Range("J" & Lrow).Value End Sub
SVP est ce qu'il y a une solution pour diminuer ces lignes
merci
Partager