[VBA] Objet requis ???
Lionel4994
Messages postés
1
Statut
Membre
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
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
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 Boolean
Dim Sheet As Object
Dim IsConditionsVerifier1 As Boolean
Dim IsConditionsVerifier2 As Boolean
Dim Work As Workbooks
IsConditionsVerifier1 = False
IsConditionsVerifier2 = False
For Each Sheet In oWorkbook.Worksheets
'If (Sheet.Cells(16, 3).Value2 = "DNM") Then
If 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 If
If 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
Next
If IsConditionsVerifier1 = True And IsConditionsVerifier2 = True Then
IsConditionsVerifier = True
End If
End Function
1 réponse
-
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
