Discussion :

[Angel79]

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

[Pierre Fauconnier]

Bonjour

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

Code :

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

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 :

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

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

Ok?

Pierre Fauconnier

[Angel79]

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



problème rapidement réglé.