Macro tester si feuille existe, si non la créer

[fredh]

Bonjour a tous

J'ai une macro qui tourne deja.
Il faudrait que je rajoute dans une boucle un test pour voir si la feuille "index" existe. Si elle existe alors faire action si elle n'existe pas alors créer la feuille "index" puis faire les actions.....

teste si feuille existe :

?????

creation de la feuille :

Worksheets.Add.Name = "Index"

Actions :

    If Sheets(nn).Range("G" & nnn) = "Strom 0A" Then
        Sheets(nn).Range("J" & nnn).Copy Destination:=Sheets("index").Range("B2:B" & Range("B65536").End(xlUp).Row)
    End If
    If Sheets(nn).Range("G" & nnn) = "Strom 0A LPM" Then
        Sheets(nn).Range("J" & nnn).Copy Destination:=Sheets("index").Range("C2:C" & Range("C65536").End(xlUp).Row)
    End If

Merci dàvance pour vos sugestions et aide

@*

 

[pierrejean]

Re : Macro tester si feuille existe, si non la créer

bonjour fredh

A tester

Sub test()
Dim n As Integer
Dim trouve As Boolean
For n = 1 To Sheets.Count
 If Sheets(n).Name = "Index" Then
  trouve = True
  Exit For
 End If
Next n
If Not trouve Then Sheets.Add.Name = "Index"
'.........
Actions
End Sub

 

[fredh]

Re : Macro tester si feuille existe, si non la créer

Bonsoir Pierrejean

Ca fait plaisir de te relire!
Comme d'habitude tu resoud mais probleme plus rapidement que l'eclair!

merci beaucoup Pierrejean et @+

 

[Staple1600]

Re : Macro tester si feuille existe, si non la créer

Bonsoir

edit 2: pour coller plus à ta question

Sub test()
Dim F As Worksheet
On Error Resume Next
Set F = Sheets("Index")
If F Is Nothing Then
Sheets.Add
ActiveSheet.Name = "Index"
Call Actions
Else
Call Actions
End If
End Sub
Sub Actions()
MsgBox "actions"
End Sub

Une autre manière
edit 1: (houp j'ai lu trop vite là)
Ca nre réponds qu'a question de la crétion de la feuille

Sub test()
Dim F As Worksheet
On Error Resume Next
Set F = Sheets("Index")
If F Is Nothing Then Sheets.Add:ActiveSheet.Name = "Index"
End Sub

 

[riansrians18]

Re : Macro tester si feuille existe, si non la créer

Bonjour,
J'avais le même soucis.
Merci Pierrejean ta fonction marche parfaitement.