Recherche de feuille

[Eigle]

Bonjour, je suis actuelement entrain de concevoir un macro sous excel 2000 sur windows xp, mon probléme actuel es que j'ai des feuilles de base qui sont parfois crée ou non, j'ai donc essai de faire une recherche pour savoir si le feuille dont j'ai besion est crée ou non et si elle ne l'ai pas la crée .

[COLOR="Red"]If Sheet = "MAGSER" Then[/COLOR]
    
    Else
    
        Sheets.Add.Name = "MAGSER"

End If

If Sheet = "Empl_Inconnu" Then
    
    Else
    
        Sheets.Add.Name = "Empl_Inconnu"

End If

If Sheet = "CANM07" Then
    
    Else

        Sheets.Add.Name = "CANM07"

End If

If Sheet = "MAGINT" Then
    
    Else

        Sheets.Add.Name = "MAGINT"

End If

If Sheet = "CONTEN" Then
    
    Else

        Sheets.Add.Name = "CONTEN"

End If

If Sheet = "MAGCEN" Then
    
    Else

        Sheets.Add.Name = "MAGCEN"

End If

If Sheet = "TRANSI" Then
    
    Else

        Sheets.Add.Name = "TRANSI"

End If

Aprés avoir fait des recherches et avoir tenté de nombreux resultats je n'ai toujours pas reussis a faire fonction cette partie de la macro , merci d'avance .

 

[Dull]

Re : Recherche de feuille

Salut Eigle et Bienvenu sur le Forum


Met dans un module a part

Function FeuilExist(Nom As String) As Boolean[COLOR=Green] 'myDearFriend![/COLOR]
    On Error Resume Next
    FeuilExist = Not Sheets(Nom) Is Nothing
End Function

et dans ton Code

If FeuilExist("MAGSER") Then [COLOR=Navy]TonCode1 [/COLOR]Else Sheets.Add.Name = "MAGSER"
If FeuilExist("Empl_Inconnu") Then [COLOR=Navy]TonCode2 [/COLOR] Else Sheets.Add.Name = "Empl_Inconnu"
[COLOR=Green]'Ainsi de suite pour les autres feuilles[/COLOR]

Envois ton Fichier si tu as des Problèmes

Bonne Journée

 

[Eigle]

Re : Recherche de feuille

Merci beaucoup de ton aide, exelente expliquation trés clair et rapide !^^
Tout marche a merveille !