XL 2013 Exporter données d'une feuille vers une autre à un emplacement precis

KTM

XLDnaute Impliqué
Salut chers tous
J'aimerais copier et coller en valeur les données B6:B16 de ma feuille "Conso" dans ma feuille "Historique_Conso" selon le mois .
Je joins un fichier test pour illustrer mon problème. Merci de vouloir me guider.
 

Pièces jointes

  • Export_Données.xlsm
    10.4 KB · Affichages: 21

job75

XLDnaute Barbatruc
Bonsoir KTM,

VB:
Sub Exporter_Données()
'CodeNames des feuilles à adapter
Dim P As Range
Set P = Feuil2.[A5].CurrentRegion.Columns(2).Cells
With Feuil1.[D3].CurrentRegion
    .Columns(Month(P(1))).ClearContents 'RAZ
    P.Copy .Cells(1, Month(P(1)))
End With
With Feuil1.[D3].CurrentRegion
    .Borders.Weight = xlThin
    .Offset(.Rows.Count).Resize(.Parent.Rows.Count - .Rows.Count - .Row + 1).Delete xlUp 'RAZ dessous
    .Parent.Activate 'facultatif
End With
End Sub

Edit : petite erreur, au lieu de P.Copy .Columns(Month(P(1))) il faut P.Copy .Cells(1, Month(P(1)))

A+
 
Dernière édition:

KTM

XLDnaute Impliqué
C'est tres puissant et trop top.
Le résultat est propre.
Mais un dernier détail job75 , je voudrais que seules les valeurs soient transférées au cas ou il aurait une formule dans la plage d'origine.
Votre code est tres sublime . Pouvez vous apporter plus d'explications pour sa compréhension pour les "sous-doués" comme moi ? Encore Merci !!!!!
 

job75

XLDnaute Barbatruc
Mais un dernier détail job75 , je voudrais que seules les valeurs soient transférées au cas ou il aurait une formule dans la plage d'origine.
VB:
Sub Exporter_Données()
'CodeNames des feuilles à adapter
Dim P As Range
Set P = Feuil2.[A5].CurrentRegion.Columns(2).Cells
With Feuil1.[D3].CurrentRegion
    .Columns(Month(P(1))).ClearContents 'RAZ
    .Columns(Month(P(1))).Resize(P.Count) = P.Value 'copie les valeurs
End With
With Feuil1.[D3].CurrentRegion
    .Borders.Weight = xlThin 'bordures
    .Offset(.Rows.Count).Resize(.Parent.Rows.Count - .Rows.Count - .Row + 1).Delete xlUp 'RAZ dessous
    .Parent.Activate 'facultatif
End With
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs