VBA Condition : Si une feuille portant le nom d'une cellule exis

Fermé

Feuille

simplyizi - Modifié par simplyizi le 28/07/2016 à 09:12
simplyizi - 28 juil. 2016 à 13:47

Bonjour,
Je dispose d'une fichier qui créé une nouvelle feuille avec le nom contenu dans la cellule E5 de la feuille saisie lorsque j'appuie sur un bouton.
Je voudrais une macro capable d'interdire la création d'une nouvelle feuille qui a déjà le nom inscrit dans la cellule E5.
Par exemple si dans mon classeur j'ai déjà une feuille nommée 12345 , et que dans ma cellule E5 je rentre 12345 et j'appuie sur le bouton OK, qu'il me mette un msgbox et un exit Sub.

J'ai déjà essayé les deux macros suivantes et cela ne marche pas

    Dim i As Integer
For i = 1 To Worksheets.Count
    If Worksheets(i).Name = Sheets("Saisie").Range("E5").Content Then
    MsgBox "Mettre '-2' a la fin du numero d'essai ! "
    Exit Sub
    End If
Next i


Dim Sh As Variant

For Each Sh In Worksheets
If Sheets("Saisie").Range("E5").Content = Sh.Name Then
MsgBox "Mettre '-2' a la fin du numero d'essai ! "
End If
Next
Exit Sub

Merci à ceux qui prendront le temps de m'aider

A voir également:

Vba vérifier si une feuille existe
Verifier un lien - Guide
Excel vérifier si une valeur existe dans une colonne ✓ - Forum Excel
Cette annonce n'existe plus facebook - Forum Facebook
Vérifier si mot de passe piraté - Guide
Excel reporter des données sur une autre feuille avec conditions - Forum Excel

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
28 juil. 2016 à 09:28

Bonjour,

Avec une fonction booléenne et le gestionnaire d'erreur :

Function FeuilleExiste(wk As Workbook, stFeuille As String) As Boolean
 On Error Resume Next
 FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing)
End Function

cf : https://www.developpez.net/forums/d269391/logiciels/microsoft-office/excel/macros-vba-excel/vba-e-feuille-existe/

simplyizi
28 juil. 2016 à 09:33

Bonjour, déjà essayé et cela ne marche pas. J'ai déjà parcouru tous les forums qui proposaient une solution et aucune ne marche, c'est pour cela que je suis venu demander de l'aide ici

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > simplyizi
28 juil. 2016 à 09:43

Quel est ton code d'appel de cette fonction?

Réponse 2 / 3

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
28 juil. 2016 à 10:04

Bonjour Exis, bonjour le forum.

Je ne sais pas d'où tu sors Content mais pour moi ce mot clé n'existe pas... Je te propose la macro événementielle Change ci-dessous, à placer dans le code de l'onglet Saisie :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim O As Worksheet 'déclare la variable O (Onglets)

If Target.Address <> "$E$5" Then Exit Sub 'si le changement a lieu ailleurs qu'en E5, sort de la procédure
For Each O In Sheets 'boucle sur tous les onglets du classeur
    If O.Name = Target.Value Then 'condition : si le nom de l'onglet est égal à la valeur de la cellule E5
        MsgBox "Cet onglet existe déjà ! Veuillez saisir un autre nom." 'message
        Target.Select 'sélectionne la cellule E5
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next O 'prochain onglet de la boucle
Sheets.Add after:=Sheets(Sheets.Count) 'ajoute un onglet en dernière position (à adapter à ton cas)
ActiveSheet.Name = Target.Value 'renomme l'onglet
End Sub

simplyizi
28 juil. 2016 à 10:15

Bonjour, merci de votre réponse.
avec VALUE a la place de CONTENT , lorsque j'appuie sur le bouton OK, rien ne se passe. Avec CONTENT il m'affichait le msgbox , mais tout le temps et ne créait pas de nouvelle feuille.
J'ai essayé votre méthode et cela ne marche pas, au lieu de de bloquer la création d'un nouvel onglet, il créée juste un nouvel onglet avec le numéro (2)
Je précise que le code de création d'un nouvel onglet a partir du Bouton OK se trouve dans un module.
Merci de ton aide en tout cas

Réponse 3 / 3

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
Modifié par ThauTheme le 28/07/2016 à 12:19

Re,

Forcément ça ne peut pas marcher ! Le code que je t'ai proposé agit automatiquement quand tu édites la cellule E5 de l'onglet Saisie. C'est pour cela que je t'ai précisé qu'il fallait le mettre dans le composant de cet onglet Saisie. Pour cela, copie le code que je t'ai proposé, clique avec le bouton droit en bas sur le nom de l'onget Saisie et choisit l'option Visualiser le code, Colle le code...
L'avantage est que tu n'a plus besoin d'un bouton, le code agit automatiquement.

Toutefois, si tu désires conserver le bouton, utilise le code ci-dessous à appliquer au bouton :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglets)
Dim N As String 'déclare la variable N (Nom)

N = Sheets("Saisie").Range("E5")
If N = "" Then Exit Sub 'si N est vide, sort de la procédure
For Each O In Sheets 'boucle sur tous les onglets du classeur
    If O.Name = N Then 'condition : si le nom de l'onglet est égal à la valeur de la cellule E5
        MsgBox "Cet onglet existe déjà ! Veuillez saisir un autre nom." 'message
        Sheets("Saisie").Select 'sélectionne l'onglet "Saisie"
        With Range("E5") 'prend en compte la cellule C5
            .Select 'sélectionne
            .Value = "" 'efface le contenu
        End With 'fin de la prise en compte de la cellule E5
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next O 'prochain onglet de la boucle
Sheets.Add after:=Sheets(Sheets.Count) 'ajoute un onglet en dernière position (à adapter à ton cas)
ActiveSheet.Name = N 'renomme l'onglet
End Sub

À plus,
ThauTheme

simplyizi
28 juil. 2016 à 13:47

Ca marche parfaitement, merci !

Discussions similaires

Rechercher dans une autre feuille

Macro pour enregistrer une feuille excel d'un classeur

Insérer lien document Excel

Copier/coller d'un classeur à un autre

Copier-coller en colonne sans bouger la mise en forme des lignes

Comparer deux colonnes de deux feuilles excel avec mise jour

Discussions similaires

Newsletters