XL 2013 Macro pour transférer des données de la Feuil1 à Feuil2

stefer · 2 Juillet 2018

Bonjour,
Je voudrais une macro qui ferait avec le bouton "transfert", transférer les donner de la feuille "Principal" vers la feuille "Récap":
Les données des lignes de la colonne B a K si la cellule est vide dans la colonne P.
Dans la feuille "Récap" le tableau représente les colonne B à K et se remplit après avoir fait le clic sur le bouton de la feuille "Principale.
Par contre si le tableau est déja remplis, si je refais un clic sur le bouton "Transfert" c'est les nouvelles données qui s'affiche et efface les anciennes données.

Merci pour votre aide
Cordialement,

job75 · 2 Juillet 2018

Bonsoir stefer,

Fichier joint avec cette macro :

Code:

Sub Transfert()
Feuil2.Rows("3:" & Rows.Count).Delete 'RAZ
On Error Resume Next 'si aucune SpecialCell
With Feuil1.[A4].CurrentRegion
    Intersect(.Columns(16).SpecialCells(xlCellTypeBlanks).EntireRow, .Columns(2).Resize(, 10)).Copy Feuil2.[A3]
End With
With Intersect(Feuil2.UsedRange, Feuil2.Range("A3:J" & Rows.Count)).Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlMedium
End With
Feuil2.Activate 'facultatif
End Sub

A+

job75 · 2 Juillet 2018

Re,

Vous semblez savoir que le nom donnée existe en français alors pourquoi utilisez-vous le verbe donner à la place ?

Que croyez-vous que l'on pense des gens qui se moquent de l'orthographe ?

A+

XL 2013 Macro pour transférer des données de la Feuil1 à Feuil2

stefer

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires