Discussion :

[RICXLS]

Bonjour

le bout de code ci-dessous devrai me permettre de chercher une ou des valeurs sur une colonne dans un tableau à 2 dimensions (pas de pb jusque là)
là ou cela se complique c'est de récupérer une ligne de 8 colonnes et les envoyer sur la feuille excel

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
Dim j As Integer
Dim F As Integer
Dim derniereligne As Double

Dim temp() As Variant
Dim tbville() As Variant

tbville = Range("A1:H36570").Value

ajouterfeuille ("IDF")

derniereligne = Worksheets("IDF").Range("A65536").End(xlUp).Offset(1, 0).Row
MsgBox derniereligne

        For I = 2 To 36570
        
                        If Left(tbville(I, 4), 2) = 75 Then
                       
 ligne à problème ==> Worksheets("IDF").Range("a" & I + 1 & ":h" & I + 1).Value = Application.WorksheetFunction.Transpose(tbville(I, 4))<==
                                          
                                          
                        End If
        Next I
         
End Sub

si quelqu'un à une piste je suis preneur

merci d'avance

[mercatog]

Bonjour

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
Sub Test()
Dim LastLig As Long, i As Long, j As Long
Dim k As Byte
Dim tbVille, Temp()
 
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'à adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    tbVille = .Range("A1:H" & LastLig).Value
End With
With Worksheets("IDF")
    For i = 2 To LastLig
        If Left(tbVille(i, 4), 2) = 75 Then
            j = j + 1
            ReDim Preserve Temp(1 To 8, 1 To j)
            For k = 1 To 8
                Temp(k, j) = tbVille(i, k)
            Next k
        End If
    Next i
    .Cells(.Rows.Count, "A").End(xlUp)(2).Resize(UBound(Temp, 2), 8).Value = Application.Transpose(Temp)
End With
End Sub

[RICXLS]

simplement trop fort merci