Renommer une feuille
del8679
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
j'ai créer un bouton qui me permet de copier une feuille du classeur et de les renommer automatiquement 1 puis 2 puis 3
seulement je cherche une options pour pouvoir revoir l'ordre de ces feuilles lorsqu'on supprime par exemple la feuille n°4 c'est la feuille n°5 qui devient le n°4
merci
j'ai créer un bouton qui me permet de copier une feuille du classeur et de les renommer automatiquement 1 puis 2 puis 3
seulement je cherche une options pour pouvoir revoir l'ordre de ces feuilles lorsqu'on supprime par exemple la feuille n°4 c'est la feuille n°5 qui devient le n°4
merci
1 réponse
-
Bonjour
une proposition où "F" est le nom de la feuille dans laquelle on récupère le nom de la feuille à supprimer
Private Sub btSupprimeFeuille_Click() Dim nuf As String, nbf As Long, i As Long Application.DisplayAlerts = False nuf = Sheets("F").Range("A2").Value nbf = ActiveWorkbook.Sheets.Count Sheets(nuf).Delete If Val(nuf) < nbf - 1 Then For i = Val(nuf) + 1 To nbf - 1 Sheets(i).Name = i - 1 Next i End If Application.DisplayAlerts = True End Sub
bonne suite
