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

  • Initiateur de la discussion Initiateur de la discussion stefer
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

stefer

XLDnaute Junior
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,
 

Pièces jointes

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+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour