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