Bonjour,
A partir d'un classeur, j'ai récupéré des données que j'ai stocké dans un tableau.
Je voudrais maintenant recopier l'ensemble dans un second classeur: la première donnée (dans mon code: "Copie(0)") dans la cellule A de la première ligne disponible et toutes les autres données du tableau dans la colonne B (les une sous les autres).
Ensuite, je voudrais fusionner toutes les cellules de A en fonction du nombre d'élément associé dans la colonne B (histoire d'avoir un jolie tableau ).
Pour l'instant, la cellule A du second classeur est bien renseigné, mais je n'arrive pas à alimenter la colonne B avec le reste des données du tableau
Mon Code:
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
26
27
28
29
30 Private Sub test() Dim Copie(33) As String, j%, i%, k%, derLigne As Integer, previ As Worksheet With ThisWorkbook.Worksheets("Clients") Copie(0) = .Range("B4") For i = 1 To 6 Copie(i) = .Range("A" & i + 15) Next i For j = 7 To 33 If (.Range("B" & j + 17)) <> "" Then Copie(j) = .Range("B" & j + 17) Else: End If Next j End With Workbooks.Open "C:\Users\XXXX\Desktop\Ent\TABLEAUX AVANCEMENT.xlsx" Set previ = ActiveWorkbook.Worksheets("Prév") derLigne = previ.Range("b" & Rows.Count).End(xlUp).Row + 1 For k = LBound(Copie) To UBound(Copie) previ.Cells(derLigne, 1).Value = Copie(0) previ.Cells(derLigne, 2).Value = Copie(k) Next k End Sub
Partager