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
A voir également:
- Renommer une feuille
- Renommer des fichiers en masse - Guide
- Renommer son iphone - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
- Comment renommer quelqu'un sur instagram - Guide
- Feuille de pointage excel - Télécharger - Tableur
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
bonne suite
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
