[VBA] Objet requis ??? Fermé

Question

Bonjour,
Je reviens de nouveau vers vous pour une erreur dans mon programme. Celui-ci me donne l'erreur "Objet requis" et je n'arrive pas a comprendre pourquoi.
Le programme est censé analyser certaines cellules sur différentes feuilles d'un classeur (ce serait super si il n'avait pas besoin de l'ouvrir)
Malheuresement, dès la ligne entre tirets, il me met cette erreur et je n'arrive pas à comprendre pourquoi, pourtant la cellule est belle et bien remplie
Si quelqu'un pouvait m'aider ou me conseiller sur la démarche à suivre

Private Function IsConditionsVerifier(oWorkbook As Workbook) As BooleanDim Sheet As ObjectDim IsConditionsVerifier1 As BooleanDim IsConditionsVerifier2 As BooleanDim Work As WorkbooksIsConditionsVerifier1 = FalseIsConditionsVerifier2 = False            For Each Sheet In oWorkbook.Worksheets            'If (Sheet.Cells(16, 3).Value2 = "DNM") ThenIf Sheet.Name = "Inspection basic Info." Then     ----  If (ThisWorkbook.Sheets("Inspection basic Info.").Cells(6, 8).Value.NumberFormat = "dd/mm/yy") Then ---                IsConditionsVerifier1 = True    End If    End IfIf Sheet.Name = "summary" Then                        If (ThisWorkbook.Sheets("Data").Cells(16, 3) = "Meet" Or ThisWorkbook.Sheets("Data").Cells(16, 3) = "AOD") Then                                        IsConditionsVerifier2 = True                                End If                End If            'End If               NextIf IsConditionsVerifier1 = True And IsConditionsVerifier2 = True Then    IsConditionsVerifier = TrueEnd IfEnd Function

Patrice33740 · Answer

Bonjour Lionel,

J'aurais écris ceci :
Private Function IsConditionsVerifier(oWorkbook As Workbook) As Boolean
Dim cel As Range

On Error Resume Next
'Vérifier le format de la cellule H6 la feuille "Inspection basic Info."
Set cel = oWorkbook.Worksheets("Inspection basic Info.").Cells(6, "H")
If Not cel Is Nothing Then
  IsConditionsVerifier = cel.NumberFormat = "dd/mm/yy"
End If
'Vérifier le contenu de la cellule C16 la feuille "Data"
Set cel = oWorkbook.Worksheets("Data").Cells(16, "C")
If Not cel Is Nothing Then
  IsConditionsVerifier = IsConditionsVerifier And _
                         (cel.Value = "Meet" Or cel.Value = "AOD")
Else
  IsConditionsVerifier = False
End If
'Vérifier l'existence de la feuille "summary"
Set cel = oWorkbook.Worksheets("summary").Cells(1, 1)
If cel Is Nothing Then IsConditionsVerifier = False
On Error GoTo 0

End Function

[VBA] Objet requis ???

1 réponse

Discussions similaires