[VBA] Objet requis ???

Lionel4994 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention - 16 juil. 2014 à 13:48

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 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
Vous ne pouvez pas créer de compte google car vous n'avez pas l'âge minimal requis ✓ - Forum Réseaux sociaux
Identifiant correct requis connexion - Forum Laposte
Identifier un objet à partir d'une photo - Guide

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

Discussions similaires

Problème d'app Gmail : "Identifiants requis"

Identifiant requis

Identifiants corrects requis

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Votre réponse

Discussions similaires