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

KTM

XLDnaute Occasionnel
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.
 

Fichiers joints

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 Occasionnel
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas