GererLesFeuillesAvecForm

Retour vers Excel

Gérer les feuilles avec un formulaire - 24 Sep 2007

But : Avoir le nom des feuilles dans une liste déroulante, ajouter, supprimer, modifier le nom des feuilles à l'aide de 3 boutons

 

'Déclarer une variable publique valable dans toutes les sub
Public NomF As String

Private Sub ComboBox1_Change()
  'Sélectionner une feuille
  If ComboBox1 <> "" Then
    NomF = ComboBox1
    Sheets(ComboBox1.Value).Select
  End If
End Sub

Private Sub ComboBox1_DropButtonClick()
'Remplir la liste déroulante
  Dim f As Worksheet
  ComboBox1.Clear
  For Each f In Worksheets
    ComboBox1.AddItem f.Name
  Next
End Sub

Private Sub CommandButton1_Click()
  'Ajouter une feuille
  Worksheets.Add After:=Worksheets(Worksheets.Count)
End Sub

Private Sub CommandButton2_Click()
  'Supprimer la feuille
  Dim f As Worksheet
  Application.DisplayAlerts = False
  reponse = MsgBox("êtes vous sûr d'effacer la feuille " & NomF)
  If reponse = 1 Then
    For Each f In Worksheets
      If f.Name = NomF Then
        f.Delete
      End If
   Next
  End If
  Application.DisplayAlerts = True
End Sub

Private Sub CommandButton3_Click()
  'Renommer la feuille
  Application.DisplayAlerts = False
  reponse = MsgBox("êtes vous sûr de renommer la feuille " & NomF)
  If reponse = 1 Then
    NomF = InputBox("Donnez moi le nouveu nom")
    ActiveSheet.Name = NomF
  End If
  Application.DisplayAlerts = True
End Sub

Cliquez ici pour télécharger le fichier exemple GererFeuilleViaformulaire

FIN