[VBA-E]feuille créée sous condition

Version imprimable

24/02/2006, 14h33
Angel79

[VBA-E]feuille créée sous condition

Bonjour,

je voudrais savoir s'il est possible de demander dans le début d'une macro :

si la feuille nommée "1" existe alors je passe à la macro 2 (qui met à jour les données), sinon j'exécute la macro 3 (qui crée les feuilles).

Si oui, comment procéder?

Merci :)

Bonjour

Tu pourrais utiliser la gestion d'erreur, mais pour ma part je préfère me créer une fonction perso

Code:

1
2
3
4
5
6
7
8
9
10
Function Feuille_Existe(Nom As String) As Boolean
    Dim Feuille As Object
 
    For Each Feuille In Sheets
        If UCase(Feuille.Name) = UCase(Nom) Then
            Feuille_Existe = True
            Exit Function
        End If
    Next Feuille
End Function

Dans ta macro, tu l'utilises ainsi

Code:

1
2
3
4
5
If Feuille_Existe("feuil1") then
    Mise_A_Jour
    Else
    Creer_Feuille
endif

Ok?

Pierre Fauconnier

24/02/2006, 15h11
Angel79

oh merci c'est génial, ça m'avance beaucoup dans mon travail!!

:merci:

problème rapidement réglé.