tigeline001
XLDnaute Occasionnel
Bonjour tout le monde
Au niveau du code ci dessous , es ce qu'il y'a possibilité de recuperer les donnees dans le tableau à la fin de la boucle.
j'ai essayé de le faire mais au niveau de la feuille destination il me donne seulemet la derniere ligne recuperée
Merci
Au niveau du code ci dessous , es ce qu'il y'a possibilité de recuperer les donnees dans le tableau à la fin de la boucle.
j'ai essayé de le faire mais au niveau de la feuille destination il me donne seulemet la derniere ligne recuperée
Merci
Code:
Public Sub SERVICE_BEHESP()
Dim MonTab1 As Variant, Compt11 As Long, Plg1 As Range, Plg2 As Range
Dim j As Long
Dim Z As String
Dim trouve As Range
Application.ScreenUpdating = False
With Feuil52
.Range("A1:O1").Copy Feuil60.Range("A1")
Set Plg1 = .Range("A2:O" & .Range("A" & .Rows.Count).End(xlUp).Row)
MonTab1 = Plg1.Value
j = 2
For Compt11 = LBound(MonTab1, 1) To UBound(MonTab1, 1)
Z = .Cells(Compt11, 13) & Chr(32) & .Cells(Compt11, 12)
'Z = MonTab1(Compt11, 13) & Chr(32) & MonTab1(Compt11, 12)
Set trouve = Feuil53.Columns(9).Find(Z, lookat:=xlWhole)
If Not trouve Is Nothing Then
MonTab1 = Feuil52.Range("A" & Compt11 & ":O" & Compt11)
With Feuil60
Set Plg2 = .Range("A" & j & ":O" & j)
'Set Plg2 = .Range("A1:N1")
Plg2.Value = MonTab1
End With
j = j + 1
End If
Next Compt11
End With
With Feuil60
'.Activate
.Columns("A:Y").AutoFit: .Range("A1").CurrentRegion.Borders.LineStyle = 1 'J'ajuste mes colonnes en tailles
Application.Union(.Range("F1"), .Range("G1"), .Range("K1")).EntireColumn.NumberFormat = "dd-mm-yyyy hh:mm:ss"
End With
Application.ScreenUpdating = True
End Sub
Dernière modification par un modérateur: