Condition existence onglet

Résolu
maxxikilla -  
Maxxikilla Messages postés 40 Statut Membre -
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

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  2. Maxxikilla Messages postés 40 Statut Membre
     
    merci beaucoup, tout fonctionne !
    0