Discussion :

[laguernette]

Bonjour,

J'essaie de faire une macro où je cherche si un onglet existe et s'il n'existe pas, je le créé sinon je lui ajoute un numéro. mon soucis, c'est que ma macro tourne en boucle indéfiniment et je ne comprends pas pourquoi :

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
19
20
21
22
23
 
Public Function FeuilleExiste(ByVal StrNomFeuille As String) As Boolean
FeuilleExiste = Not (IsError(Evaluate("=" & StrNomFeuille & "!A1")))
End Function
 
Sub ARCHIVER()
Dim a As Integer
a = 1
If FeuilleExiste(Feuil1.Range("G2")) = False Then 'Si la feuille existe
    If FeuilleExiste(Feuil1.Range("G2") & "_" & a) = False Then 'Si la feuille existe
    Do
    a = a + 1
    Loop Until FeuilleExiste(Feuil1.Range("G2") & "_" & a) = True
    Sheets.Add.Name = Feuil1.Range("G2") & "_" & a
    Else
    Sheets.Add.Name = Feuil1.Range("G2") & "_" & a
    End If
Else
Sheets.Add.Name = Feuil1.Range("G2") 'Si la feuille n'existe pas
End If
End Sub
 
Pouvez-vous m'éclairer s'il vous plait ?

[mercatog]

Une autre approche semblable

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
Sub ARCHIVER()
Dim Nom As String, Suf As String
Dim i As Integer
 
Nom = Feuil1.Range("G2").Value
Do Until Not FeuilleExiste(Nom & Suf)
    i = i + 1
    Suf = "_" & CStr(i)
Loop
ThisWorkbook.Worksheets.Add.Name = Nom & Suf
End Sub
 
Private Function FeuilleExiste(ByVal Str As String) As Boolean
 
On Error Resume Next
FeuilleExiste = ThisWorkbook.Sheets(Str).Index > 0
End Function

[Invité]

Bonjour,

Une autre approche avec une boucle For each Next

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
19
20
21
22
23
24
 
Sub Archiver()
 
Dim NomFeuilleCherchee As String
Dim FeuilleTrouvee As Boolean
Dim Sh As Worksheet
 
NomFeuilleCherchee = Feuil1.Range("G2")
FeuilleTrouvee = False
 
For Each Sh In Worksheets
   Select Case Mid(Sh.Name, 1, Len(NomFeuilleCherchee))
        Case NomFeuilleCherchee
              FeuilleTrouvee = True
              Exit For
   End Select
Next Sh
 
If FeuilleTrouvee = False Then
    Sheets.Add.Name = NomFeuilleCherchee & "_" & CStr(Sheets.Count + 1)
    ActiveSheet.Move after:=Sheets(Sheets.Count)
End If
 
End Sub

Cordialement.

[laguernette]

Solution testée et approuvée ! Merci

[eriiic]

Bonjour,

et une proposition sans boucle :

Code :

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

1
2
3
4
Function existSheet(nomFeuille As String) As Long
    On Error Resume Next
    existSheet = Sheets(nomFeuille).Index
End Function

Si la feuille existe on a son index, 0 (FAUX) sinon.
eric

edit: je viens de voir que mercatog avait fait une proposition semblable, désolé pour le doublon.