Vérifier l'existance d'une feuille

Tophe2 · 20 Août 2007

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 · 20 Août 2007

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 · 20 Août 2007

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! · 20 Août 2007

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

Bonjour Tophe2, JCGL, le Forum,

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

Une solution simple avec une fonction personnalisée :

Code:

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

Code:

[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 · 20 Août 2007

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 · 20 Août 2007

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 · 20 Août 2007

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 · 20 Août 2007

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! · 20 Août 2007

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 · 20 Août 2007

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 · 20 Août 2007

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

Bonjour JCGL, le forum,

JCGL à dit:
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.

Code:

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

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

cordialement.

JCGL · 20 Août 2007

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 ???

Vérifier l'existance d'une feuille

Tophe2

XLDnaute Impliqué

JCGL

XLDnaute Barbatruc

Tophe2

XLDnaute Impliqué

myDearFriend!

XLDnaute Barbatruc

Tophe2

XLDnaute Impliqué

JCGL

XLDnaute Barbatruc

Tophe2

XLDnaute Impliqué

JCGL

XLDnaute Barbatruc

myDearFriend!

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

gbinforme

XLDnaute Impliqué

JCGL

XLDnaute Barbatruc

Discussions similaires

Vérifier l'existance d'une feuille

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency