Discussion :

[Ken.L]

Bonjour!

Ayant fais une macro afin de sortir un graphique sur un nouveau "worksheet" (appellée "Graphique") à partir d'une table donnée, j'ai cependant un problème lorsque l'on relance cette macro alors que celui-ci existe déjà...

Il y a t'il un moyen de dire "Si worksheet "Graphique" existe déja, créer Graphique2" et ainsi de suite!

Merci pour vos réponses

[ouskel'n'or]

Non, mais si tu n'as qu'une seule feuille "Graphique", tu peux faire

Code :

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

1
2
3
4
5
For Each LaFeuille In ActiveWorkbook.Sheets
    Application.DisplayAlerts = False
     If InStr(LCase(LaFeuille.Name), "graphique") <> 0 Then LaFeuille.Delete
    Application.DisplayAlerts = True
Next

Edit
Application.DisplayAlerts pour ne pas avoir de demande de confirmation

[SfJ5Rpw8]

....
Il y a t'il un moyen de dire "Si worksheet "Graphique" existe déja, créer Graphique2" et ainsi de suite!...

oui ... :


en t'inspirant du code Existence d'un onglet Excel ..

tu te crée une petite fonction de test d'existence d'une feuille (dans classeur courant) :

Code :

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

1
2
3
4
5
6
7
 
Function FeuilleExiste(stNomFeuille As String)
 On Error Resume Next
 Set Ws = Sheets(stNomFeuille)
 FeuilleExiste = Not (Ws Is Nothing)
 Set Ws = Nothing
End Function

puis à l'aide d'une boucle tu recherche le premier nom libre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ChecheFeuille()
Dim stNomFeuille As String
Dim i As Integer
Const RACINE = "Graphique"
stNomFeuille = RACINE
i = 1
While FeuilleExiste(stNomFeuille)
 i = i + 1
 stNomFeuille = RACINE & i
Wend
MsgBox "On prends le nom : " & stNomFeuille
 
End Sub

[Ken.L]

Excellent!


et désolé pour avoir skippé ce post, j'avais fais mes petites recherches mais pas assez apparement...


Encore merci pour vos réponses! (aussi rapides )