bug en sortie de formulaire

[pat17]

Bonjour à tous,
Je sollicite votre expérience car je n'arrive pas à régler un petit problème.

En cliquant sur (recherche automatique) j'arrive bien à renseigner les données mais lorsque je clique sur (lancer la recherche) j'ai une "erreur 1004 impossible de lire la propriété match de la classe worksheet function"
merci de votre aide

lien du fichier
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[tototiti2008]

Re : bug en sortie de formulaire

Bonjour pat17,

Match renvoie une erreur si aucune valeur correspondante n'est trouvée
Il recherche la date dans la feuille Jours ouvrés que tu as oublié d'exclure dans ta recherche, d'où l'erreur

 

[pat17]

Re : bug en sortie de formulaire

merci tototiti2008 de ta rapidité
mais je ne trouve pas la solution
Que dois je faire??
merci

 

[tototiti2008]

Re : bug en sortie de formulaire

Re,

essaye de modifier

        If Worksheets(compteurFeuille).Name <> "FeuilleDeTravail" And Worksheets(compteurFeuille).Name <> "Menu" And Worksheets(compteurFeuille).Name <> "Cadre" Then

en

        If Worksheets(compteurFeuille).Name <> "FeuilleDeTravail" And Worksheets(compteurFeuille).Name <> "Menu" And Worksheets(compteurFeuille).Name <> "Cadre" and Worksheets(compteurFeuille).Name <>"Jours ouvrés" Then

 

[pat17]

Re : bug en sortie de formulaire

Après modifications toujours le même message.
Le débogage pointe sur les lignes de code suivantes qui se trouve juste après ta modification :

LigneDeDateDébut = Application.WorksheetFunction _
.Match(CLng(CDate(ComboDateDébut)), Worksheets(compteurFeuille).Range("A1:A368"), 0)

 

[tototiti2008]

Re : bug en sortie de formulaire

Re,

toujours le même message masi une ligne après, normalement... il y a du progrès 😉

bon finalement, mets ces lignes là dans CmBValider :

If Worksheets(compteurFeuille).Name <> "FeuilleDeTravail" And Worksheets(compteurFeuille).Name <> "Menu" And Worksheets(compteurFeuille).Name <> "Cadre" [COLOR=red]And Worksheets(compteurFeuille).Name <> "Jours ouvrés"[/COLOR] Then
    With Worksheets(compteurFeuille)
             LigneDeDateDébut = Application.WorksheetFunction _
             .Match(CLng(CDate(ComboDateDébut)), Worksheets(compteurFeuille).Range("A1:A368"), 0)
              ColonneDébut = Application.WorksheetFunction _
             .Match([COLOR=red]CDbl([/COLOR]CDate(HeureDeDébut[COLOR=red])[/COLOR]), Worksheets(compteurFeuille).Range("A3:Y3"), 1)
              LigneDeDatefin = Application.WorksheetFunction _
             .Match(CLng(CDate(ComboDateFin)), Worksheets(compteurFeuille).Range("A1:A368"), 0)
             ColonneFin = Application.WorksheetFunction _
             .Match([COLOR=red]CDbl([/COLOR]CDate(HeureDeFin[COLOR=red])[/COLOR]), Worksheets(compteurFeuille).Range("A3:Y3"), 1)

à la place de

If Worksheets(compteurFeuille).Name <> "FeuilleDeTravail" And Worksheets(compteurFeuille).Name <> "Menu" And Worksheets(compteurFeuille).Name <> "Cadre" Then
    With Worksheets(compteurFeuille)
             LigneDeDateDébut = Application.WorksheetFunction _
             .Match(CLng(CDate(ComboDateDébut)), Worksheets(compteurFeuille).Range("A1:A368"), 0)
              ColonneDébut = Application.WorksheetFunction _
             .Match((CDate(HeureDeDébut), Worksheets(compteurFeuille).Range("A3:Y3"), 1)
              LigneDeDatefin = Application.WorksheetFunction _
             .Match(CLng(CDate(ComboDateFin)), Worksheets(compteurFeuille).Range("A1:A368"), 0)
             ColonneFin = Application.WorksheetFunction _
             .Match(CDate(HeureDeFin), Worksheets(compteurFeuille).Range("A3:Y3"), 1)

 

[pat17]

Re : bug en sortie de formulaire

Super ca marche
merci à tous

 

[pat17]

Re : bug en sortie de formulaire

résolu
merci à tous