Vérifier l'existance d'une feuille

[Tophe2]

Bonjour le forum
Suite à l'aide reçu sur le forum j'essai d'ajouter une feuille au code proposé pour cela OK.
- Mon PB c'est comment faire pour vérifier l'existance ou non de cette feuille (Toto).
- Si elle existe tu efface le contenu sinon tu l'as crée.
ci joint le code de porcinet82

Sub test2()
Dim i As Integer, bool As Boolean
bool = True
Sheets.Add.Name = "Toto"
Sheets("Recherche1").Activate
With Sheets("Toto")
.Cells.Delete Shift:=xlUp
End With
For i = 1 To 50
If Rows(i).Hidden = False Then
If bool = True Then
Rows(i).Copy Destination:=Sheets("Toto").Rows(Sheets("Toto").Range("A65536").End(xlUp).Row)
bool = False
Else
Rows(i).Copy Destination:=Sheets("Toto").Rows(Sheets("Toto").Range("A65536").End(xlUp).Row + 1)
End If
End If
Next i
Application.DisplayAlerts = False
Sheets("Recherche1").Delete
Sheets("Toto").Activate
End Sub

Cordialement
Christophe.

 

[JCGL]

Re : Vérifier l'existance d'une feuille

Bonjour,

Peux-tu essayer avec ceci :

Option Explicit

Sub test2()
Dim i As Integer, bool As Boolean
bool = True

Application.ScreenUpdating = False
Application.DisplayAlerts = False


On Error Resume Next
Sheets("Toto").Delete
Sheets.Add.Name = "Toto"
Sheets("Recherche1").Activate
With Sheets("Toto")
.Cells.Delete Shift:=xlUp
End With
For i = 1 To 50
If Rows(i).Hidden = False Then
If bool = True Then
Rows(i).Copy Destination:=Sheets("Toto").Rows(Sheets("Toto").Range("A65536").End(xlUp).Row)
bool = False
Else
Rows(i).Copy Destination:=Sheets("Toto").Rows(Sheets("Toto").Range("A65536").End(xlUp).Row + 1)
End If
End If
Next i
Application.DisplayAlerts = False
Sheets("Recherche1").Delete
Sheets("Toto").Activate
Application.DisplayAlerts = True
End Sub

A+

 

[Tophe2]

Re : Vérifier l'existance d'une feuille

Bonjour JCGL
Ta proposition foinctionne correctement MERCI, cependant j'aurai bien aimé savoir comment vérifier l'existance d'une feuille.

- Dans ta proposition on supprime la feuille et on la crée juste après, pour ce travail là cela me convient mais pour ma culture perso au cas ou (peut pour juste vérifier et en créer une autre d'un nom différent).

Cordialement.
Christophe.

 

[myDearFriend!]

Re : Vérifier l'existance d'une feuille

Bonjour Tophe2, JCGL, le Forum,

...j'aurai bien aimé savoir comment vérifier l'existance d'une feuille...

Une solution simple avec une fonction personnalisée :

[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]
[COLOR=NAVY]Function[/COLOR] FeuilExist(Nom [COLOR=NAVY]As String[/COLOR]) [COLOR=NAVY]As Boolean[/COLOR]
[COLOR=GREEN]'myDearFriend![/COLOR]
    [COLOR=NAVY]On Error Resume Next[/COLOR]
    FeuilExist = [COLOR=NAVY]Not[/COLOR] Sheets(Nom) [COLOR=NAVY]Is Nothing
End Function[/COLOR][/SIZE]

Et pour l'utiliser, par exemple :

[SIZE=2][COLOR=NAVY]Sub[/COLOR] Test()
[COLOR=NAVY]Dim[/COLOR] TestFeuil [COLOR=NAVY]As String[/COLOR]
    TestFeuil = "MaFeuille"   [COLOR=GREEN]'...à adapter[/COLOR]
    MsgBox "La feuille " & TestFeuil & IIf([B]FeuilExist(TestFeuil)[/B], " existe.", " n'existe pas.")
[COLOR=NAVY]End Sub[/COLOR][/SIZE]

Cordialement,

 

[Tophe2]

Re : Vérifier l'existance d'une feuille

Bonjour myDearFriend!

Comment adapter ton code pour que:
- Si la feuille n'existe pas tu m'en crées une et si elle existe, que l'on me propose de la garder ou non si oui (garder) il faut créer une autre feuille.
Cordialement
Christophe.

 

[JCGL]

Re : Vérifier l'existance d'une feuille

Re,
Salut mDF,

Tophe : de toute façon ton code efface la feuille Toto...

Tu as sûrement une idée derrière la tête 😕

A+

 

[Tophe2]

Re : Vérifier l'existance d'une feuille

Re JCGL

Quand je parle du code c'est celui de myDearFriend! qui me propose une solution avec une vérification de feuille mais je souhaite si possible connaitre l'écriture du code pour ma demande cidessus.

J'essai avec plusieurs possibilités afin de choisir la meilleur solution.

Cordialement
Christophe.

 

[JCGL]

Re : Vérifier l'existance d'une feuille

Re,

Peux-tu essayer avec :

Option Explicit 'myDearFriend!

Function FeuilExist(Nom As String) As Boolean
On Error Resume Next
FeuilExist = Not Sheets(Nom) Is Nothing
End Function
Sub Test()
Dim TestFeuil As String
TestFeuil = "Feuil1" '...à adapter
MsgBox "La feuille " & TestFeuil & IIf(FeuilExist(TestFeuil), " existe.", " n'existe pas.")
If FeuilExist(TestFeuil) = False Then Sheets.Add.Name = TestFeuil

End Sub

A+

Edition : J'avais bien compris que tu cherchais à "arranger" le code de mDF arf

 

[myDearFriend!]

Re : Vérifier l'existance d'une feuille

Re,

JCGL a totalement raison.

Par ailleurs :

...si oui (garder) il faut créer une autre feuille...

en créer une OUI, mais avec quel nom ?

Ce n'est pas très clair ton histoire...

Cordialement,

 

[JCGL]

Re : Vérifier l'existance d'une feuille

Re,

Un essai avec fichier joint

mDF va sûrement le réduire à trois lignes arf

A+

Edition : la nouvelle feuille se place en dernier, ça fait plus propre niark...

 

[gbinforme]

Re : Vérifier l'existance d'une feuille

Bonjour JCGL, le forum,

mDF va sûrement le réduire à trois lignes

Si je puis me permettre, comme tu as l'air d'attendre le retour du boomerang...

Pas facile de réduire et personnellement, je ne vois que ceci, pour éviter la macro événementielle.

If FeuilExist(TestFeuil) = False Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = TestFeuil

C'était juste pour le défi lancé...

cordialement.

 

[JCGL]

Re : Vérifier l'existance d'une feuille

Re,
Salut gbimforme,

Parfait pour moi, j'achète 😉

A+

PS : Et Tophe2, il en pense quoi ???