Renommer une feuille

del8679 -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention - 29 déc. 2012 à 18:36

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

A voir également:

Renommer une feuille
Renommer des fichiers en masse - Guide
Renommer iphone - Guide
Bruler une feuille de laurier - Guide
Comment supprimer une feuille sur word - Guide
Feuille de pointage excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

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

Discussions similaires

Feuille de score belote

Renommer un contact sur insta

MSDOS - Renommer partiellement plusieurs fichiers

Votre réponse

Discussions similaires