Bonjour,
Je n'arrive pas a faire fonctionner mon code.
A chaque fois que je le lance, il tourne x fois, comme demandé, mais au lieu d'écrire sur la ligne suivante, il ecrit sur la meme ligne, et donc écrase mes données.
en gros, j'ai quelque cellules a récupéré sur 10 ans. (géré par annee et derannee)
pour chaque année, je veux qu'il me récupere des infos:
création d'une clé unique:
récupération du montant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part a.Range("A" & derlign).Value = b.Range("B1").Value & b.Range("B15").Value & annee
et les stocke sur une autre feuille.
Code : Sélectionner tout - Visualiser dans une fenêtre à part a.Range("B" & derlign).Value = b.Range("D15").Value
mais une ligne par année!
avez vous une idée?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Sub recopie() Dim derlign As Integer Dim annee As Integer Dim derannee As Integer Set a = Sheets("Feuil6") Set b = Sheets("Entités - 2058A & ABIS") derlign = a.[A1040000].End(xlUp).Row + 1 annee = b.Range("D4") derannee = b.Range("M4") While (derannee - annee >= 0) a.Range("A" & derlign).Value = b.Range("B1").Value & b.Range("B15").Value & annee a.Range("B" & derlign).Value = b.Range("D15").Value annee = annee + 1 Wend End Sub
et j'ai une requete supplémentaire si c'est pas trop abusé
est il possible de verifier l'existance de cette ligne avant?
la remplacer si déja existant, l'ajouter si pas encore existant?
Code : Sélectionner tout - Visualiser dans une fenêtre à part a.Range("A" & derlign).Value = b.Range("B1").Value & b.Range("B15").Value & annee
Partager