XL 2010 transfert et correction de données

[306255]

Bonjour

je souhaite transférer les données en colonnes vers les données en ligne me permettant de faire du publipostage

J'aimerais aussi pouvoir faire réapparaitre les données déjà transférées afin d'en faire des corrections si possible

Merci d'avance pour votre aide

 

[sylvanu]

Bonjour,
En PJ un essai avec :

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.

 

[306255]

Bonjour,
En PJ un essai avec :

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.

Merci pour ton aide c'est super

 

[kenny]

Bonjour,
En PJ un essai avec :

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.

trop fort Sylvanu ;o)) bravo