Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA: copier et multiplier des données historiques

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Lephok
  • 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 !

S'inscrire
L

Lephok

Guest
Bonjour à tous,

Débutant encore dans l'utilisation des macros, je n'ai pas le niveau pour trouver seul la solution à ma requête
Je compte donc sur votre générosité pour me sortir de ce dilemne.

Je souhaite mettre à jour un fichier comparant des données d'une année N en une année N-1.
A la fin de l'année N, je veux mettre à jour automatiquement mon fichier pour placer les données N en N-1
et réutiliser mon fichier en N+1.

Pas de problème pour créer une macro qui vient coller les données en N en N-1 lorsque celles ci ne changent pas.

Seulement là je veux décomposer les valeurs N d'une ligne sur deux lignes distinctes en N-1
en fonction d'un taux préablament défini et indiqué dans l'onglet "Taux"

Voici le fichier modèle sur lequel il faudrait appliquer cette macro.
Regarde la pièce jointe Test.xlsx

Merci d'avance pour votre aide cher contributeurs
 

Pièces jointes

Trier par date Trier par votes
Re : VBA: copier et multiplier des données historiques

Bonjour,

Vu que ton tableau est déjà construit, il te suffit plus que de faire un copier coller special valeur..

avec l'enregistreur de macro ca donne:

Code: 
Range("B29:M41").Select
    Selection.Copy
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

et tu gardes le tableau du bas pour tes calculs..

sinon. (et je sens que c'est ce que tu vas demander), il faut commencer par faire les calculs directement dans le tableau en haut à gauche (= mettre les formules) et une fois que le tableau est terminé, faire ce fameux copier coller special valeur
 
Vote positif 0 Vote négatif
Re : VBA: copier et multiplier des données historiques

Merci vgendron,

effectivement mettre les formules initialement dans mon tableau est une solution
mais dans ce cas, le fichier n'est pas réutilisable l'année suivante puisque les formules auront disparues.

De plus le fichier du bas dans mon fichier test n'est qu'une image de ce que je voudrais avoir dans le tableau du haut, il n'existe pas dans mon fichier source.

En fait je voudrais que ma macro gère les calculs avant de copier les valeurs
 
Vote positif 0 Vote négatif
Re : VBA: copier et multiplier des données historiques

avec ce que tu vas demander par la suite ;-)
Code: 
Sub Maj()

'création de la formule
formule = "=(O4*(1+(DECALER(Taux!$A$3;EQUIV($A4;Taux!$A$4:$A$7;0);1))))"
'application de la formule dans la première ligne
Range("B4:M4").FormulaLocal = formule

'recopie en lignes 3 5 et 6
Range("B4:M4").Copy Destination:=Range("B8")
Range("B4:M4").Copy Destination:=Range("B12")
Range("B4:M4").Copy Destination:=Range("B14")
    

'création de la seconde formule
formule2 = "=O4-B4"
'application de la formule dans la ligne2
Range("B6:M6").FormulaLocal = formule2
'recopie en ligne 4
Range("B6:M6").Copy Destination:=Range("B10")

'pour la ligne 7
formule3 = "=(O12-B12)+(O14-B14)"
Range("B16:M16").FormulaLocal = formule3


'copier coller valeur de tout le tableau


Range("B4:M16").Select
    Selection.Copy
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

End Sub

à noter.. la formule que tu utilises en ligne 3 5 et 6 n'est pas la meme que pour la ligne 1.. (val*(1+taux) devient (va*taux)
j'ai considéré que c'était une erreur...??
 
Vote positif 0 Vote négatif
Re : VBA: copier et multiplier des données historiques

Merci beaucoup Vgendron!! Cela répond parfaitement à ma demande.
Merci aussi pour la correction de l'erreur, tu as bien fait de modifier!!

Super ce forum
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
454
TooFatBoy
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
S
  • Question Question
XL 2021 Automatisation et synthèse données
Réponses
1
Affichages
250
Dand87
D
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
515
AtTheOne
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
777
picc
P
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
633
ZiM
Z
L
  • Question Question
XL 2021 Transformer des données verticales en horizontales et mettre à jour un graphique automatiquement
Réponses
11
Affichages
520
Leina
L
L
  • Question Question
Microsoft 365 Trier des données d'une colonne dans une autre
Réponses
2
Affichages
497
Langrand
L
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
947
chris
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
A
  • Résolu(e)
Microsoft 365 PowerPivot-comparer 2 périodes
Réponses
12
Affichages
1 K
Antho1234
A
M
  • Résolu(e)
XL 2013 Planning perpétuel Excel
2
Réponses
17
Affichages
1 K
Manutela
M
A
  • Question Question
Microsoft 365 Fichier de statistique et roulement
Réponses
0
Affichages
578
Aurel’Byylieve
A
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
A
  • Question Question
XL 2021 Générer des données à partir d'une ligne spécifique jusqu'à une autre
Réponses
5
Affichages
600
gbinforme
G
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
790
RyuAutodidacte
G
  • Question Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
725
GClaire
G
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
933
steph_29120
S
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
4 K
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…