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

fredh

XLDnaute Occasionnel
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 :
Code:
?????
creation de la feuille :
Code:
Worksheets.Add.Name = "Index"
Actions :
Code:
    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

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

bonjour fredh

A tester

Code:
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

XLDnaute Occasionnel
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

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

Bonsoir

edit 2: pour coller plus à ta question
Code:
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
Code:
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
 
Dernière édition:

riansrians18

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

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas