Erreur d'exécution '1004' sheets(variable)

Bonjour à tous,

J'ai une erreur d'exécution 1004 sur la ligne Sheets(Y).name. J'ai essayé plusieurs chose mais en vain et je ne sais pas si c'est un probleme venant de la page (Y) ou de cellule (X).

Une aide me serait bien utile

Je vous remercie d'avance

Sub Rename_Page()
'But de la macro : renommer chaque page par une case d'un tableau de facon a avoir Section_**
Dim i As Integer, Y As Integer, X As Integer
i = 0

'n compte le nombre de Section
Sheets("MENU").Activate
nbcellsmenu = WorksheetFunction.CountA(Range("$F7:F240"))

While i < nbcellsmenu
    i = i + 1
    X = 7 + i
    Y = 2 + i
    'Renomme les feuilles autant de fois qu'il y a de sections
    Sheets(Y).Name = Sheets("MENU").Range(X, 6).Value 'feuille indexé = Section_"valeur de la case"
Wend
End Sub

Salut,

essaie d'ajouter un espion (clic droit sur le nom de ta variable) et écxécute ton code pas à pas (F8) pour voir si la variable n'est pas nulle ?

Ou alors avec un msgbox

Merci de ta réponse, d'après les espions toutes mes valeurs sont bonnes, enfin celle que je souhaitais donc je pense à une erreur d'écriture de la ligne.. Mais je ne vois pas où :/

Ah je viens de voir, petite erreur sur la selection de la cellule, c'est soit l'un soit l'autre :

range("A1").select

cells(1,1).select en l'occurence chez toi ce sera cells(X , 6).select

Alors avec Sheets(Y).Name = Sheets("MENU").Range(X, 6).Select j'ai l'erreur 1004 erreur définie par l'application ou par l'objet

Sheets(Y).Name = Sheets("MENU").Cells(X, 6).Select : erreur 1004 désolé... ce nom est déja attribué. Veuillez utiliser un autre nom

Bon, j'ai trouvé un autre code qui fonctionne maintenant je veux mettre section devant.

Du genre, SECTION **

** étant la valeur de ma cellule

Sub rename_page()
'But de la macro : renommer chaque page par une case d'un tableau de facon a avoir Section_**

Dim nb_classeur As Byte

nb_classeur = Worksheets.Count

For i = 2 To nb_classeur

Worksheets(i).Name = Sheets("MENU").Cells(i + 5, 6).Value

Next i

End Sub

Et paf, FIN DE CHANTIER !

Merci beaucoup ISA039, et au plaisir de te revoir

Voici le code utilisé

Sub rename_page()
'But de la macro : renommer chaque page par une case d'un tableau de facon a avoir Section_**

Dim nb_classeur As Byte

nb_classeur = Worksheets.Count

For i = 2 To nb_classeur

Worksheets(i).Name = "SECTION " & Sheets("MENU").Cells(i + 5, 6).Value

Next i

End Sub

ah oui décidément j'ai rien vu, value et non select ...

Penses à mettre en "résolu"

C'est pas grave

J'allais le faire justement, j'attendais 15 heures si tu répondais

Merci encore

SUJET RESOLU