Discussion :

[rampage92]

Bonjour tout le monde,

Je souhaiterai Passer du Format R1C1 au format A1. Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Mise_en_page_tableaux()
 
nr = ThisWorkbook.Worksheets("Allocation_optimale").Cells(Rows.Count, 2).End(xlUp).Row
Nc = ThisWorkbook.Worksheets("Allocation_optimale").Cells(2, Columns.Count).End(xlToLeft).Column
 
For j = 2 To Nc
Poids = Cells(1, j).Value
 
Cells(nr + 2, j) = Cells(1, j)
Cells(nr + 3, j) = "=""R1C" & j & """"
Next j
 
End Sub

Cela me retourne:

R1C2 R1C3 R1C4 R1C5 R1C6 R1C7 R1C8

Je souhaiterai que ca me retourne

A1 A2 A3 A4 ....

Merci de votre aide