Discussion :

[yoann7]

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

[conconbrr]

Hello,

Bon alors je t'avoue que j'ai un peu lu en diagonale, mais il y a pas mal de choses à reprendre dans ton code.
D'abord évite les .select, et sinon pour te déplacer je te conseille d'utiliser la propriété .offset de l'objet range.

Exemple :

Code :

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

range("a1").offset(3,4).value

Récupère la valeur de la cellule E4.

J'espère que ça t'aidera

[yoann7]

Ah merci je ne connaissais pas ce code, je l'ai adapté et ça marche nikel! merci beaucoup