[VBA-E]verifier si une feuille est ouverte

verifier si une feuille est ouverte [VBA-E] - VB/VBA/VBS - Programmation

Marsh Posté le 02-05-2007 à 20:03:13    

bonjour a tous
je suis novice dans la programmation en VBA et je suis confronter a un probleme
 
dans ma macro j'aimerai suppprimer une feuille nommer "amplitude" qui contient un graph
pour cela pas de probleme
mon probleme est:  
lors de mon tout premier calcul cette feuille n'existe pas, il m'est donc impossible de la supprimer (ecxel m'affiche d'ailleur un message d'erreur)
j'aimerais savoir s'il est possible de faire un test pour voir si une feuille "amplitude" existe et si oui je la supprime  
 
si cela n'est pas possible auriez vous une option qui me permettrai de contourner ce probleme
 
je vous remercie de votre attention

Reply

Marsh Posté le 02-05-2007 à 20:03:13   

Reply

Marsh Posté le 02-05-2007 à 20:21:03    

aide toi de ca
 
For Each ws In Worksheets
    MsgBox ws.Name
Next ws

Reply

Marsh Posté le 02-05-2007 à 20:35:25    

ok
je vous remercie sincerment de votre reponse

Reply

Marsh Posté le 02-05-2007 à 20:54:55    

bonjour  
je viens de regareder attentivement votre reponse
je ne comprend pas le "ws"
 
pouvez vous m'eclaircir un peu la route svp
 
je vous remerci de votre attention

Reply

Marsh Posté le 02-05-2007 à 21:07:37    

oublier ma question
j'ai compris  
je vous remercie encore de votre reponse
 
pour les gens qui sont intereser par la reponse voici le code
[CODE]
 
Sub PP()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name = "amplitude" Then
    Worksheets("amplitude" ).Delete
    End If
Next
 
End Sub
 
[CODE]
 
 

Reply

Marsh Posté le 02-05-2007 à 21:08:11    

Bonjour,
ws est une notation courament utilisée pour une variable de type WorkSheet
 
Voici une fonction personnalisée qui permet de vérifier sur une feuille existe :
 

Code :
  1. Function WsExist(Nom$) As Boolean
  2.   On Error Resume Next
  3.   WsExist = Sheets(Nom).Index
  4. End Function


 
On l'utilise de cette manière :
 

Code :
  1. Sub test()
  2. If WsExist("amplitude" ) then MsgBox "la feuille existe" Else MsgBox "la feuille n'existe pas"
  3. End Sub


 
A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed