Bonjour à tous, j'ai un petit soucis dans un programme, je remplis une feuille excel avec des données, avant je le faisais par ligne donc c'était simple de descendre d'une ligne a chaque rentré dans la boucle.
Mais j'aimerais remplir par colonne, mais je n'arrive pas a me déplacer d'une colonne sur la droite a chaque exécution de la boucle.
J'ai essayé ça mais marche po !

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
cell_rempl = 0
cell_rempl = cell_rempl + 1
 
    Range("B" + cell_rempl & "1").Select
    ActiveCell.FormulaR1C1 = "" & num_tab
 
    Range("B" + cell_rempl & "2").Select
    ActiveCell.FormulaR1C1 = "" & rapport & "%"
 
    Range("B" + cell_rempl & "3").Select
    ActiveCell.FormulaR1C1 = "" & lig_proj
 
    Range("B" + cell_rempl & "4").Select
    ActiveCell.FormulaR1C1 = "" & lig_proj_2
 
    Range("B" + cell_rempl & "5").Select
    ActiveCell.FormulaR1C1 = "" & piece_liv & "%"
 
    Range("B" + cell_rempl & "6").Select
    ActiveCell.FormulaR1C1 = "" & lig_liv & ""
Il faudrait que premiere exécution colonne B, deuxieme C etc...
Voilà et merci a ceux qui prendront le temps de me répondre