Recuperer les donnees dans un tableau d'un seul coup
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
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
Bonjour,
je crois qu'un fichier d'exemple est nécessaire ...
Bonjour
Mon code marche bien mais je veux le modifier et je cherche de l'aide,
Au niveau de mon macro je veux juste mettre toutes données dans le tableau avant de le transférer sur la feuile.
Actuellement mon code récupére une ligne dans le tableau et le transfère au même moment ,mais je veux qu'il recupere le tout dans le tableau et à la fin de la boucle le transfere sur la feuille.
je veux pas que ce bout de code se trouve dans la boucle
With Feuil3
Set Plg2 = .Range("A" & j & ":O" & j)
'Set Plg2 = .Range("A1:N1")
Plg2.Value = MonTab1
End With