Débutant [VB pour XL] test de l'existence d'un page

Résolu
Magicien Blanc
Messages postés
78
Date d'inscription
lundi 25 juillet 2005
Statut
Membre
Dernière intervention
22 août 2010
- 8 août 2005 à 19:32
Magicien Blanc
Messages postés
78
Date d'inscription
lundi 25 juillet 2005
Statut
Membre
Dernière intervention
22 août 2010
- 8 août 2005 à 22:19
J'ai écrit un petit truc (qui marche) pour tester si une page existe mais je me demandais si il n'y avait pas plus simple pour faire un truc aussi utile et fréquent que ça.
voil mon chef d'oeuvre !!! :
<= = = = = = >
Dim pg As Object
cd = 0
For Each pg In Worksheets
If pg.Name <> "Archive" Then
cd = 1
Else
cd = 0
Exit For
End If
Next pg
If cd = 1 Then
ActiveWorkbook.Sheets.Add
ActiveWorkbook.ActiveSheet.Name = "Archive"
Sheets("Archive").Move After:=Sheets("Dépenses - Disponible")
End If
< = = = = = = >
Merci

2 réponses

Magicien Blanc
Messages postés
78
Date d'inscription
lundi 25 juillet 2005
Statut
Membre
Dernière intervention
22 août 2010

8 août 2005 à 22:19
Je te remercie galopin01 ! Je connaissais pas le If not et le "on error resume next". En plus d'être plus court, ça me fait apprendre des choses !!
3
galopin01
Messages postés
133
Date d'inscription
lundi 4 octobre 2004
Statut
Membre
Dernière intervention
14 octobre 2011
1
8 août 2005 à 22:14
Bonsoir,
Sub Test()
Dim Y As Boolean
On Error Resume Next
Y = Sheets("Archive").Index
If Not Y Then
Sheets.Add.Name = "Archive"
Sheets("Archive").Move After:=Sheets("Dépenses - Disponible")
End If
End Sub
A+
0