Bonjour à tous,
J'ai fais une UserForm avec une liste déroulante donc l'action du bouton est la suivante:
Le code ne fonctionne pas, j'ai fais plusieurs modifications dont une que je croyais la bonne, m'indiqué systématiquement que la feuille existait même quand c'était faux.
Des suggestions?
Merci.
J'ai fais une UserForm avec une liste déroulante donc l'action du bouton est la suivante:
Code:
ate Sub CommandButton1_Click()
If Sheets.Name = ComboBox1.Value Then
MsgBox "L'onglet existe déjà!", , "Info"
Else:
Sheets("Ref").Visible = True
Sheets("Ref").Select
Sheets("Ref").Copy After:=Sheets(Sheets.Count)
With Sheets("Ref (2)")
Cells(3, 4) = ComboBox1.Value
End With
Sheets("Ref").Select
ActiveWindow.SelectedSheets.Visible = False
Unload UserForm
End If
End Sub
Le code ne fonctionne pas, j'ai fais plusieurs modifications dont une que je croyais la bonne, m'indiqué systématiquement que la feuille existait même quand c'était faux.
Des suggestions?
Merci.