Discussion :

[wendkouni]

Bonsoir,

J'aimerais avoir de l'aide sur mon code VBA. Il s'agit de prendre des données de la feuille dénommée "Détail_des_titres" pour les remplir dans la feuille du même classeur dénommée "Feuil3". Le souci c'est que j'ai trouvé un code pour réaliser le travail que je veux faire, seulement, elle est très longue et j'aimerais savoir comment la réduire pour une plus grande efficience et une plus grande flexibilité du code.

Voilà mon code pour seulement pour le mois de janvier (en colonne)

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
23
24
25
26
27
28
29
30
Range("F3").Value = "=Détail_des_titres!K10"
Range("F4").Value = "=Détail_des_titres!K14"
Range("F5").Value = "=Détail_des_titres!K18"
Range("F6").Value = "=Détail_des_titres!K22"
Range("F7").Value = "=Détail_des_titres!K26"
Range("F8").Value = "=Détail_des_titres!K30"
Range("F9").Value = "=Détail_des_titres!K34"
Range("F10").Value = "=Détail_des_titres!K38"
Range("F11").Value = "=Détail_des_titres!K42"
Range("F12").Value = "=Détail_des_titres!K46"
Range("F13").Value = "=Détail_des_titres!K51"
Range("F14").Value = "=Détail_des_titres!K55"
Range("F15").Value = "=Détail_des_titres!K60"
Range("F16").Value = "=Détail_des_titres!K65"
Range("F17").Value = "=Détail_des_titres!K69"
Range("F18").Value = "=Détail_des_titres!K74"
Range("F19").Value = "=Détail_des_titres!K78"
Range("F20").Value = "=Détail_des_titres!K83"
Range("F21").Value = "=Détail_des_titres!K87"
Range("F22").Value = "=Détail_des_titres!K91"
Range("F23").Value = "=Détail_des_titres!K95"
Range("F24").Value = "=Détail_des_titres!K100"
Range("F25").Value = "=Détail_des_titres!K104"
Range("F26").Value = "=Détail_des_titres!K108"
Range("F27").Value = "=Détail_des_titres!K112"
Range("F28").Value = "=Détail_des_titres!K117"
Range("F29").Value = "=Détail_des_titres!K121"
Range("F30").Value = "=Détail_des_titres!K125"
Range("F31").Value = "=Détail_des_titres!K130"
Range("F32").Value = "=Détail_des_titres!K134"

Il s'agit de réalisé un budget des titres.

Ce que je recherche c'est que le code puisse aller prendre à chaque intervalle de 4 en ligne ou en colonne, les données de la feuille "Détail_des_titres" pour les remplir dans la feuille "Feuil3". Je n'arrive pas, je suis vraiment un novice dans la programmation.

Merci d'avance pour votre aide. je vous joint mon fichier.

[casefayere]

Bonsoir,
A adapter, je passe par des tableaux au cas où tu aies de nombreuses données à traiter (plus rapide)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub details()
Dim i As Long, DerCel As Range, TbD, tbF(), Wd As Worksheet, Wf As Worksheet, x As Long
Set Wd = Sheets("Détail_des_titres"): Set Wf = Sheets("Feuil3")
x = 0
Set DerCel = Wd.Range("K" & Wd.Rows.Count).End(xlUp)
TbD = Wd.Range("K10", DerCel)
For i = 1 To UBound(TbD, 1) Step 4
  x = x + 1
  ReDim Preserve tbF(1 To x)
  tbF(x) = TbD(i, 1)
Next i
Wf.Range("F3").Resize(UBound(tbF), 1) = Application.Transpose(tbF)
End Sub

[Marc-L]

Bonjour, bonjour !

Je n'arrive pas, je suis vraiment un novice dans la programmation.

Un code ne s'avère pas nécessaire surtout quand on est un novice dans le domaine !

En cas de difficulté pour coder, la première question à se poser : « est-ce réalisable directement dans Excel ? »
Et ici, la réponse est oui via une simple formule de calculs !

Une fois la formule trouvée (en la recopiant depuis la première cellule vers le bas),
si vraiment un code est nécessaire, il suffit d'une seule ligne de code pour copier les données dans la plage !

Voilà, voilà !

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …