Condition existence onglet

Résolu/Fermé
maxxikilla - Modifié par maxxikilla le 17/07/2013 à 10:37
Maxxikilla Messages postés 40 Date d'inscription mardi 4 juin 2013 Statut Membre Dernière intervention 23 juillet 2013 - 17 juil. 2013 à 12:12
Bonjour à tous,

J'ai un petit soucis avec la fonction suivante:


Function IsExist(toto As String) As Boolean
Dim myname As String
On Error GoTo Probleme
myname = Sheets(toto).Name
IsExist = True
Exit Function
Probleme:
IsExist = False
End Function



Elle vérifie l'existence d'un onglet.

Sub test()

Dim rep As Boolean
rep = IsExist("COMMANDE")

If rep = True Then
MsgBox ("Eatal Error #404")
End If

End Sub


Si je procède de cette facon, ca fonctionne.
J'aimerai faire en sorte que le contenu que IsExist("------") soit à l'initiative de l'utilisateur.

C'est à dire je voudrai avoir ceci


Sub test()

Dim rep As Boolean
rep = IsExist(cells(14,6).value)

If rep = True Then
MsgBox ("Eatal Error #404")
End If

End Sub


J'ai bien conscience que la fonction prend en variable un string... Ma question est la suivante Comment récupérer le contenu de la cellule F14 pour la mettre en paramètre de la fonction Isexist ?

Merci d'avance pour vote aide

2 réponses

f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 1 708
17 juil. 2013 à 11:27
Bonjour,

indiquez cellule de quel onglet:

Sub test()
    Dim rep As Boolean 'true: existe, false: n'existe pas

    onglet = Worksheets("feuil1").Cells(14, 6)
    rep = IsExist(Worksheets("feuil1").Cells(14, 6).Value)

    If rep = False Then
        MsgBox ("Fatal Error #404")
    Else
        MsgBox ("Cet onglet: " & onglet & " existe")
    End If

End Sub


Bonne suite
1
Maxxikilla Messages postés 40 Date d'inscription mardi 4 juin 2013 Statut Membre Dernière intervention 23 juillet 2013
17 juil. 2013 à 12:12
merci beaucoup, tout fonctionne !
0