Bug dans test nom onglet

Bonjour à tous,

Sur le fichier joint de gestion de jours de congés ou d'heures sup

1) La création de fiches se passe bien

2) Le tri se passe bien

3) La surpression d'une fiche se passe bien SI je tape exactement le Nom et Prénom de la fiche à supprimer..

Mais si le nom n'est pas bien écrit, ma macro plante... normal car il n'existe pas ...

En fait je ne connais pas la syntaxe pour vérifier que le nom que je tape n'existe pas sur l'ensemble des feuilles créées.

Je voudrais simplement que si un nom tapé n'existe pas , une boite de dialogue s'ouvre pour me dire: Nom n'existe pas, tapez un nom valide.

Merci d'avance de votre aide.

Ericm

Bonsoir,

Ci-dessous une fonction générique permettant de vérifier l'existence d'un onglet.

Bonne soirée

Bouben

Public Function OngletExist(psNom As String) As Boolean

    Dim oSh As Worksheet
    Dim lErr As Long
    Dim sErr As String

    On Error Resume Next
    Set oSh = Worksheets(psNom)
    lErr = Err.Number
    sErr = Err.Description
    On Error GoTo 0

    If lErr = 0 Then
        OngletExist = True
    ElseIf lErr = 9 Then
        OngletExist = False
    Else
        MsgBox "Erreur n°" & lErr & vbCrLf & sErr, vbExclamation
    End If

    Set oSh = Nothing

End Function

Merci Bouben pour cette réponse éclaire!

Néanmoins peux me mettre ce morceau de code dans un fichier excel exemple afin que j'observe comment on s'en sert...

Tu sais je suis en apprentissage...

Merci encore

A plus.

Ericm

Bonsoir,

Ci-joint une nouvelle version à tester.

2 propositions :

• la première, en saisie libre + vérification que l'onglet existe
• la seconde (plus élaborée) : affiche directement la liste des onglets du classeur

Bonne soirée

Bouben

Bouben c'est tip top surtout la 2ème version

Que je retiens. !

Mais est ce que l'on peut faire pour que dans la liste déroulante les 2 premiers onglets "Gestion fiches" et "Fiche vierge" n'apparaissent pas .

Sinon je suis à peu près sûr que la secrétaire va faire l'erreur un jour de la zapper...

A plus

Et mille merci.

Ericm

Hello,

Ci joint la version 0.2 avec contrôle sur ces 2 onglets. A tester

Ah, les secrétaires

Bouben

Re Hello,

Je te remercie tout plein.

J'ai bien compris la modif sur ma macro, par contre ta macro avec liste déroulante??? pas facile à comprendre..

Sujet résolu.

Bonne continuation

Ericm