Faire une boucle Do Loop Until
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:
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 ? |