XL 2010 transfert et correction de données

sylvanu à dit:

Bonjour,
En PJ un essai avec :

VB:

Sub Transfert()
Application.ScreenUpdating = False
With Sheets("publipostage")
    DL = 1 + .Range("B65500").End(xlUp).Row
    For L = 1 To 56
        .Cells(DL, L) = Sheets("REMPLISSAGE").Cells(L, "B")
    Next L
    [B1:B57].ClearContents
End With
End Sub
Sub Rapatriement()
Application.ScreenUpdating = False
Ligne = ActiveCell.Row
With Sheets("REMPLISSAGE")
    For L = 1 To 56
        .Cells(L, "B") = Sheets("publipostage").Cells(Ligne, L)
    Next L
    Rows(Ligne & ":" & Ligne).Delete Shift:=xlUp
End With
End Sub

Pour rapatrier des données, se mettre dans "publipostage" sélectionner une cellule de la ligne à rapatrier puis appuyer sur RAPATRIEMENT.
Les données sont rapatriées dans REMPLISSAGE et la ligne est supprimée.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
En PJ un essai avec :

VB:

Sub Transfert()
Application.ScreenUpdating = False
With Sheets("publipostage")
    DL = 1 + .Range("B65500").End(xlUp).Row
    For L = 1 To 56
        .Cells(DL, L) = Sheets("REMPLISSAGE").Cells(L, "B")
    Next L
    [B1:B57].ClearContents
End With
End Sub
Sub Rapatriement()
Application.ScreenUpdating = False
Ligne = ActiveCell.Row
With Sheets("REMPLISSAGE")
    For L = 1 To 56
        .Cells(L, "B") = Sheets("publipostage").Cells(Ligne, L)
    Next L
    Rows(Ligne & ":" & Ligne).Delete Shift:=xlUp
End With
End Sub

Pour rapatrier des données, se mettre dans "publipostage" sélectionner une cellule de la ligne à rapatrier puis appuyer sur RAPATRIEMENT.
Les données sont rapatriées dans REMPLISSAGE et la ligne est supprimée.

Cliquez pour agrandir...