Discussion :

[nekcorp]

Bonjour,

Voila je souhaite à l'aide d'une macro vérifier l'existance d'une feuille nomé paye, si celle ci existe je souhaite la supprimer, sinon je souhaite la créer.

Voilà mon code qui fonctionne uniquement si ma feuille existe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    nom = ComboBox1.Value
 
    If Worksheets(nom).Name = nom Then
    Sheets(nom).Select
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
    Else
    'Creation de la feuille de données
     Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = nom
    End If

Lorsque la feuille n'existe pas le code se bloque dés la condition :

Code :

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

If Worksheets(nom).Name = nom Then

Comme la feuille n'existe pas il ne continu pas la suite du code.

Merci pour votre aide je bloque dessus depuis ce matin.

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Dim ws as worksheet
nom = ComboBox1.Value
for each ws in worksheets
  if ws.name=nom then
    ws.delete
    exit for
  end if
next ws
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = nom

[kiki29]

Salut,

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
Option Explicit
 
Private Function FeuilleExiste(ByVal sNom As String) As Boolean
Dim Ws As Worksheet
    On Error Resume Next
    Set Ws = Worksheets(sNom)
    If Err.Number <> 0 Then FeuilleExiste = False Else FeuilleExiste = True
End Function
 
Sub Tst()
Dim sNomFeuille As String
    On Error GoTo erreurs
    sNomFeuille = "Feuil555"
    If FeuilleExiste(sNomFeuille) Then
        Application.DisplayAlerts = False
        Sheets(sNomFeuille).Delete
        Application.DisplayAlerts = True
    Else
        Worksheets.Add(After:=Worksheets(Sheets.Count)).Name = sNomFeuille
    End If
    Exit Sub
erreurs:
    MsgBox Err.Number & vbCrLf & Err.Description
End Sub

[nekcorp]

Code :

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

1
2
3
4
5
6
7
8
9
Dim ws as worksheet
nom = ComboBox1.Value
for each ws in worksheets
  if ws.name=nom then
    ws.delete
    exit for
  end if
next ws
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = nom

Merci mercatog, ton code fonctionne à merveille