Discussion :

[nananinanana]

Bonjour à tous

Ci dessous une tentative de code pour insérer un array dans une feuille en passant par un autre array (je crois?)

Or le temps d'éxecution est long et en plus il ne se passe rien

Des idées?

Merci d'avance

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
Private Sub Ajouter_Click()
Dim Maligne As Long
Dim derl%
Dim derl2%
Dim lofc()
Dim i%
Application.EnableEvents = False
Refresh
derl = Worksheets("NewLOFC").Cells(Rows.Count, 1).End(xlUp).Row
lofc = Worksheets("NewLOFC").Range("A2:J2" & derl).Value
derl2 = Worksheets("data").Cells(Rows.Count, 1).End(xlUp).Row + 1
 
For i = LBound(lofc, 1) To UBound(lofc, 1)
Worksheets("data").Cells(derl2, 1).Resize(1, 10).Value = _
Array(lofc(i, 1), lofc(i, 2), lofc(i, 3), lofc(i, 4), lofc(i, 5), lofc(i, 6), lofc(i, 7), lofc(i, 8), lofc(i, 9), lofc(i, 10))
Next
 
Sheets("Data").Activate
Application.EnableEvents = True
End Sub

[riaolle]

Bonjour
A première vue et pour répondre rapidement, je vois ça :

Code :

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

lofc = Worksheets("NewLOFC").Range("A2:J2" & derl).Value

Ne serait-ce pas plutôt ?

Code :

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

lofc = Worksheets("NewLOFC").Range("A2:J" & derl).Value

[Jean-Philippe André]

Salut,

on toruve un bon exemple, a toute fin utile :
http://silkyroad.developpez.com/vba/tableaux/#LXIV-F

[nananinanana]

En effet j'ai décalé derl2 = Worksheets("data").Cells(Rows.Count, 1).End(xlUp).Row + 1 après le "For" et ai remplacé comme proposé

Cela semble fonctionner maintenant ! Moi qui pensait ne rien ne comprendre à ces array !

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
Private Sub Ajouter_Click()
Dim Maligne As Long
Dim derl%
Dim derl2%
Dim lofc()
Dim i%
Application.EnableEvents = False
Refresh
derl = Worksheets("NewLOFC").Cells(Rows.Count, 1).End(xlUp).Row
lofc = Worksheets("NewLOFC").Range("A2:J" & derl).Value
 
For i = LBound(lofc, 1) To UBound(lofc, 1)
derl2 = Worksheets("data").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("data").Cells(derl2, 1).Resize(1, 10).Value = _
Array(lofc(i, 1), lofc(i, 2), lofc(i, 3), lofc(i, 4), lofc(i, 5), lofc(i, 6), lofc(i, 7), lofc(i, 8), lofc(i, 9), lofc(i, 10))
Next
 
Sheets("Data").Activate
Application.EnableEvents = True
End Sub