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

[Slooby]

Bonjour,

Je ne suis pas bien sûr d'avoir tout compris,
mais si tu veux avoir A1, A2, etc.. alors avec ton exemple ça donnerai:

Code :

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

Cells(nr + 3, j).Value = Cells(j-1,1).Value

Tu figes la deuxième coordonnées (1 = colonne A)
et tu boucles sur les lignes (j-1 car dans ton exemple j commence à 2)

Slooby

[Philippe Tulliez]

Bonjour,
Si dans une cellule tu fais référence à une autre cellule soit par exemple =A1, ce n'est pas une valeur mais une formule.
En vba, pour écrire une formule, il faut donc utiliser la propriété Formula
Exemple

Code :

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

Range("A2").Formula = "=A1"

ou si la ligne est définie par une boucle

Code :

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

Range("A2").Formula = "=A" & J

On peut aussi utiliser la propriété FormulaR1C1 mais dans ton cas, je n'en vois pas l'utilité

[rampage92]

Merci pour vos reponse mais c est les colonnes que je cherche a obtenir

Par exemple :

Je veux que R1C1 donne A1

"" R1C2 donne B1
.
.
.
.
.
.
.
.

"" R1C12 donne L1

[Al__22]

Je pense que si tu remplaces le R1C de ta macro déjà ça aiderait
Tu peux utiliser la méthode .Address qui renvoi l'adresse direct de ta cellule notamment
Essaye ceci :

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).value = Cells(1, j)
Cells(nr + 3, j).value = "=" & Cells(1, j).Address
Next j
 
End Sub

[rampage92]

Merci beaucoup ca marche je passé a la prochaine question sur le forum