Passer du Format R1C1 au format A1

Bonjour tout le monde,

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

Code:

---

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

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:

---

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

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:

---

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

---

ou si la ligne est définie par une boucle

Code:

---

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

---

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

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

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:

---

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

---

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