Création d'une feuil avec valeur celluleRésolu

Question

Bonjour,

Je rencontre un léger détail dans le script que je ne trouve pas la solution.

J'ai besoin de votre aide pour ça.

Voici le script:

Private Sub CommandButton4_Click()
                                                              'Fait une copie de la feuil Tableau Final
Sheets("Tableau Final").Select
    Sheets("Tableau Final").Copy After:= Sheets("Tableau Final")
      Range("A1").Select

                                                                'Vérifie s'il n'y à pas déja une feuil avec le même nom 
Dim Nom, Onglet As String
  Nom  = ActiveSheet.Range("I4").Value
     Onglet = Nom
        If Not IsEmpty(Nom) Then
      On Error GoTo mon_message
    ActiveSheet.Name = [Onglet]
End If
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")

End Sub

Ce que je voudrais, c'est qu'il vérifie s'il y a un onglet du même nom avant et s'il n'y en a pas, là il crée la nouvelle feuille. Sinon il me dit LA FEUILLE EXISTE DÉJA.

Merci pour votre aide

avyrex1926 · Accepted Answer

Finallement j'ai été de cette façon pour le faire:

Private Sub CommandButton4_Click()
Sheets("Tableau Final").Select
    Sheets("Tableau Final").Copy After:=Sheets("Tableau Final")
    Range("A1").Select

Dim Nom, Onglet As String
Nom = ActiveSheet.Range("I4").Value
Onglet = Nom
If Not IsEmpty(Nom) Then
    On Error GoTo mon_message
    ActiveSheet.Name = [Onglet]

    
ACCUEIL.Hide
End If
Exit Sub
mon_message:
attention = MsgBox("La semaine existe déjà", vbOKOnly, "Attention")

Application.DisplayAlerts = False
Sheets("Tableau Final (2)").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Tableau Final").Select
Range("I4").Select
ACCUEIL.Hide

    
End Sub

Merci!

Création d'une feuil avec valeur cellule

1 réponse

Votre réponse

Discussions similaires