Discussion :

[DocCouz]

Bonjour à tous,

Je suis newbie en VBA et suis face à un problème que je n'arrive pas à comprendre...

J'ai créé une feuille excel que j'ai appelé "vierge", avec une mise en forme particulière et des formules.

Sur la feuille suivante que j'ai appelé "Page de Garde", je rentre des données dans des cellules, et lorsque je clique sur un bouton, une macro créée une nouvelle feuille à la suite des existantes, et rempli un certain nombre d'informations issues de la page de garde, et je renomme le nom de la feuille avec l'une de ces données (un numéro de projet en l'occurrence).

Cependant, si une feuille existe déjà avec le même nom, Excel me met une fenêtre qui m'indique qu'une feuille existe déjà avec le même nom.

Afin d'éviter ce problème, je fais une petite boucle for, avec un test conditionnel pour m'assurer qu'il n'existe pas déjà une feuille avec le même nom.

Mais c'est là que ça plante... je vous laisse le code de cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'boucle pour vérifier qu'aucun onglet ne porte déjà le même nom
    i = 2
    For i = 2 To NB_ONGLETS
    Sheets(i).Select
    If Sheets(i).Name = project_number Then
    Call MsgBox("Attention, ce numéro de projet existe déjà !", vbCritical, Erreur)
    End If
    Next i

où NB_ONGLETS est le nombre d'onglets dans le classeur obtenu de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NB_ONGLETS = Sheets.Count

et "project_number", une valeur lue dans les données entrées dans la "Page de Garde" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'copie du numéro de projet dans une variable déclarée
    Sheets("Page de Garde").Select
    Range("E8").Select
    project_number = ActiveCell.Value

Sauf qu'arrivé sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(i).Select

, excel plante avec le message d'erreur : "Erreur d'execution 1004 - Erreur définie par l'application ou par l'objet"

Est ce que qqn a une idée ?

Merci !

Guillaume

[aalex_38]

Bonjour,

Un exemple perso à asapter qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim F1 As Worksheet 
 
' ------------------------------- ' 
' Existence de l'onglet 
' ------------------------------- ' 
For Each F1 In Sheets 
    If F1.Name = MySheet Then 
                MsgBox "La feuille " & F1.Name & " existe déja", vbInformation, "Classeur " & ThisWorkbook.Name 
            Exit Function ' ou exit sub 
      End If 
Next
' ------------------------------- ' 
' Ajout de l'onglet 
' ------------------------------- ' 
Set F1 = Sheets.Add(After:=Sheets(Sheets.Count)) 
F1.Name = MySheet 
 
Next

[Pierre Fauconnier]

Bonsoir

Je te conseille de créer une petite fonction perso

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function OngletExiste(Nom As String) As Boolean
    Dim sh As Object
 
    For Each sh In Sheets
        If UCase(sh.Name) = UCase(Nom) Then
            OngletExiste = True
            Exit For
        End If
    Next sh
End Function

Tu capitalises ainsi du code, et tu utilises cette fonction au sein de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if ongletexiste("Feuil1") then
    Msgbox "Ce projet existe déjà"
    else
    ' Création de l'onglet
    ...
End If

[DocCouz]

Salut !

Merci à tous les deux pour vos réponses. J'ai finalement utilisé la solution de Pierre, avec une fonction.

Bonne soirée !

Guillaume