Discussion :

[dolin007]

Comment faire pour qu'une plage de cellule prenne le nom du contenu d'une autre cellule ?

J'ai tenté quelque chose qui ne marche pas.

Code :

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

1
2
3
4
 
J = Sheets("Feuil_historique").Range("A1")
    ActiveWorkbook.Names.Add Name:="&J&", RefersToR1C1:= _
        "=Feuil_historique!R13C2:R18C7"

[rvtoulon]

Slt,
Voici un exemple:

Code :

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

1
2
3
 
'Donne a la plage A1:C5 de la Feuil2 la valeur de A1 de la feuil1
Sheets ("Feuil2").range("A1:C5").name = Sheets ("feuil1").range ("A1").value

A+

[dolin007]

Ok,

j'aimerai appliquer ça dans la macro suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub tableaunom()
Dim W As Long, E As Long, V As Long, I As Long, J As Long
W = Sheets("Feuil_historique").Range("B65536").End(xlUp).Row
E = Sheets("Feuille_SAP_sorties").Range("Y65536").End(xlUp).Row + 1
Sheets("Feuille_SAP_sorties").Range("Y" & E) = Sheets("Feuil_historique").Range("A" & W)
Sheets("Feuille_SAP_sorties").Range("AA" & E) = W
V = Sheets("Feuille_SAP_sorties").Range("Z" & E)
I = Sheets("Feuille_SAP_sorties").Range("AA" & E)
J = Sheets("Feuil_historique").Range("A" & W)
Worksheets("Feuil_historique").Range(Cells(V, 2), Cells(I, 7)).Name = Sheets("Feuille_SAP_sorties").Range("X" & E)
End Sub

J'ai essayé d'appliquer le code que tu m'a donné là :

Code :

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

Worksheets("Feuil_historique").Range(Cells(V, 2), Cells(I, 7)).Name = Sheets("Feuille_SAP_sorties").Range("X" & E)

Mais ça marche pas...

[rvtoulon]

Slt,
je pense qu'il ya beaucoup d'erreur notamment dans les variables. on va essayer de les trouver mais bon je suis pas un pro du vba alors on va y aller tranquille.

D'abord à quoi sert ce code? quel est son but?
ensuite pour répondre à ta question:

Code :

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

1
2
 
Worksheets("Feuil_historique").Range(Cells(V, 2), Cells(I, 7)).Name = Sheets("Feuille_SAP_sorties").Range("X" & E)

Ici Cells(V,2) attends un chiffre or ta Variable V que tu as déclaré en temps que long (logique) n'est pas du bon type vérifie ceci:

Code :

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

1
2
3
4
 
V = Sheets("Feuille_SAP_sorties").Range("Z" & E)
I = Sheets("Feuille_SAP_sorties").Range("AA" & E)
J = Sheets("Feuil_historique").Range("A" & W)

idem pour I et J.
mais une question pourquoi toute ces variables?

[rvtoulon]

Re,
lorsque tu auras modifié ces lignes V=, I=, J=
remplace:

Code :

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

1
2
 
Worksheets("Feuil_historique").Range(Cells(V, 2), Cells(I, 7)).Name = Sheets("Feuille_SAP_sorties").Range("X" & E)

par :

Code :

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

1
2
3
 
Worksheets("Feuil_historique").Select
Range(Cells(V, 2), Cells(I, 7)).Name = Sheets("Feuille_SAP_sorties").Range("X" & E)

j'ai essayé c ok, mais avant modifie bien les lignes dont je t'ai parlé.
A+