Discussion :

[crebuffet]

Bonjour,


Je souhaite supprimer des onglets après avoir traité un certains nombres d'opérations.
J'ai créer une macro mais si j'active de nouveau la macro, forcement elle plante (puisque les onglets n'existent plus). Je souhaiterais avoir un avertissement qui me dit que les onglets n'exitent pas avec une boite de dialogue.
Les onglets s'appellent "od & od1".

merci

[Runsh63]

Salut Crebuffet,

Ci-dessous un code que j'ai dans une macro et qui me vérifie l'existence d'un onglet. A adapter et insérer dans le module Worksheet à l'ouverture.

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
Private Sub Workbook_Open()
 
Dim WS As Worksheet
Dim WSname As String
Dim Found As Boolean
 
WSname = "od"
 
For Each WS In Worksheets
  If WS.Name = WSname Then
     Found = True
     Sheets("od").Select
  End If
Next
 
  If Not Found Then
    MsgBox "Feuille '" & WSname & "' non trouvée !, "Vérification de l'existence de l'onglet od"
  End If
 
End Sub

Voilà voilà, fait de même avec od1 et ça devrait être ok !

[Sclarckone]

Voilà voilà, fait de même avec od1 et ça devrait être ok !

Tu peux même le faire en une fois en changeant:

Code :

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

If WS.Name = WSname Then

par:

Code :

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

If WS.Name Like "od*" Then

[Runsh63]

Merci pour cette "feinte" Sclarckone (décidemment toujours pas avare en bon tuyaux)

[jfontaine]

Bonjour,

Une solution en utilisant la gestion d'erreur

Code :

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

1
2
3
 
On Error Resume Next
Sheets("feuil2").Delete