[VBA] Objet requis ???
Lionel4994
Messages postés
1
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
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
A voir également:
- [VBA] Objet requis ???
- Vente objet occasion entre particulier - Guide
- Objet interdit en cabine ryanair - Guide
- Identifiant correct requis connexion - Forum Laposte
- Vous ne pouvez pas créer de compte google car vous n'avez pas l'âge minimal requis ✓ - Forum Réseaux sociaux
- Excel compter cellule couleur sans vba - Guide
1 réponse
Bonjour Lionel,
J'aurais écris ceci :
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