Macro: Changer le nom des sheet en sheet n+1

Bonjour,

Je souhaiterais créer une macro me permettant de changer le nom d'une sheet (ici Q&A) en Sheet1, la suivante qui s'appellera toujours Q&A en Sheet2 et ainsi de suite... Le problème est que je ne parviens pas à l'écrire dans ma Macro sous la forme Sheet n+1.

L'un d'entre vous pourrait-il m'éclairer svp?

Ci dessous la macro en question :

' Macro5 Macro

'

'

Sheets("Q&A").Select

Sheets("Q&A").Name = "Sheet1"

End Sub

Comprend pas bien ce que tu veux faire…

Sheets("Q&A").Name = "Sheet" & n

Bonjour,

Sub NomOnglets()
Dim i As Byte
    For i = 1 To Worksheets.Count
        Worksheets(i).Name = "Sheet" & i
    Next i
End Sub

Bonne journée

Claude

Merci !

Claude, c'est l'idée malheureusement cela ne fonctionne pas ...

Bonjour,

Le code de claude est tout à fait correct mais bien entendu il ne va pas se déclencher tout seul. Il faut l'associer à un bouton ou exécuter le code par outils / Macro.

A noter que si le fichier contient plus de 256 feuilles, il faut remplacer Dim i as byte par Dim i as integer

Amicalement

Dan

Merci,

finalement ça marche avec :

Sheets("Q&A").Name = "Sheet" & Sheets.Count

En revanche j'ai un nouveau problème...

ma macro continue avec

Sheets("Resultat").Select

Range("B7:G7").Select

Selection.AutoFill Destination:=Range("B7:G8"), Type:=xlFillDefault

L'opération correpond à :

Range("B7:G7").Select correspond au resultat de ma Sheet1

Range("B7:G8") correspond au résulat de ma Sheet2 incrementer sur le modèle Range("B7:G7") de ma sheet1.

et je voudrais que lorsque l'onglet suivant change de nom il refasse la même opération à savoir lorsque l'onglet sheet3 sera nomé qu'il reproduise l'operation en Range("B7:G9")et ainsi de suite...

Des idées?

re,

C'est un autre sujet, autre poste !

merci de mettre celui-ci en résolu

Claude

OK merci