XL 2010 transfert et correction de données

306255 · 30 Janvier 2021

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 · 30 Janvier 2021

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.

306255 · 30 Janvier 2021

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.

Merci pour ton aide c'est super

kenny · 30 Janvier 2021

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.

trop fort Sylvanu ;o)) bravo

XL 2010 transfert et correction de données

306255

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

306255

XLDnaute Occasionnel

kenny

XLDnaute Occasionnel

Discussions similaires